Compare.Medial_Quasigroup
Q : Interface.MEDIAL_QUASIGROUP
E : Interface.EQ with type t = Q.t
include sig ... end
module I : sig ... end
val cancellative : Q.t -> Q.t -> Q.t -> bool