X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx_basic.ma;h=9558948137fad3bac326e3f6efdf03e7112afc95;hb=HEAD;hp=1532cfcf67a0d169dbcbebef6b3c341faf1cde7b;hpb=3c7b4071a9ac096b02334c1d47468776b948e2de;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 1532cfcf6..955894813 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 @@ -21,7 +21,7 @@ include "basic_2/rt_transition/cnx.ma". (* Advanced inversion lemmas ************************************************) lemma cnx_inv_abbr_pos (G) (L): - ∀V,T. ❪G,L❫ ⊢ ⬈𝐍 +ⓓV.T → ⊥. + ∀V,T. ❨G,L❩ ⊢ ⬈𝐍 +ⓓV.T → ⊥. #G #L #V #U1 #H elim (cpx_subst G (L.ⓓV) U1 … 0) [|*: /2 width=4 by drops_refl/ ] #U2 #T2 #HU12 #HTU2 elim (teqx_dec U1 U2) #HnU12 [ -HU12 | -HTU2 ]