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