X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsubstitution%2Flift.ma;h=84babbdc8fa8c3fb48b4643952221f93e55b9323;hb=08cb57944c0df08611d4f35d286e46c0d13e4813;hp=ec2cc2df5edcb18e584f4f01675fc07bd825f2c6;hpb=9245402674a791dfdb943902f8288d742088c854;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/substitution/lift.ma b/matita/matita/contribs/lambdadelta/basic_2/substitution/lift.ma index ec2cc2df5..84babbdc8 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/substitution/lift.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/substitution/lift.ma @@ -290,7 +290,7 @@ lemma lift_simple_sn: ∀d,e,T1,T2. ⇧[d, e] T1 ≡ T2 → 𝐒⦃T2⦄ → #d #e #T1 #T2 #H elim H -d -e -T1 -T2 // #a #I #V1 #V2 #T1 #T2 #d #e #_ #_ #_ #_ #H elim (simple_inv_bind … H) -qed-. +qed-. (* Basic properties *********************************************************) @@ -394,7 +394,7 @@ lemma t_deliftable_sn_TC: ∀R. t_deliftable_sn R → t_deliftable_sn (TC … R) elim (IHU1 … HTU1) -U1 #T #HTU #HT1 elim (HR … HU2 … HTU) -U /3 width=5/ ] -qed-. +qed-. (* Basic_1: removed theorems 7: lift_head lift_gen_head