sig
  type elt
  type t
  val create : int -> Hashset.S.t
  val clear : Hashset.S.t -> unit
  val copy : Hashset.S.t -> Hashset.S.t
  val add : Hashset.S.t -> Hashset.S.elt -> unit
  val remove : Hashset.S.t -> Hashset.S.elt -> unit
  val mem : Hashset.S.t -> Hashset.S.elt -> bool
  val cardinal : Hashset.S.t -> int
  val iter : (Hashset.S.elt -> unit) -> Hashset.S.t -> unit
  val fold : (Hashset.S.elt -> 'a -> 'a) -> Hashset.S.t -> 'a -> 'a
  val exists : (Hashset.S.elt -> bool) -> Hashset.S.t -> bool
  val for_all : (Hashset.S.elt -> bool) -> Hashset.S.t -> bool
  val left_union : Hashset.S.t -> Hashset.S.t -> Hashset.S.t
  val is_empty : Hashset.S.t -> bool
  val filter : (Hashset.S.elt -> bool) -> Hashset.S.t -> unit
  val to_string : Hashset.S.t -> string
  val of_list : Hashset.S.elt list -> Hashset.S.t
  val to_list : Hashset.S.t -> Hashset.S.elt list
  val map_to :
    ('b -> 'a -> 'a) -> 'a -> (Hashset.S.elt -> 'b) -> Hashset.S.t -> 'a
end