Section Group.
Variable G : ABELIAN_GROUP.
change
(forall x y : G:ABELIAN_SGROUP, Equal (sgroup_law _ x y) (sgroup_law _ y x))
in |- *; auto with algebra.
Qed.
change
(forall x y z : G:ABELIAN_SGROUP,
Equal (sgroup_law _ x (sgroup_law _ y z))
(sgroup_law _ y (sgroup_law _ x z))) in |- *;
auto with algebra.
Qed.

Lemma ABELIAN_GROUP4 :
forall x y z t : G,
Equal (sgroup_law _ (sgroup_law _ x y) (sgroup_law _ z t))
(sgroup_law _ (sgroup_law _ x z) (sgroup_law _ y t)).