sig
type ('a, 'b) t =
('a, 'b) Fieldslib.Field.t = {
name : string;
setter : ('a -> 'b -> unit) option;
getter : 'a -> 'b;
fset : 'a -> 'b -> 'a;
}
val name : ('a, 'b) t -> string
val get : ('a, 'b) t -> 'a -> 'b
val fset : ('a, 'b) t -> 'a -> 'b -> 'a
val setter : ('a, 'b) t -> ('a -> 'b -> unit) option
type ('a, 'b) user =
('a, 'b) Fieldslib.Field.user = {
f : 'c. ('a, 'c) t -> 'b;
}
end