sig
type t = (int * int) AvlTree.tree
type elt = int
val empty : Main.Type.ISet.t
val is_empty : Main.Type.ISet.t -> bool
val mem : int -> Main.Type.ISet.t -> bool
val add : int -> Main.Type.ISet.t -> Main.Type.ISet.t
val add_range : int -> int -> Main.Type.ISet.t -> Main.Type.ISet.t
val singleton : int -> Main.Type.ISet.t
val remove : int -> Main.Type.ISet.t -> Main.Type.ISet.t
val remove_range : int -> int -> Main.Type.ISet.t -> Main.Type.ISet.t
val union : Main.Type.ISet.t -> Main.Type.ISet.t -> Main.Type.ISet.t
val inter : Main.Type.ISet.t -> Main.Type.ISet.t -> Main.Type.ISet.t
val diff : Main.Type.ISet.t -> Main.Type.ISet.t -> Main.Type.ISet.t
val compl : Main.Type.ISet.t -> Main.Type.ISet.t
val compare : Main.Type.ISet.t -> Main.Type.ISet.t -> int
val equal : Main.Type.ISet.t -> Main.Type.ISet.t -> bool
val subset : Main.Type.ISet.t -> Main.Type.ISet.t -> bool
val from : int -> Main.Type.ISet.t -> Main.Type.ISet.t
val after : int -> Main.Type.ISet.t -> Main.Type.ISet.t
val until : int -> Main.Type.ISet.t -> Main.Type.ISet.t
val before : int -> Main.Type.ISet.t -> Main.Type.ISet.t
val iter : (int -> unit) -> Main.Type.ISet.t -> unit
val iter_range : (int -> int -> unit) -> Main.Type.ISet.t -> unit
val fold : (int -> 'a -> 'a) -> Main.Type.ISet.t -> 'a -> 'a
val fold_range : (int -> int -> 'a -> 'a) -> Main.Type.ISet.t -> 'a -> 'a
val for_all : (int -> bool) -> Main.Type.ISet.t -> bool
val exists : (int -> bool) -> Main.Type.ISet.t -> bool
val filter : (int -> bool) -> Main.Type.ISet.t -> Main.Type.ISet.t
val partition :
(int -> bool) -> Main.Type.ISet.t -> Main.Type.ISet.t * Main.Type.ISet.t
val cardinal : Main.Type.ISet.t -> int
val elements : Main.Type.ISet.t -> int list
val ranges : Main.Type.ISet.t -> (int * int) list
val min_elt : Main.Type.ISet.t -> int
val max_elt : Main.Type.ISet.t -> int
val choose : Main.Type.ISet.t -> int
end