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