X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Funfold%2Flstas_lift.ma;h=1586e7729c632e6ce3a279bb31da3019d2742444;hp=d6114a611bb216f2374781a8e1bb5eb0868c6294;hb=2f6f2b7c01d47d23f61dd48d767bcb37aecdcfea;hpb=3a4509b8e569181979f5b15808361c83eb1ae49a

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/unfold/lstas_lift.ma b/matita/matita/contribs/lambdadelta/basic_2A/unfold/lstas_lift.ma
index d6114a611..1586e7729 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/unfold/lstas_lift.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/unfold/lstas_lift.ma
@@ -19,7 +19,6 @@ include "basic_2A/unfold/lstas.ma".
 
 (* Properties on relocation *************************************************)
 
-(* Basic_1: was just: sty0_lift *)
 lemma lstas_lift: ∀h,G,d. d_liftable (lstas h G d).
 #h #G #d #L1 #T1 #U1 #H elim H -G -L1 -T1 -U1 -d
 [ #G #L1 #d #k #L2 #s #l #m #HL21 #X1 #H1 #X2 #H2
@@ -68,7 +67,6 @@ qed.
 
 (* Inversion lemmas on relocation *******************************************)
 
-(* Note: apparently this was missing in basic_1 *)
 lemma lstas_inv_lift1: ∀h,G,d. d_deliftable_sn (lstas h G d).
 #h #G #d #L2 #T2 #U2 #H elim H -G -L2 -T2 -U2 -d
 [ #G #L2 #d #k #L1 #s #l #m #_ #X #H