X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Funfold%2Flifts_lift.ma;h=6ad3ff0156d7d0defea7ff93c263897eb53d7409;hb=eae50cc815292d335df1c488a00b39ef98fa5870;hp=3f63d2eb86471cf42870576fd6c5b92764c3c27e;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lift.ma b/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lift.ma index 3f63d2eb8..6ad3ff015 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lift.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/unfold/lifts_lift.ma @@ -12,9 +12,9 @@ (* *) (**************************************************************************) -include "Basic_2/substitution/lift_lift.ma". -include "Basic_2/unfold/gr2_minus.ma". -include "Basic_2/unfold/lifts.ma". +include "basic_2/substitution/lift_lift.ma". +include "basic_2/unfold/gr2_minus.ma". +include "basic_2/unfold/lifts.ma". (* GENERIC TERM RELOCATION **************************************************) @@ -32,7 +32,7 @@ lemma lifts_lift_trans_le: ∀T1,T,des. ⇧*[des] T1 ≡ T → ∀T2. ⇧[0, 1] qed-. (* Basic_1: was: lift1_free (right to left) *) -lemma lifts_lift_trans: ∀des,i,i0. @[i] des ≡ i0 → +lemma lifts_lift_trans: ∀des,i,i0. @⦃i, des⦄ ≡ i0 → ∀des0. des + 1 ▭ i + 1 ≡ des0 + 1 → ∀T1,T0. ⇧*[des0] T1 ≡ T0 → ∀T2. ⇧[O, i0 + 1] T0 ≡ T2 →