X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpxs_theq_vector.ma;h=8c03262064abb5b3cda28727b778ae581fe9a981;hp=9fb405b0c26820a925217bb7e6b29b9aca6e773d;hb=19a25bf176255055193372554437729a6fa1894c;hpb=f129bbbfda0e65a5f92ec086246f6e288376d4f9 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma index 9fb405b0c..8c0326206 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/syntax/theq_simple_vector.ma". -include "basic_2/relocation/lifts_vector.ma". +include "static_2/syntax/theq_simple_vector.ma". +include "static_2/relocation/lifts_vector.ma". include "basic_2/rt_computation/cpxs_theq.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS **************) @@ -112,7 +112,7 @@ elim (cpxs_inv_appl1 … H) -H * elim (theq_inv_pair1 … HT0) #V1 #T1 #H destruct | @or_intror -V1b (**) (* explicit constructor *) @(cpxs_trans … HU) -U - elim (cpxs_inv_abbr1 … HT0) -HT0 * + elim (cpxs_inv_abbr1_dx … HT0) -HT0 * [ -HV12a #V1 #T1 #_ #_ #H destruct | -V1b #X #HT1 #H #H0 destruct elim (lifts_inv_bind1 … H) -H #W1 #T1 #HW01 #HT01 #H destruct @@ -127,7 +127,7 @@ elim (cpxs_inv_appl1 … H) -H * elim (theq_inv_pair1 … HT0) #V1 #T1 #H destruct | @or_intror -V1b -V1b (**) (* explicit constructor *) @(cpxs_trans … HU) -U - elim (cpxs_inv_abbr1 … HT0) -HT0 * + elim (cpxs_inv_abbr1_dx … HT0) -HT0 * [ #V1 #T1 #HV1 #HT1 #H destruct lapply (cpxs_lifts_bi … HV10a (Ⓣ) … (L.ⓓV) … HV12a … HV0a) -V1a -V0a /3 width=1 by drops_refl, drops_drop/ #HV2a @(cpxs_trans … (ⓓ{p}V.ⓐV2a.T1)) /3 width=1 by cpxs_bind, cpxs_pair_sn, cpxs_flat_dx, cpxs_bind_dx/