X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_coafter.ma;h=2ec6991cf31f9e9f4ce6d2063ef847dbba8f8a6e;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=bbac0036c1def3567371095c38b4e3f7b1b406aa;hpb=2ed8d2abcc3b0687141b627061b63350a0b200bd;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter.ma
index bbac0036c..2ec6991cf 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter.ma
@@ -217,8 +217,8 @@ qed-.
 
 (*** coafter_inv_tl1 *)
 lemma gr_coafter_inv_tl_dx:
-      ∀g2,g1,g. g2 ~⊚ ⫱g1 ≘ g →
-      ∃∃f. ⫯g2 ~⊚ g1 ≘ f & ⫱f = g.
+      ∀g2,g1,g. g2 ~⊚ ⫰g1 ≘ g →
+      ∃∃f. ⫯g2 ~⊚ g1 ≘ f & ⫰f = g.
 #g2 #g1 #g
 elim (gr_map_split_tl g1) #H1 #H2
 [ /3 width=7 by gr_coafter_refl, ex2_intro/
@@ -228,8 +228,8 @@ qed-.
 
 (*** coafter_inv_tl0 *)
 lemma gr_coafter_inv_tl:
-      ∀g2,g1,g. g2 ~⊚ g1 ≘ ⫱g →
-      ∃∃f1. ⫯g2 ~⊚ f1 ≘ g & ⫱f1 = g1.
+      ∀g2,g1,g. g2 ~⊚ g1 ≘ ⫰g →
+      ∃∃f1. ⫯g2 ~⊚ f1 ≘ g & ⫰f1 = g1.
 #g2 #g1 #g
 elim (gr_map_split_tl g) #H1 #H2
 [ /3 width=7 by gr_coafter_refl, ex2_intro/