val names : string listval variable_name : (t, Symbol.t) Fieldslib.Field.tval function_name : (t, Symbol.t) Fieldslib.Field.tval fold : init:'acc__0 -> function_name:('acc__0 -> (t, Symbol.t) Fieldslib.Field.t -> 'acc__1) -> variable_name:('acc__1 -> (t, Symbol.t) Fieldslib.Field.t -> 'acc__2) -> 'acc__2val make_creator : function_name:((t, Symbol.t) Fieldslib.Field.t -> 'acc__0 -> ('input__ -> Symbol.t) * 'acc__1) -> variable_name:((t, Symbol.t) Fieldslib.Field.t -> 'acc__1 -> ('input__ -> Symbol.t) * 'acc__2) -> 'acc__0 -> ('input__ -> t) * 'acc__2val create : function_name:Symbol.t -> variable_name:Symbol.t -> tval map : function_name:((t, Symbol.t) Fieldslib.Field.t -> Symbol.t) -> variable_name:((t, Symbol.t) Fieldslib.Field.t -> Symbol.t) -> tval iter : function_name:((t, Symbol.t) Fieldslib.Field.t -> unit) -> variable_name:((t, Symbol.t) Fieldslib.Field.t -> unit) -> unitval for_all : function_name:((t, Symbol.t) Fieldslib.Field.t -> bool) -> variable_name:((t, Symbol.t) Fieldslib.Field.t -> bool) -> boolval exists : function_name:((t, Symbol.t) Fieldslib.Field.t -> bool) -> variable_name:((t, Symbol.t) Fieldslib.Field.t -> bool) -> boolval to_list : function_name:((t, Symbol.t) Fieldslib.Field.t -> 'elem__) -> variable_name:((t, Symbol.t) Fieldslib.Field.t -> 'elem__) -> 'elem__ listval map_poly : ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user -> 'x0 list