X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fdama%2Fgroups.ma;h=f2b4bd01cfc47198e66f7a52130c38410778b7c9;hb=c40f6b8c6e102846328a1ff10717eb001c2c827a;hp=0df357af57a4a52084a41ad238c2d62fc9c43859;hpb=66faca1dc849662e27d760b950294ef66a5741b3;p=helm.git

diff --git a/helm/software/matita/dama/groups.ma b/helm/software/matita/dama/groups.ma
index 0df357af5..f2b4bd01c 100644
--- a/helm/software/matita/dama/groups.ma
+++ b/helm/software/matita/dama/groups.ma
@@ -182,26 +182,26 @@ intros (G x y z H1 H2); apply eq_sym; apply (feq_oppr ??y);
 [2:apply eq_sym] assumption;
 qed.
 
-lemma eq_opp: ∀G:abelian_group.∀x,y:G. x ≈ y → -x ≈ -y.
+lemma feq_opp: ∀G:abelian_group.∀x,y:G. x ≈ y → -x ≈ -y.
 intros (G x y H); apply (feq_oppl ??y ? H); apply eq_reflexive;
 qed.
 
-coercion cic:/matita/groups/eq_opp.con nocomposites.
+coercion cic:/matita/groups/feq_opp.con nocomposites.
 
 lemma eq_opp_sym: ∀G:abelian_group.∀x,y:G. y ≈ x → -x ≈ -y.
-compose eq_opp with eq_sym (H); apply H; assumption;
+compose feq_opp with eq_sym (H); apply H; assumption;
 qed.
 
 coercion cic:/matita/groups/eq_opp_sym.con nocomposites.
 
 lemma eq_opp_plusr: ∀G:abelian_group.∀x,y,z:G. x ≈ y → -(x + z) ≈ -(y + z).
-compose feq_plusr with eq_opp(H); apply H; assumption;
+compose feq_plusr with feq_opp(H); apply H; assumption;
 qed.
 
 coercion cic:/matita/groups/eq_opp_plusr.con nocomposites.
 
 lemma eq_opp_plusl: ∀G:abelian_group.∀x,y,z:G. x ≈ y → -(z + x) ≈ -(z + y).
-compose feq_plusl with eq_opp(H); apply H; assumption;
+compose feq_plusl with feq_opp(H); apply H; assumption;
 qed.
 
 coercion cic:/matita/groups/eq_opp_plusl.con nocomposites.