X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpxs_theq.ma;h=4bd1dd0c14cff76f95efd2cc681cf361f6ed3266;hb=19a25bf176255055193372554437729a6fa1894c;hp=4235b4e30c7b28ff87b180e6d2a2e7f001855c37;hpb=f129bbbfda0e65a5f92ec086246f6e288376d4f9;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma index 4235b4e30..4bd1dd0c1 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma @@ -12,10 +12,10 @@ (* *) (**************************************************************************) -include "basic_2/syntax/theq_tdeq.ma". +include "static_2/syntax/theq_tdeq.ma". include "basic_2/rt_computation/cpxs_lsubr.ma". include "basic_2/rt_computation/cpxs_cnx.ma". -include "basic_2/rt_computation/lfpxs_cpxs.ma". +include "basic_2/rt_computation/lpxs_cpxs.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS **************) @@ -64,7 +64,7 @@ lemma cpxs_fwd_theta: ∀h,o,p,G,L,V1,V,T,U. ⦃G, L⦄ ⊢ ⓐV1.ⓓ{p}V.T ⬈* elim (cpxs_inv_appl1 … H) -H * [ -HV12 #V0 #T0 #_ #_ #H destruct /2 width=1 by theq_pair, or_introl/ | #q #W #T0 #HT0 #HU - elim (cpxs_inv_abbr1 … HT0) -HT0 * + elim (cpxs_inv_abbr1_dx … HT0) -HT0 * [ #V3 #T3 #_ #_ #H destruct | #X #HT2 #H #H0 destruct elim (lifts_inv_bind1 … H) -H #W2 #T2 #HW2 #HT02 #H destruct @@ -75,7 +75,7 @@ elim (cpxs_inv_appl1 … H) -H * ] | #q #V3 #V4 #V0 #T0 #HV13 #HV34 #HT0 #HU @or_intror @(cpxs_trans … HU) -U (**) (* explicit constructor *) - elim (cpxs_inv_abbr1 … HT0) -HT0 * + elim (cpxs_inv_abbr1_dx … HT0) -HT0 * [ #V5 #T5 #HV5 #HT5 #H destruct /6 width=9 by cpxs_lifts_bi, drops_refl, drops_drop, cpxs_flat, cpxs_bind/ | #X #HT1 #H #H0 destruct