sig   module type S =     sig       type elt       type t       val empty : t       val is_empty : t -> bool       val mem : elt -> t -> bool       val add : elt -> t -> t       val singleton : elt -> t       val remove : elt -> 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 : (elt -> unit) -> t -> unit       val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a       val for_all : (elt -> bool) -> t -> bool       val exists : (elt -> bool) -> t -> bool       val filter : (elt -> bool) -> t -> t       val partition : (elt -> bool) -> t -> t * t       val cardinal : t -> int       val elements : t -> elt list       val split : elt -> t -> t * bool * t       val find : elt -> t -> elt option       val get : elt -> t -> elt       val min_elt : t -> elt option       val get_min_elt : t -> elt       val max_elt : t -> elt option       val get_max_elt : t -> elt       val choose : t -> elt option       val get_any_elt : t -> elt       val to_list : t -> elt list       val of_list : elt list -> t       val pp :         ?sep:(Format.formatter -> unit -> unit) ->         (Format.formatter -> elt -> unit) -> Format.formatter -> t -> unit       val dump :         (Format.formatter -> elt -> unit) -> Format.formatter -> t -> unit     end   module Make :     functor (Ord : Set.OrderedType) ->       sig         type elt = Ord.t         type t = Set.Make(Ord).t         val empty : t         val is_empty : t -> bool         val mem : elt -> t -> bool         val add : elt -> t -> t         val singleton : elt -> t         val remove : elt -> 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 : (elt -> unit) -> t -> unit         val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a         val for_all : (elt -> bool) -> t -> bool         val exists : (elt -> bool) -> t -> bool         val filter : (elt -> bool) -> t -> t         val partition : (elt -> bool) -> t -> t * t         val cardinal : t -> int         val elements : t -> elt list         val split : elt -> t -> t * bool * t         val find : elt -> t -> elt option         val get : elt -> t -> elt         val min_elt : t -> elt option         val get_min_elt : t -> elt         val max_elt : t -> elt option         val get_max_elt : t -> elt         val choose : t -> elt option         val get_any_elt : t -> elt         val to_list : t -> elt list         val of_list : elt list -> t         val pp :           ?sep:(Format.formatter -> unit -> unit) ->           (Format.formatter -> elt -> unit) -> Format.formatter -> t -> unit         val dump :           (Format.formatter -> elt -> unit) -> Format.formatter -> t -> unit       end end