sig
  type key
  type +'a t
  module T : sig type 'a key = key type ('a, 'b) t = 'b t end
  type 'a sexpable = 'a t
  val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a sexpable -> Sexplib.Sexp.t
  val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a sexpable
  val empty : 'a Core_map_intf.S.t
  val singleton : Core_map_intf.S.key -> 'a -> 'a Core_map_intf.S.t
  val is_empty : 'a Core_map_intf.S.t -> bool
  val cardinal : 'a Core_map_intf.S.t -> int
  val add :
    key:Core_map_intf.S.key ->
    data:'a -> 'a Core_map_intf.S.t -> 'a Core_map_intf.S.t
  val find_exn : 'a Core_map_intf.S.t -> Core_map_intf.S.key -> 'a
  val find : 'a Core_map_intf.S.t -> Core_map_intf.S.key -> 'a option
  val remove :
    'a Core_map_intf.S.t -> Core_map_intf.S.key -> 'a Core_map_intf.S.t
  val mem : 'a Core_map_intf.S.t -> Core_map_intf.S.key -> bool
  val iter :
    f:(key:Core_map_intf.S.key -> data:'a -> unit) ->
    'a Core_map_intf.S.t -> unit
  val map : f:('a -> 'b) -> 'a Core_map_intf.S.t -> 'b Core_map_intf.S.t
  val mapi :
    f:(key:Core_map_intf.S.key -> data:'a -> 'b) ->
    'a Core_map_intf.S.t -> 'b Core_map_intf.S.t
  val fold :
    f:(key:Core_map_intf.S.key -> data:'a -> 'b -> 'b) ->
    'a Core_map_intf.S.t -> init:'b -> 'b
  val filter :
    f:(key:Core_map_intf.S.key -> data:'a -> bool) ->
    'a Core_map_intf.S.t -> 'a Core_map_intf.S.t
  val filter_map :
    f:('a -> 'b option) -> 'a Core_map_intf.S.t -> 'b Core_map_intf.S.t
  val filter_mapi :
    f:(key:Core_map_intf.S.key -> data:'a -> 'b option) ->
    'a Core_map_intf.S.t -> 'b Core_map_intf.S.t
  val compare :
    ('a -> 'a -> int) -> 'a Core_map_intf.S.t -> 'a Core_map_intf.S.t -> int
  val equal :
    ('a -> 'a -> bool) ->
    'a Core_map_intf.S.t -> 'a Core_map_intf.S.t -> bool
  val keys : 'a Core_map_intf.S.t -> Core_map_intf.S.key list
  val has_key : 'a Core_map_intf.S.t -> Core_map_intf.S.key -> bool
  val data : 'a Core_map_intf.S.t -> 'a list
  val of_alist :
    (Core_map_intf.S.key * 'a) list ->
    [ `Duplicate_key of Core_map_intf.S.key | `Ok of 'a Core_map_intf.S.t ]
  val of_alist_exn : (Core_map_intf.S.key * 'a) list -> 'a Core_map_intf.S.t
  val of_alist_multi :
    (Core_map_intf.S.key * 'a) list -> 'a list Core_map_intf.S.t
  val to_alist : 'a Core_map_intf.S.t -> (Core_map_intf.S.key * 'a) list
  val combine_alist :
    (Core_map_intf.S.key * 'a) list ->
    init:'b -> f:('a -> 'b -> 'b) -> 'b Core_map_intf.S.t
  val merge :
    f:(key:Core_map_intf.S.key -> 'a option -> 'b option -> 'c option) ->
    'a Core_map_intf.S.t -> 'b Core_map_intf.S.t -> 'c Core_map_intf.S.t
  val min_elt : 'a Core_map_intf.S.t -> (Core_map_intf.S.key * 'a) option
  val min_elt_exn : 'a Core_map_intf.S.t -> Core_map_intf.S.key * 'a
  val max_elt : 'a Core_map_intf.S.t -> (Core_map_intf.S.key * 'a) option
  val max_elt_exn : 'a Core_map_intf.S.t -> Core_map_intf.S.key * 'a
  val for_all : f:('a -> bool) -> 'a Core_map_intf.S.t -> bool
  val exists : f:('a -> bool) -> 'a Core_map_intf.S.t -> bool
end