Parameter Make.X

type t
include Ppx_compare_lib.Comparable.S with type t := t
val compare : t Base__Ppx_compare_lib.compare
include Ppx_compare_lib.Equal.S with type t := t
val equal : t Base__Ppx_compare_lib.equal
val is_simpler_than : t -> t -> bool

will be used to choose a "simpler" representative for a given equivalence class when possible