Verify.Medial_Quasigroup
Q : Interface.MEDIAL_QUASIGROUP
include sig ... end
module I : sig ... end
val cancellative : Q.t -> Q.t -> Q.t -> bool