Parameter Make.P

type t
val compare : t -> t -> int

compare is a total order on t.