val names : Base.String.t Base.List.tval aliases : (t, Base.String.t Base.List.t) Fieldslib.Field.tval doc : (t, Base.String.t) Fieldslib.Field.tval name : (t, Base.String.t) Fieldslib.Field.tval fold : init:'acc__0 -> name:('acc__0 -> (t, Base.String.t) Fieldslib.Field.t -> 'acc__1) -> doc:('acc__1 -> (t, Base.String.t) Fieldslib.Field.t -> 'acc__2) -> aliases:('acc__2 -> (t, Base.String.t Base.List.t) Fieldslib.Field.t -> 'acc__3) -> 'acc__3val make_creator : name:((t, Base.String.t) Fieldslib.Field.t -> 'acc__0 -> ('input__ -> Base.String.t) * 'acc__1) -> doc:((t, Base.String.t) Fieldslib.Field.t -> 'acc__1 -> ('input__ -> Base.String.t) * 'acc__2) -> aliases:((t, Base.String.t Base.List.t) Fieldslib.Field.t -> 'acc__2 -> ('input__ -> Base.String.t Base.List.t) * 'acc__3) -> 'acc__0 -> ('input__ -> t) * 'acc__3val create : name:Base.String.t -> doc:Base.String.t -> aliases:Base.String.t Base.List.t -> tval map : name:((t, Base.String.t) Fieldslib.Field.t -> Base.String.t) -> doc:((t, Base.String.t) Fieldslib.Field.t -> Base.String.t) -> aliases:((t, Base.String.t Base.List.t) Fieldslib.Field.t -> Base.String.t Base.List.t) -> tval iter : name:((t, Base.String.t) Fieldslib.Field.t -> Base.Unit.t) -> doc:((t, Base.String.t) Fieldslib.Field.t -> Base.Unit.t) -> aliases:((t, Base.String.t Base.List.t) Fieldslib.Field.t -> Base.Unit.t) -> Base.Unit.tval for_all : name:((t, Base.String.t) Fieldslib.Field.t -> Base.Bool.t) -> doc:((t, Base.String.t) Fieldslib.Field.t -> Base.Bool.t) -> aliases:((t, Base.String.t Base.List.t) Fieldslib.Field.t -> Base.Bool.t) -> Base.Bool.tval exists : name:((t, Base.String.t) Fieldslib.Field.t -> Base.Bool.t) -> doc:((t, Base.String.t) Fieldslib.Field.t -> Base.Bool.t) -> aliases:((t, Base.String.t Base.List.t) Fieldslib.Field.t -> Base.Bool.t) -> Base.Bool.tval to_list : name:((t, Base.String.t) Fieldslib.Field.t -> 'elem__) -> doc:((t, Base.String.t) Fieldslib.Field.t -> 'elem__) -> aliases:((t, Base.String.t Base.List.t) Fieldslib.Field.t -> 'elem__) -> 'elem__ Base.List.tval map_poly : ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user -> 'x0 Base.List.tmodule Direct : sig ... end