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