X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_isf_tl.ma;h=52bc146fef39521e7826e5d021bad71b2092021b;hp=da0992aa002c16292db2b9fe20294fc739710a13;hb=2ed8d2abcc3b0687141b627061b63350a0b200bd;hpb=b367de0252e88d6b0476648d5ceac7e4aeffca27

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isf_tl.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isf_tl.ma
index da0992aa0..52bc146fe 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isf_tl.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isf_tl.ma
@@ -15,9 +15,9 @@
 include "ground/relocation/gr_tl.ma".
 include "ground/relocation/gr_isf.ma".
 
-(* FINITE COLENGTH CONDITION FOR GENERIC RELOCATION MAPS *)
+(* FINITE COLENGTH CONDITION FOR GENERIC RELOCATION MAPS ********************)
 
-(* Properties with tail *****************************************************)
+(* Constructions with gr_tl *************************************************)
 
 (*** isfin_tl *)
 lemma gr_isf_tl (f): 𝐅❪f❫ → 𝐅❪⫱f❫.
@@ -25,7 +25,7 @@ lemma gr_isf_tl (f): 𝐅❪f❫ → 𝐅❪⫱f❫.
 /3 width=3 by gr_isf_inv_push, gr_isf_inv_next/
 qed.
 
-(* Inversion lemmas with tail ***********************************************)
+(* Inversions with gr_tl ****************************************************)
 
 (*** isfin_inv_tl *)
 lemma gr_isf_inv_tl (g): 𝐅❪⫱g❫ → 𝐅❪g❫.