X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fstatic%2Faaa_lifts.ma;h=7514f6dc5f7e7ae084f92882a3a13581c42f728f;hb=2ba7ef901a6b72210692792f2396c08bc0cff52c;hp=156e75c9d69a5eb9e219b936b561ce1043f680cc;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/static/aaa_lifts.ma b/matita/matita/contribs/lambda_delta/basic_2/static/aaa_lifts.ma index 156e75c9d..7514f6dc5 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/static/aaa_lifts.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/static/aaa_lifts.ma @@ -12,15 +12,15 @@ (* *) (**************************************************************************) -include "Basic_2/unfold/ldrops.ma". -include "Basic_2/static/aaa_lift.ma". +include "basic_2/unfold/ldrops.ma". +include "basic_2/static/aaa_lift.ma". (* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) (* Properties concerning generic relocation *********************************) lemma aaa_lifts: ∀L1,L2,T2,A,des. ⇩*[des] L2 ≡ L1 → ∀T1. ⇧*[des] T1 ≡ T2 → - L1 ⊢ T1 ÷ A → L2 ⊢ T2 ÷ A. + L1 ⊢ T1 ⁝ A → L2 ⊢ T2 ⁝ A. #L1 #L2 #T2 #A #des #H elim H -L1 -L2 -des [ #L #T1 #H #HT1 <(lifts_inv_nil … H) -H //