Compare.Abelian_Group
A : Interface.ABELIAN_GROUP
E : Interface.EQ with type t = A.t
val commutativity : A.t -> A.t -> bool