]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter.ma
update in ground and static_2
[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / gr_coafter.ma
index bbac0036c1def3567371095c38b4e3f7b1b406aa..2ec6991cf31f9e9f4ce6d2063ef847dbba8f8a6e 100644 (file)
@@ -217,8 +217,8 @@ qed-.
 
 (*** coafter_inv_tl1 *)
 lemma gr_coafter_inv_tl_dx:
-      â\88\80g2,g1,g. g2 ~â\8a\9a â«±g1 ≘ g →
-      â\88\83â\88\83f. â«¯g2 ~â\8a\9a g1 â\89\98 f & â«±f = g.
+      â\88\80g2,g1,g. g2 ~â\8a\9a â«°g1 ≘ g →
+      â\88\83â\88\83f. â«¯g2 ~â\8a\9a g1 â\89\98 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:
-      â\88\80g2,g1,g. g2 ~â\8a\9a g1 â\89\98 â«±g →
-      â\88\83â\88\83f1. â«¯g2 ~â\8a\9a f1 â\89\98 g & â«±f1 = g1.
+      â\88\80g2,g1,g. g2 ~â\8a\9a g1 â\89\98 â«°g →
+      â\88\83â\88\83f1. â«¯g2 ~â\8a\9a f1 â\89\98 g & â«°f1 = g1.
 #g2 #g1 #g
 elim (gr_map_split_tl g) #H1 #H2
 [ /3 width=7 by gr_coafter_refl, ex2_intro/