sig
  type 'a set = Empty | Node of 'a Sette.set * 'a * 'a Sette.set * int
  type 'a t = 'a Sette.set
  val empty : 'a Sette.t
  val is_empty : 'a Sette.t -> bool
  val mem : 'a -> 'a Sette.t -> bool
  val add : 'a -> 'a Sette.t -> 'a Sette.t
  val singleton : 'a -> 'a Sette.t
  val remove : 'a -> 'a Sette.t -> 'a Sette.t
  val union : 'a Sette.t -> 'a Sette.t -> 'a Sette.t
  val inter : 'a Sette.t -> 'a Sette.t -> 'a Sette.t
  val diff : 'a Sette.t -> 'a Sette.t -> 'a Sette.t
  val compare : 'a Sette.t -> 'a Sette.t -> int
  val equal : 'a Sette.t -> 'a Sette.t -> bool
  val subset : 'a Sette.t -> 'a Sette.t -> bool
  val iter : ('a -> unit) -> 'a Sette.t -> unit
  val fold : ('a -> 'b -> 'b) -> 'a Sette.t -> 'b -> 'b
  val for_all : ('a -> bool) -> 'a Sette.t -> bool
  val exists : ('a -> bool) -> 'a Sette.t -> bool
  val filter : ('a -> bool) -> 'a Sette.t -> 'a Sette.t
  val partition : ('a -> bool) -> 'a Sette.t -> 'a Sette.t * 'a Sette.t
  val cardinal : 'a Sette.t -> int
  val elements : 'a Sette.t -> 'a list
  val min_elt : 'a Sette.t -> 'a
  val max_elt : 'a Sette.t -> 'a
  val choose : 'a Sette.t -> 'a
  val print :
    ?first:(unit, Format.formatter, unit) Pervasives.format ->
    ?sep:(unit, Format.formatter, unit) Pervasives.format ->
    ?last:(unit, Format.formatter, unit) Pervasives.format ->
    (Format.formatter -> 'a -> unit) ->
    Format.formatter -> 'a Sette.t -> unit
  module type S =
    sig
      type elt
      type t
      val repr : Sette.S.t -> Sette.S.elt Sette.set
      val obj : Sette.S.elt Sette.set -> Sette.S.t
      module Ord : sig type t = elt val compare : t -> t -> int end
      val empty : Sette.S.t
      val is_empty : Sette.S.t -> bool
      val mem : Sette.S.elt -> Sette.S.t -> bool
      val add : Sette.S.elt -> Sette.S.t -> Sette.S.t
      val singleton : Sette.S.elt -> Sette.S.t
      val remove : Sette.S.elt -> Sette.S.t -> Sette.S.t
      val union : Sette.S.t -> Sette.S.t -> Sette.S.t
      val inter : Sette.S.t -> Sette.S.t -> Sette.S.t
      val diff : Sette.S.t -> Sette.S.t -> Sette.S.t
      val compare : Sette.S.t -> Sette.S.t -> int
      val equal : Sette.S.t -> Sette.S.t -> bool
      val subset : Sette.S.t -> Sette.S.t -> bool
      val iter : (Sette.S.elt -> unit) -> Sette.S.t -> unit
      val fold : (Sette.S.elt -> 'a -> 'a) -> Sette.S.t -> 'a -> 'a
      val for_all : (Sette.S.elt -> bool) -> Sette.S.t -> bool
      val exists : (Sette.S.elt -> bool) -> Sette.S.t -> bool
      val filter : (Sette.S.elt -> bool) -> Sette.S.t -> Sette.S.t
      val partition :
        (Sette.S.elt -> bool) -> Sette.S.t -> Sette.S.t * Sette.S.t
      val cardinal : Sette.S.t -> int
      val elements : Sette.S.t -> Sette.S.elt list
      val min_elt : Sette.S.t -> Sette.S.elt
      val max_elt : Sette.S.t -> Sette.S.elt
      val choose : Sette.S.t -> Sette.S.elt
      val print :
        ?first:(unit, Format.formatter, unit) Pervasives.format ->
        ?sep:(unit, Format.formatter, unit) Pervasives.format ->
        ?last:(unit, Format.formatter, unit) Pervasives.format ->
        (Format.formatter -> Sette.S.elt -> unit) ->
        Format.formatter -> Sette.S.t -> unit
    end
  module Make :
    functor (Ord : Set.OrderedType) ->
      sig
        type elt = Ord.t
        type t
        val repr : t -> elt set
        val obj : elt set -> t
        module Ord : sig type t = Ord.t val compare : t -> t -> int end
        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 min_elt : t -> elt
        val max_elt : t -> elt
        val choose : t -> elt
        val print :
          ?first:(unit, Format.formatter, unit) format ->
          ?sep:(unit, Format.formatter, unit) format ->
          ?last:(unit, Format.formatter, unit) format ->
          (Format.formatter -> elt -> unit) -> Format.formatter -> t -> unit
      end
  module Compare :
    sig
      val split :
        ('a -> 'a -> int) ->
        'a -> 'a Sette.t -> 'a Sette.t * bool * 'a Sette.t
      val add : ('a -> 'a -> int) -> 'a -> 'a Sette.t -> 'a Sette.t
      val mem : ('a -> 'a -> int) -> 'a -> 'a Sette.t -> bool
      val remove : ('a -> 'a -> int) -> 'a -> 'a Sette.t -> 'a Sette.t
      val union : ('a -> 'a -> int) -> 'a Sette.t -> 'a Sette.t -> 'a Sette.t
      val inter : ('a -> 'a -> int) -> 'a Sette.t -> 'a Sette.t -> 'a Sette.t
      val diff : ('a -> 'a -> int) -> 'a Sette.t -> 'a Sette.t -> 'a Sette.t
      val equal : ('a -> 'a -> int) -> 'a Sette.t -> 'a Sette.t -> bool
      val compare : ('a -> 'a -> int) -> 'a Sette.t -> 'a Sette.t -> int
      val subset : ('a -> 'a -> int) -> 'a Sette.t -> 'a Sette.t -> bool
      val filter :
        ('a -> 'a -> int) -> ('a -> bool) -> 'a Sette.t -> 'a Sette.t
      val partition :
        ('a -> 'a -> int) ->
        ('a -> bool) -> 'a Sette.t -> 'a Sette.t * 'a Sette.t
    end
end