sig
module T : Types
val empty : 'a T.t
val is_empty : 'a T.t -> bool
val mem : 'a T.t -> 'a T.elt -> bool
val add : 'a T.t -> 'a T.elt -> 'a T.t
val singleton : 'a T.elt -> 'a T.t
val remove : 'a T.t -> 'a T.elt -> 'a T.t
val union : 'a T.t -> 'a T.t -> 'a T.t
val union_list : 'a T.t list -> 'a T.t
val inter : 'a T.t -> 'a T.t -> 'a T.t
val diff : 'a T.t -> 'a T.t -> 'a T.t
val compare : 'a T.t -> 'a T.t -> int
val equal : 'a T.t -> 'a T.t -> bool
val subset : 'a T.t -> 'a T.t -> bool
val iter : f:('a T.elt -> unit) -> 'a T.t -> unit
val fold : f:('a T.elt -> 'b -> 'b) -> 'a T.t -> init:'b -> 'b
val for_all : f:('a T.elt -> bool) -> 'a T.t -> bool
val exists : f:('a T.elt -> bool) -> 'a T.t -> bool
val filter : f:('a T.elt -> bool) -> 'a T.t -> 'a T.t
val partition : f:('a T.elt -> bool) -> 'a T.t -> 'a T.t * 'a T.t
val cardinal : 'a T.t -> int
val elements : 'a T.t -> 'a T.elt list
val min_elt : 'a T.t -> 'a T.elt option
val min_elt_exn : 'a T.t -> 'a T.elt
val max_elt : 'a T.t -> 'a T.elt option
val max_elt_exn : 'a T.t -> 'a T.elt
val choose : 'a T.t -> 'a T.elt option
val choose_exn : 'a T.t -> 'a T.elt
val of_list : 'a T.elt list -> 'a T.t
val to_list : 'a T.t -> 'a T.elt list
val of_array : 'a T.elt array -> 'a T.t
val to_array : 'a T.t -> 'a T.elt array
val split : 'a T.elt -> 'a T.t -> 'a T.t * bool * 'a T.t
val group_by :
'a T.t -> equiv:('a T.elt -> 'a T.elt -> bool) -> 'a T.t list
end