X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx_cnx.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx_cnx.ma;h=a93454c7d041eef0535c04d7a873e0feab73c683;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=76739178d0724cdddd5949bc6af1542111f98cfb;hpb=ca7327c20c6031829fade8bb84a3a1bb66113f54;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_cnx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_cnx.ma index 76739178d..a93454c7d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_cnx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_cnx.ma @@ -19,8 +19,8 @@ include "basic_2/rt_transition/cnx.ma". (* Advanced properties ******************************************************) -lemma cnx_teqx_trans: ∀h,G,L,T1. ❪G,L❫ ⊢ ⬈[h] 𝐍❪T1❫ → - ∀T2. T1 ≛ T2 → ❪G,L❫ ⊢ ⬈[h] 𝐍❪T2❫. +lemma cnx_teqx_trans: ∀h,G,L,T1. ❪G,L❫ ⊢ ⬈𝐍[h] T1 → + ∀T2. T1 ≛ T2 → ❪G,L❫ ⊢ ⬈𝐍[h] T2. #h #G #L #T1 #HT1 #T2 #HT12 #T #HT2 elim (teqx_cpx_trans … HT12 … HT2) -HT2 #T0 #HT10 #HT0 lapply (HT1 … HT10) -HT1 -HT10 /2 width=5 by teqx_repl/ (**) (* full auto fails *)