module type S = sig ... end
module type T = sig ... end
module Make (S : S) : T with type 'a t = 'a S.t
