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 : ('-> Sexplib.Sexp.t) -> 'a sexpable -> Sexplib.Sexp.t
  val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a sexpable
  val empty : 'Core_map_intf.S.t
  val singleton : Core_map_intf.S.key -> '-> 'Core_map_intf.S.t
  val is_empty : 'Core_map_intf.S.t -> bool
  val cardinal : 'Core_map_intf.S.t -> int
  val add :
    key:Core_map_intf.S.key ->
    data:'-> 'Core_map_intf.S.t -> 'Core_map_intf.S.t
  val add_multi :
    key:Core_map_intf.S.key ->
    data:'-> 'a list Core_map_intf.S.t -> 'a list Core_map_intf.S.t
  val change :
    'Core_map_intf.S.t ->
    Core_map_intf.S.key -> ('a option -> 'a option) -> 'Core_map_intf.S.t
  val find_exn : 'Core_map_intf.S.t -> Core_map_intf.S.key -> 'a
  val find : 'Core_map_intf.S.t -> Core_map_intf.S.key -> 'a option
  val remove :
    'Core_map_intf.S.t -> Core_map_intf.S.key -> 'Core_map_intf.S.t
  val mem : 'Core_map_intf.S.t -> Core_map_intf.S.key -> bool
  val iter :
    f:(key:Core_map_intf.S.key -> data:'-> unit) ->
    'Core_map_intf.S.t -> unit
  val map : f:('-> 'b) -> 'Core_map_intf.S.t -> 'Core_map_intf.S.t
  val mapi :
    f:(key:Core_map_intf.S.key -> data:'-> 'b) ->
    'Core_map_intf.S.t -> 'Core_map_intf.S.t
  val fold :
    f:(key:Core_map_intf.S.key -> data:'-> '-> 'b) ->
    'Core_map_intf.S.t -> init:'-> 'b
  val fold_right :
    f:(key:Core_map_intf.S.key -> data:'-> '-> 'b) ->
    'Core_map_intf.S.t -> init:'-> 'b
  val filter :
    f:(key:Core_map_intf.S.key -> data:'-> bool) ->
    'Core_map_intf.S.t -> 'Core_map_intf.S.t
  val filter_map :
    f:('-> 'b option) -> 'Core_map_intf.S.t -> 'Core_map_intf.S.t
  val filter_mapi :
    f:(key:Core_map_intf.S.key -> data:'-> 'b option) ->
    'Core_map_intf.S.t -> 'Core_map_intf.S.t
  val compare :
    ('-> '-> int) -> 'Core_map_intf.S.t -> 'Core_map_intf.S.t -> int
  val equal :
    ('-> '-> bool) ->
    'Core_map_intf.S.t -> 'Core_map_intf.S.t -> bool
  val keys : 'Core_map_intf.S.t -> Core_map_intf.S.key list
  val has_key : 'Core_map_intf.S.t -> Core_map_intf.S.key -> bool
  val data : '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 'Core_map_intf.S.t ]
  val of_alist_exn : (Core_map_intf.S.key * 'a) list -> '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 : 'Core_map_intf.S.t -> (Core_map_intf.S.key * 'a) list
  val combine_alist :
    (Core_map_intf.S.key * 'a) list ->
    init:'-> f:('-> '-> 'b) -> 'Core_map_intf.S.t
  val merge :
    f:(key:Core_map_intf.S.key -> 'a option -> 'b option -> 'c option) ->
    'Core_map_intf.S.t -> 'Core_map_intf.S.t -> 'Core_map_intf.S.t
  val min_elt : 'Core_map_intf.S.t -> (Core_map_intf.S.key * 'a) option
  val min_elt_exn : 'Core_map_intf.S.t -> Core_map_intf.S.key * 'a
  val max_elt : 'Core_map_intf.S.t -> (Core_map_intf.S.key * 'a) option
  val max_elt_exn : 'Core_map_intf.S.t -> Core_map_intf.S.key * 'a
  val for_all : f:('-> bool) -> 'Core_map_intf.S.t -> bool
  val exists : f:('-> bool) -> 'Core_map_intf.S.t -> bool
  val fold_range_inclusive :
    'Core_map_intf.S.t ->
    min:Core_map_intf.S.key ->
    max:Core_map_intf.S.key ->
    init:'-> f:(key:Core_map_intf.S.key -> data:'-> '-> 'b) -> 'b
  val range_to_alist :
    'Core_map_intf.S.t ->
    min:Core_map_intf.S.key ->
    max:Core_map_intf.S.key -> (Core_map_intf.S.key * 'a) list
  val prev_key :
    'Core_map_intf.S.t -> Core_map_intf.S.key -> Core_map_intf.S.key option
  val next_key :
    'Core_map_intf.S.t -> Core_map_intf.S.key -> Core_map_intf.S.key option
  val rank : 'Core_map_intf.S.t -> Core_map_intf.S.key -> int option
end