sig
type 'a t = (int * int * 'a) AvlTree.tree
type key = int
val empty : 'a IMap.t
val is_empty : 'a IMap.t -> bool
val add : ?eq:('a -> 'a -> bool) -> int -> 'a -> 'a IMap.t -> 'a IMap.t
val add_range :
?eq:('a -> 'a -> bool) -> int -> int -> 'a -> 'a IMap.t -> 'a IMap.t
val find : int -> 'a IMap.t -> 'a
val remove : int -> 'a IMap.t -> 'a IMap.t
val remove_range : int -> int -> 'a IMap.t -> 'a IMap.t
val from : int -> 'a IMap.t -> 'a IMap.t
val after : int -> 'a IMap.t -> 'a IMap.t
val until : int -> 'a IMap.t -> 'a IMap.t
val before : int -> 'a IMap.t -> 'a IMap.t
val mem : int -> 'a IMap.t -> bool
val iter : (int -> 'a -> unit) -> 'a IMap.t -> unit
val iter_range : (int -> int -> 'a -> unit) -> 'a IMap.t -> unit
val map : ?eq:('a -> 'a -> bool) -> ('b -> 'a) -> 'b IMap.t -> 'a IMap.t
val mapi :
?eq:('a -> 'a -> bool) -> (int -> 'b -> 'a) -> 'b IMap.t -> 'a IMap.t
val fold : (int -> 'a -> 'b -> 'b) -> 'a IMap.t -> 'b -> 'b
val fold_range : (int -> int -> 'a -> 'b -> 'b) -> 'a IMap.t -> 'b -> 'b
val set_to_map : ISet.t -> 'a -> 'a IMap.t
val domain : 'a IMap.t -> ISet.t
val map_to_set : ('a -> bool) -> 'a IMap.t -> ISet.t
end