X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx_drops.ma;h=2e593f991b8040673256f39b789216ecec5174ee;hp=caf9b8dd07b78d8152344a1ea301cdc761ef6d5f;hb=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48;hpb=75f395f0febd02de8e0f881d918a8812b1425c8d diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma index caf9b8dd0..2e593f991 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma @@ -12,11 +12,11 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lifts_tdeq.ma". +include "static_2/relocation/lifts_tdeq.ma". include "basic_2/rt_transition/cpx_drops.ma". include "basic_2/rt_transition/cnx.ma". -(* NORMAL TERMS FOR UNCOUNTED CONTEXT-SENSITIVE PARALLEL RT-TRANSITION ******) +(* NORMAL TERMS FOR UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION ********) (* Properties with generic slicing ******************************************) @@ -42,7 +42,7 @@ qed-. (* Basic_2A1: was: cnx_inv_delta *) lemma cnx_inv_lref_pair: ∀h,o,I,G,L,K,V,i. ⬇*[i] L ≘ K.ⓑ{I}V → ⦃G, L⦄ ⊢ ⬈[h, o] 𝐍⦃#i⦄ → ⊥. #h #o #I #G #L #K #V #i #HLK #H -elim (lifts_total V (𝐔❴⫯i❵)) #W #HVW +elim (lifts_total V (𝐔❴↑i❵)) #W #HVW lapply (H W ?) -H /2 width=7 by cpx_delta_drops/ -HLK #H lapply (tdeq_inv_lref1 … H) -H #H destruct /2 width=5 by lifts_inv_lref2_uni_lt/