val sheets : (t, Sheet.t list) Fieldslib.Field.tval book_views : (t, Book_view.t list) Fieldslib.Field.tval fold :
init:'acc__0 ->
book_views:('acc__0 -> (t, Book_view.t list) Fieldslib.Field.t -> 'acc__1) ->
sheets:('acc__1 -> (t, Sheet.t list) Fieldslib.Field.t -> 'acc__2) ->
'acc__2val make_creator :
book_views:
((t, Book_view.t list) Fieldslib.Field.t ->
'acc__0 ->
('input__ -> Book_view.t list) * 'acc__1) ->
sheets:
((t, Sheet.t list) Fieldslib.Field.t ->
'acc__1 ->
('input__ -> Sheet.t list) * 'acc__2) ->
'acc__0 ->
('input__ -> t) * 'acc__2val create : book_views:Book_view.t list -> sheets:Sheet.t list -> tval map :
book_views:((t, Book_view.t list) Fieldslib.Field.t -> Book_view.t list) ->
sheets:((t, Sheet.t list) Fieldslib.Field.t -> Sheet.t list) ->
tval iter :
book_views:((t, Book_view.t list) Fieldslib.Field.t -> unit) ->
sheets:((t, Sheet.t list) Fieldslib.Field.t -> unit) ->
unitval for_all :
book_views:((t, Book_view.t list) Fieldslib.Field.t -> bool) ->
sheets:((t, Sheet.t list) Fieldslib.Field.t -> bool) ->
boolval exists :
book_views:((t, Book_view.t list) Fieldslib.Field.t -> bool) ->
sheets:((t, Sheet.t list) Fieldslib.Field.t -> bool) ->
boolval to_list :
book_views:((t, Book_view.t list) Fieldslib.Field.t -> 'elem__) ->
sheets:((t, Sheet.t list) Fieldslib.Field.t -> 'elem__) ->
'elem__ listval map_poly :
([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user ->
'x0 listmodule Direct : sig ... end