X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_after_pat_tls.ma;h=4c0623e6ef9b42f621d57149d1b87a9917e9826a;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=4968977cf66432af934192e6a33c70aefea21148;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_tls.ma
index 4968977cf..4c0623e6e 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_tls.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_after_pat_tls.ma
@@ -16,15 +16,15 @@ include "ground/relocation/gr_tls.ma".
 include "ground/relocation/gr_pat.ma".
 include "ground/relocation/gr_after.ma".
 
-(* RELATIONAL COMPOSITION FOR GENERIC RELOCATION MAPS ***********************************************************)
+(* RELATIONAL COMPOSITION FOR GENERIC RELOCATION MAPS ***********************)
 
-(* Properties on pat and tls ********************************************************)
+(* Constructions with gr_pat and gr_tls *************************************)
 
 (* Note: this requires ↑ on first n *)
 (*** after_tls *)
 lemma gr_after_tls_sn_tls (n):
       ∀f1,f2,f. @❪𝟏, f1❫ ≘ ↑n →
-      f1 ⊚ f2 ≘ f → ⫱*[n]f1 ⊚ f2 ≘ ⫱*[n]f.
+      f1 ⊚ f2 ≘ f → ⫰*[n]f1 ⊚ f2 ≘ ⫰*[n]f.
 #n @(nat_ind_succ … n) -n //
 #n #IH #f1 #f2 #f #Hf1 #Hf
 cases (gr_pat_inv_unit_succ … Hf1) -Hf1 [ |*: // ] #g1 #Hg1 #H1