Module Spec.Fields

val names : string list
val b : ('f t, 'f) Fieldslib.Field.t
val a : ('f t, 'f) Fieldslib.Field.t
val fold : init:'acc__0 -> a:('acc__0 -> ('f t, 'f) Fieldslib.Field.t -> 'acc__1) -> b:('acc__1 -> ('f t, 'f) Fieldslib.Field.t -> 'acc__2) -> 'acc__2
val make_creator : a:(('f t, 'f) Fieldslib.Field.t -> 'acc__0 -> ('input__ -> 'f) * 'acc__1) -> b:(('f t, 'f) Fieldslib.Field.t -> 'acc__1 -> ('input__ -> 'f) * 'acc__2) -> 'acc__0 -> ('input__ -> 'f t) * 'acc__2
val create : a:'f -> b:'f -> 'f t
val map : a:(('f t, 'f) Fieldslib.Field.t -> 'f) -> b:(('f t, 'f) Fieldslib.Field.t -> 'f) -> 'f t
val iter : a:(('f t, 'f) Fieldslib.Field.t -> unit) -> b:(('f t, 'f) Fieldslib.Field.t -> unit) -> unit
val for_all : a:(('f t, 'f) Fieldslib.Field.t -> bool) -> b:(('f t, 'f) Fieldslib.Field.t -> bool) -> bool
val exists : a:(('f t, 'f) Fieldslib.Field.t -> bool) -> b:(('f t, 'f) Fieldslib.Field.t -> bool) -> bool
val to_list : a:(('f t, 'f) Fieldslib.Field.t -> 'elem__) -> b:(('f t, 'f) Fieldslib.Field.t -> 'elem__) -> 'elem__ list
val map_poly : ([< `Read | `Set_and_create ], 'f t, 'x0) Fieldslib.Field.user -> 'x0 list
module Direct : sig ... end