include Map_intf.S with module Key := Key
module Tree : sig ... endinclude Map_intf.S_plain with module Key := Key and module Tree := Tree
include Map_intf.Creators_and_accessors1 with type 'a t := 'a t with type 'a tree := 'a Tree.t with type key := Key.t with type comparator_witness := Key.comparator_witness
include Map_intf.Accessors1 with type 'a t := 'a t with type 'a tree := 'a Tree.t with type key := Key.t with type comparator_witness := Key.comparator_witness
include Map_intf.Map.Accessors1 with type 'a t := 'a t with type 'a tree := 'a Tree.t with type key := Key.t with type comparator_witness := Key.comparator_witness
val invariants : 'a t -> boolval is_empty : 'a t -> boolval add : 'a t -> key:Key.t -> data:'a -> [ `Ok of 'a t | `Duplicate ]val add_exn : 'a t -> key:Key.t -> data:'a -> 'a tval set : 'a t -> key:Key.t -> data:'a -> 'a tval add_multi : 'a t -> key:Key.t -> data:'a -> 'a tval remove_multi : 'a t -> Key.t -> 'a tval find_multi : 'a t -> Key.t -> 'a listval change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a tval update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a tval find : 'a t -> Key.t -> 'a optionval find_exn : 'a t -> Key.t -> 'aval mem : 'a t -> Key.t -> boolval iter_keys : 'a t -> f:(Key.t -> unit) -> unitval iter : 'a t -> f:('a -> unit) -> unitval iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unitval iteri_until : 'a t -> f:(key:Key.t -> data:'a -> Base__Map_intf.Continue_or_stop.t) -> Base__Map_intf.Finished_or_unfinished.tval iter2 : 'a t -> 'a t -> f:(key:Key.t -> data:[ `Left of 'a | `Right of 'b | `Both of 'a * 'b ] -> unit) -> unitval map : 'a t -> f:('a -> 'b) -> 'a tval mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'a tval fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'bval fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'bval fold2 : 'a t -> 'a t -> init:'c -> f:(key:Key.t -> data:[ `Left of 'a | `Right of 'b | `Both of 'a * 'b ] -> 'c -> 'c) -> 'cval filter_keys : 'a t -> f:(Key.t -> bool) -> 'a tval filter : 'a t -> f:('a -> bool) -> 'a tval filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a tval filter_map : 'a t -> f:('a -> 'b option) -> 'a tval filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'a tval partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'a t * 'a tval partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'a t * 'a tval partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a tval partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a tval compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> intval equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> boolval data : 'a t -> 'a listval to_alist : ?key_order:[ `Increasing | `Decreasing ] -> 'a t -> (Key.t * 'a) listval merge : 'a t -> 'a t -> f:(key:Key.t -> [ `Left of 'a | `Right of 'b | `Both of 'a * 'b ] -> 'c option) -> 'a tval symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ]) Base.Sequence.tval fold_symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> init:'c -> f:('c -> (Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ]) -> 'c) -> 'cval min_elt : 'a t -> (Key.t * 'a) optionval min_elt_exn : 'a t -> Key.t * 'aval max_elt : 'a t -> (Key.t * 'a) optionval max_elt_exn : 'a t -> Key.t * 'aval for_all : 'a t -> f:('a -> bool) -> boolval for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> boolval exists : 'a t -> f:('a -> bool) -> boolval existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> boolval count : 'a t -> f:('a -> bool) -> intval counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> intval append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'bval closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) optionval nth : 'a t -> int -> (Key.t * 'a) optionval nth_exn : 'a t -> int -> Key.t * 'aval rank : 'a t -> Key.t -> int optionval to_sequence : ?order:[ `Increasing_key | `Decreasing_key ] -> ?keys_greater_or_equal_to:Key.t -> ?keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base.Sequence.tval binary_search : 'a t -> compare:(key:Key.t -> data:'a -> 'key -> int) -> [ `Last_strictly_less_than | `Last_less_than_or_equal_to | `Last_equal_to | `First_equal_to | `First_greater_than_or_equal_to | `First_strictly_greater_than ] -> 'key -> (Key.t * 'a) optionval binary_search_segmented : 'a t -> segment_of:(key:Key.t -> data:'a -> [ `Left | `Right ]) -> [ `Last_on_left | `First_on_right ] -> (Key.t * 'a) option