module Comparable: Comparable
module type Infix = sig .. end
module type S = sig .. end
module Poly:
functor (T : sigend) -> sig .. endmodule Make:
functor (T : sigtype t
include Sexpable.S
val compare : t -> t -> int
end) -> sig .. endmodule Inherit:
functor (C : S) -> functor (T : sigtype t
include Sexpable.S
val component : t -> C.comparable
end) -> sig .. end
Inherit comparability from a component.