X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx_basic.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx_basic.ma;h=b99b444cc7e261865883e12099342fdbaeca0293;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=41cb6dad884cb758007a1bf1b5f6e2c7a8219fa8;hpb=ca7327c20c6031829fade8bb84a3a1bb66113f54;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_basic.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_basic.ma index 41cb6dad8..b99b444cc 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_basic.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_basic.ma @@ -20,7 +20,8 @@ include "basic_2/rt_transition/cnx.ma". (* Advanced inversion lemmas ************************************************) -lemma cnx_inv_abbr_pos (h) (G) (L): ∀V,T. ❪G,L❫ ⊢ ⬈[h] 𝐍❪+ⓓV.T❫ → ⊥. +lemma cnx_inv_abbr_pos (h) (G) (L): + ∀V,T. ❪G,L❫ ⊢ ⬈𝐍[h] +ⓓV.T → ⊥. #h #G #L #V #U1 #H elim (cpx_subst h G (L.ⓓV) U1 … 0) [|*: /2 width=4 by drops_refl/ ] #U2 #T2 #HU12 #HTU2 elim (teqx_dec U1 U2) #HnU12 [ -HU12 | -HTU2 ]