X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx_cnx.ma;h=2b6ef64ae1e133e848ea5bc76b365e0679186018;hb=6167cca50de37eba76a062537b24f7caef5b34f2;hp=a60e62ada29180a57a0f2250996fd799ab603fde;hpb=6d49221c1fefe6a2c5bddb3db24d3698414a700f;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 a60e62ada..2b6ef64ae 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 @@ -21,7 +21,7 @@ include "basic_2/rt_transition/cnx.ma". (* Advanced properties ******************************************************) lemma cnx_tdeq_trans: ∀h,o,G,L,T1. ⦃G, L⦄ ⊢ ⬈[h, o] 𝐍⦃T1⦄ → - ∀T2. T1 ≡[h, o] T2 → ⦃G, L⦄ ⊢ ⬈[h, o] 𝐍⦃T2⦄. + ∀T2. T1 ≛[h, o] T2 → ⦃G, L⦄ ⊢ ⬈[h, o] 𝐍⦃T2⦄. #h #o #G #L #T1 #HT1 #T2 #HT12 #T #HT2 elim (tdeq_cpx_trans … HT12 … HT2) -HT2 #T0 #HT10 #HT0 lapply (HT1 … HT10) -HT1 -HT10 /2 width=5 by tdeq_repl/ (**) (* full auto fails *)