module type S = sig
  include Set.S
  val exists_opt: (elt -> 'a option) -> t -> 'a option
end

module Make(Elt: Set.OrderedType): S
  with type elt = Elt.t
   and type t   = Set.Make(Elt).t