X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_coafter_pat_tls.ma;h=529b4caa53a9ef90ccc6c7c9adfde41b9c6da2ec;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=13f801e1c2be61e484fd3cb0a3fd1dd6c33feafb;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter_pat_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter_pat_tls.ma
index 13f801e1c..529b4caa5 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter_pat_tls.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_coafter_pat_tls.ma
@@ -15,15 +15,15 @@
 include "ground/relocation/gr_pat_tls.ma".
 include "ground/relocation/gr_coafter_nat_tls.ma".
 
-(* RELATIONAL CO-COMPOSITION FOR GENERIC RELOCATION MAPS ***********************************************************)
+(* RELATIONAL CO-COMPOSITION FOR GENERIC RELOCATION MAPS ********************)
 
-(* Properties with pat and iterated tail ********************************************)
+(* Constructions with gr_pat and gr_tls *************************************)
 
 (* Note: this does not require ↑ first and second j *)
 (*** coafter_tls_succ *)
 lemma gr_coafter_tls_tl_tls:
       ∀g2,g1,g. g2 ~⊚ g1 ≘ g →
-      ∀j. @❪𝟏, g2❫ ≘ j → ⫱*[j]g2 ~⊚ ⫱g1 ≘ ⫱*[j]g.
+      ∀j. @❪𝟏, g2❫ ≘ j → ⫰*[j]g2 ~⊚ ⫰g1 ≘ ⫰*[j]g.
 #g2 #g1 #g #Hg #j #Hg2
 lapply (gr_nat_pred_bi … Hg2) -Hg2 #Hg2
 lapply (gr_coafter_tls_bi_tls … Hg2 … Hg) -Hg #Hg
@@ -36,7 +36,7 @@ qed.
 (* Note: parked for now
 lemma coafter_fwd_xpx_pushs:
       ∀g2,f1,g,i,j. @❪i, g2❫ ≘ j → g2 ~⊚ ⫯*[i]⫯f1 ≘ g →
-      ∃∃f.  ⫱*[↑j]g2 ~⊚ f1 ≘ f & ⫯*[j]⫯f = g.
+      ∃∃f.  ⫰*[↑j]g2 ~⊚ f1 ≘ f & ⫯*[j]⫯f = g.
 #g2 #g1 #g #i #j #Hg2 <pushs_xn #Hg(coafter_fwd_pushs … Hg Hg2) #f #H0 destruct
 lapply (coafter_tls … Hg2 Hg) -Hg <tls_pushs <tls_pushs #Hf
 lapply (at_inv_tls … Hg2) -Hg2 #H
@@ -47,7 +47,7 @@ qed-.
 
 lemma coafter_fwd_xnx_pushs:
       ∀g2,f1,g,i,j. @❪i, g2❫ ≘ j → g2 ~⊚ ⫯*[i]↑f1 ≘ g →
-      ∃∃f. ⫱*[↑j]g2 ~⊚ f1 ≘ f & ⫯*[j] ↑f = g.
+      ∃∃f. ⫰*[↑j]g2 ~⊚ f1 ≘ f & ⫯*[j] ↑f = g.
 #g2 #g1 #g #i #j #Hg2 #Hg
 elim (coafter_fwd_pushs … Hg Hg2) #f #H0 destruct
 lapply (coafter_tls … Hg2 Hg) -Hg <tls_pushs <tls_pushs #Hf