Compare.Abelian_Group_Any
A : Interface.ABELIAN_GROUP_ANY
E : Interface.EQ1 with type 'a t = 'a A.t
val commutativity : 'a A.t -> 'a A.t -> bool