Map.Makemodule Key : Comparable.Stype key = Key.tval empty : 'a tval is_empty : 'a t -> boolsuperpose a b is b augmented with bindings of a that are not in b.
val compare : 'a t -> 'a t -> compare:('a -> 'a -> Ordering.t) -> Ordering.tval iter : 'a t -> f:('a -> unit) -> unitval fold : 'a t -> init:'b -> f:('a -> 'b -> 'b) -> 'bval for_all : 'a t -> f:('a -> bool) -> boolval exists : 'a t -> f:('a -> bool) -> boolval cardinal : 'a t -> intval values : 'a t -> 'a list