Module Fixpoint

module type S = sig ... end
module OfSet (X : Set.S) : S with type elt = X.elt and type t = X.t