Base.Identifiablemodule type Arg = sig ... endmodule type Arg_with_comparator = sig ... endmodule type S = sig ... endUsed for making an Identifiable module. Here's an example.
module Make_using_comparator
  (M : Arg_with_comparator) : 
  S with type t := M.t with type comparator_witness := M.comparator_witness