module type Infix = Polymorphic_compare_intf.Infixmodule type Polymorphic_compare = Polymorphic_compare_intf.Smodule type Validate : sig ... endmodule type With_zero : sig ... endmodule type S : sig ... endUsage example:
module Foo : sig
type t = ...
include Comparable.S with type t := t
end
Then use Comparable.Make in the struct (see comparable.mli for an example).