# Module type Core_map_intf.S

    module type S = sig .. end

    type ('k, +'v, 'cmp) map

    type ('k, +'v, 'cmp) tree

    module Key: Comparator.S

    module Tree: sig .. end

    type 'a t = (Core_map_intf.Key.t, 'a, Key.comparator_witness) map

    include Core_map_intf.Creators_and_accessors1

    val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t

    val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t

    val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int