X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Funfold%2Flifts_lifts.ma;h=72948f04b618bac45ab397b9c1efe8f451259a7f;hb=ba575c0609015580c1419c17b350de19a158e8e3;hp=0ea0a2186c46daedd367b2ab8001179788410cc4;hpb=a8c166f1e1baeeae04553058bd179420ada8bbe7;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lifts.ma b/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lifts.ma index 0ea0a2186..72948f04b 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lifts.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lifts.ma @@ -20,6 +20,6 @@ include "basic_2/unfold/lifts_lift.ma". (* Basic_1: was: lift1_lift1 (left to right) *) theorem lifts_trans: ∀T1,T,des1. ⇧*[des1] T1 ≡ T → ∀T2:term. ∀des2. ⇧*[des2] T ≡ T2 → - ⇧*[des1 @ des2] T1 ≡ T2. + ⇧*[des1 @@ des2] T1 ≡ T2. #T1 #T #des1 #H elim H -T1 -T -des1 // /3 width=3/ qed.