sig
  type 'a t
  val empty : 'a CCIntMap.t
  val singleton : int -> 'a -> 'a CCIntMap.t
  val doubleton : int -> 'a -> int -> 'a -> 'a CCIntMap.t
  val mem : int -> 'a CCIntMap.t -> bool
  val find : int -> 'a CCIntMap.t -> 'a option
  val find_exn : int -> 'a CCIntMap.t -> 'a
  val add : int -> 'a -> 'a CCIntMap.t -> 'a CCIntMap.t
  val remove : int -> 'a CCIntMap.t -> 'a CCIntMap.t
  val equal : eq:('a -> 'a -> bool) -> 'a CCIntMap.t -> 'a CCIntMap.t -> bool
  val compare :
    cmp:('a -> 'a -> int) -> 'a CCIntMap.t -> 'a CCIntMap.t -> int
  val update :
    int -> ('a option -> 'a option) -> 'a CCIntMap.t -> 'a CCIntMap.t
  val cardinal : 'a CCIntMap.t -> int
  val iter : (int -> 'a -> unit) -> 'a CCIntMap.t -> unit
  val fold : (int -> 'a -> 'b -> 'b) -> 'a CCIntMap.t -> 'b -> 'b
  val mapi : (int -> 'a -> 'b) -> 'a CCIntMap.t -> 'b CCIntMap.t
  val map : ('a -> 'b) -> 'a CCIntMap.t -> 'b CCIntMap.t
  val choose : 'a CCIntMap.t -> (int * 'a) option
  val choose_exn : 'a CCIntMap.t -> int * 'a
  val union :
    (int -> 'a -> 'a -> 'a) ->
    'a CCIntMap.t -> 'a CCIntMap.t -> 'a CCIntMap.t
  val inter :
    (int -> 'a -> 'a -> 'a) ->
    'a CCIntMap.t -> 'a CCIntMap.t -> 'a CCIntMap.t
  type 'a sequence = ('a -> unit) -> unit
  type 'a gen = unit -> 'a option
  type 'a klist = unit -> [ `Cons of 'a * 'a CCIntMap.klist | `Nil ]
  val add_list : 'a CCIntMap.t -> (int * 'a) list -> 'a CCIntMap.t
  val of_list : (int * 'a) list -> 'a CCIntMap.t
  val to_list : 'a CCIntMap.t -> (int * 'a) list
  val add_seq :
    'a CCIntMap.t -> (int * 'a) CCIntMap.sequence -> 'a CCIntMap.t
  val of_seq : (int * 'a) CCIntMap.sequence -> 'a CCIntMap.t
  val to_seq : 'a CCIntMap.t -> (int * 'a) CCIntMap.sequence
  val keys : 'a CCIntMap.t -> int CCIntMap.sequence
  val values : 'a CCIntMap.t -> 'a CCIntMap.sequence
  val add_gen : 'a CCIntMap.t -> (int * 'a) CCIntMap.gen -> 'a CCIntMap.t
  val of_gen : (int * 'a) CCIntMap.gen -> 'a CCIntMap.t
  val to_gen : 'a CCIntMap.t -> (int * 'a) CCIntMap.gen
  val add_klist : 'a CCIntMap.t -> (int * 'a) CCIntMap.klist -> 'a CCIntMap.t
  val of_klist : (int * 'a) CCIntMap.klist -> 'a CCIntMap.t
  val to_klist : 'a CCIntMap.t -> (int * 'a) CCIntMap.klist
  type 'a tree = unit -> [ `Nil | `Node of 'a * 'a CCIntMap.tree list ]
  val as_tree :
    'a CCIntMap.t -> [ `Leaf of int * 'a | `Node of int * int ] CCIntMap.tree
  type 'a printer = Format.formatter -> 'a -> unit
  val print : 'a CCIntMap.printer -> 'a CCIntMap.t CCIntMap.printer
  module Bit :
    sig
      type t = private int
      val min_int : CCIntMap.Bit.t
      val highest : int -> CCIntMap.Bit.t
    end
  val check_invariants : 'a CCIntMap.t -> bool
end