Compare.Medial_Magma
M : Interface.MEDIAL_MAGMA
E : Interface.EQ with type t = M.t
module I : sig ... end
val bicommutativity : M.t -> M.t -> M.t -> M.t -> bool