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=5613a25cee29ef32a597cb4b44e8f2f4d71c4df0;hp=6062f89b1ea4d64453e43b3668ed84d579fe9568;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;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 6062f89b1..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 @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "Basic_2/unfold/lifts_lift.ma". +include "basic_2/unfold/lifts_lift.ma". (* GENERIC RELOCATION *******************************************************) @@ -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.