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

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_sle_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_sle_tls.ma
index 102c37ceb..ea319ccda 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_sle_tls.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_sle_tls.ma
@@ -15,13 +15,13 @@
 include "ground/relocation/gr_tls.ma".
 include "ground/relocation/gr_sle.ma".
 
-(* INCLUSION FOR GENERIC RELOCATION MAPS ***********************************************************)
+(* INCLUSION FOR GENERIC RELOCATION MAPS ************************************)
 
-(* Properties with iterated tail ********************************************)
+(* Constructions with gr_tls ************************************************)
 
 (*** sle_tls *)
 lemma gr_sle_tls:
-      ∀f1,f2. f1 ⊆ f2 → ∀n. ⫱*[n] f1 ⊆ ⫱*[n] f2.
+      ∀f1,f2. f1 ⊆ f2 → ∀n. ⫰*[n] f1 ⊆ ⫰*[n] f2.
 #f1 #f2 #Hf12 #n @(nat_ind_succ … n) -n
 /2 width=5 by gr_sle_tl/
 qed.