Make.SequentialSourcetype 'a node = {mutable n : int;mutable keys : V.t Utils.Finite_vector.t;mutable values : 'a Utils.Finite_vector.t;leaf : bool;mutable children : 'a node Utils.Finite_vector.t;mutable no_elements : int;mutable capacity : int;mutable min_child_capacity : int;}val pp_node_internal :
?pp_child:bool ->
?pp_v:(Format.formatter -> V.t -> unit) ->
int ->
(Format.formatter -> 'a -> unit) ->
Format.formatter ->
'a node ->
unitval pp_node :
?pp_v:(Format.formatter -> V.t -> unit) ->
(Format.formatter -> 'a -> unit) ->
Format.formatter ->
'a node ->
unitval show_node :
?pp_v:(Format.formatter -> V.t -> unit) ->
(Format.formatter -> 'a -> unit) ->
'a node ->
stringval show_node_no_children :
?pp_v:(Format.formatter -> V.t -> unit) ->
(Format.formatter -> 'a -> unit) ->
'a node ->
stringval pp :
?pp_v:(Format.formatter -> V.t -> unit) ->
(Format.formatter -> 'a -> unit) ->
Format.formatter ->
'a t ->
unitval show :
?pp_v:(Format.formatter -> V.t -> unit) ->
(Format.formatter -> 'a -> unit) ->
'a t ->
string