X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_sor_tls.ma;h=33a55aa150516b362ea096dba5851a798321a9a4;hb=dc605ae41c39773f55381f241b1ed3db4acf5edd;hp=5c055d02e1df9909f51d74ea7d51061618662171;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma
index 5c055d02e..33a55aa15 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_sor_tls.ma
@@ -15,14 +15,14 @@
 include "ground/relocation/gr_tls.ma".
 include "ground/relocation/gr_sor.ma".
 
-(* RELATIONAL UNION FOR GENERIC RELOCATION MAPS ***********************************************************)
+(* RELATIONAL UNION FOR GENERIC RELOCATION MAPS *****************************)
 
-(* Properties with iterated tail ********************************************)
+(* Constructions with gr_tls ************************************************)
 
 (*** sor_tls *)
 lemma gr_sor_tls:
       ∀f1,f2,f. f1 ⋓ f2 ≘ f →
-      ∀n. ⫱*[n]f1 ⋓ ⫱*[n]f2 ≘ ⫱*[n]f.
+      ∀n. ⫰*[n]f1 ⋓ ⫰*[n]f2 ≘ ⫰*[n]f.
 #f1 #f2 #f #Hf #n @(nat_ind_succ … n) -n
 /2 width=1 by gr_sor_tl/
 qed.