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.ma;h=d9e982b5e09610c1d509b9fccf6f1c321f25c77c;hp=580f90ab2bd05b3454a730799f63efdf9c2a0588;hb=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48;hpb=75f395f0febd02de8e0f881d918a8812b1425c8d 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 580f90ab2..d9e982b5e 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,12 +12,12 @@ (* *) (**************************************************************************) -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". -(* UNCOUNTED CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS ************) +(* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS **************) (* Forward lemmas with head equivalence for terms ***************************) @@ -33,7 +33,7 @@ qed-. (* Note: probably this is an inversion lemma *) (* Basic_2A1: was: cpxs_fwd_delta *) lemma cpxs_fwd_delta_drops: ∀h,o,I,G,L,K,V1,i. ⬇*[i] L ≘ K.ⓑ{I}V1 → - ∀V2. ⬆*[⫯i] V1 ≘ V2 → + ∀V2. ⬆*[↑i] V1 ≘ V2 → ∀U. ⦃G, L⦄ ⊢ #i ⬈*[h] U → #i ⩳[h, o] U ∨ ⦃G, L⦄ ⊢ V2 ⬈*[h] U. #h #o #I #G #L #K #V1 #i #HLK #V2 #HV12 #U #H