sig   type t = set   val empty : t   val is_empty : t -> bool   val mem : t -> t -> bool   val add : t -> t -> t   val singleton : t -> t   val remove : t -> t -> t   val union : t -> t -> t   val inter : t -> t -> t   val diff : t -> t -> t   val compare : t -> t -> int   val equal : t -> t -> bool   val subset : t -> t -> bool   val iter : (t -> unit) -> t -> unit   val fold : (t -> '-> 'a) -> t -> '-> 'a   val for_all : (t -> bool) -> t -> bool   val exists : (t -> bool) -> t -> bool   val filter : (t -> bool) -> t -> t   val partition : (t -> bool) -> t -> t * t   val cardinal : t -> int   val elements : t -> t list   val min_elt : t -> t   val max_elt : t -> t   val choose : t -> t   val split : t -> t -> t * bool * t   val find : t -> t -> t   val of_list : t list -> t end