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=147867a8b216bf9234ba673684fe05d252ca3b69;hp=a1bf1e5b8bb1b19158a9886eba13f3d3b1ce8612;hb=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48;hpb=75f395f0febd02de8e0f881d918a8812b1425c8d 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 a1bf1e5b8..147867a8b 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,11 +12,11 @@ (* *) (**************************************************************************) -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". -(* UNCOUNTED CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS ************) +(* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS **************) (* Vector form of forward lemmas with head equivalence for terms ************) @@ -45,7 +45,7 @@ qed-. (* Basic_2A1: was: cpxs_fwd_delta_vector *) lemma cpxs_fwd_delta_drops_vector: ∀h,o,I,G,L,K,V1,i. ⬇*[i] L ≘ K.ⓑ{I}V1 → - ∀V2. ⬆*[⫯i] V1 ≘ V2 → + ∀V2. ⬆*[↑i] V1 ≘ V2 → ∀Vs,U. ⦃G, L⦄ ⊢ ⒶVs.#i ⬈*[h] U → ⒶVs.#i ⩳[h, o] U ∨ ⦃G, L⦄ ⊢ ⒶVs.V2 ⬈*[h] U. #h #o #I #G #L #K #V1 #i #HLK #V2 #HV12 #Vs elim Vs -Vs /2 width=5 by cpxs_fwd_delta_drops/