Compare.Medial_Magma
M : Interface.MEDIAL_MAGMA
E : sig ... end
A : sig ... end
module V : sig ... end
val suite : string -> T.test T.suite