update in ground

[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / gr_after_pat_tls.ma

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 4968977cf66432af934192e6a33c70aefea21148..4c0623e6ef9b42f621d57149d1b87a9917e9826a 100644 (file)
--- 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 â\8a\9a f2 â\89\98 f â\86\92 ⫱*[n]f1 â\8a\9a f2 â\89\98 ⫱*[n]f.
+      f1 â\8a\9a f2 â\89\98 f â\86\92 â«°*[n]f1 â\8a\9a f2 â\89\98 â«°*[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