(* *)
(**************************************************************************)
+include "static_2/syntax/teqx_teqx.ma".
include "basic_2/rt_transition/rpx_reqx.ma".
include "basic_2/rt_transition/cnx.ma".
(* Advanced properties ******************************************************)
lemma cnx_teqx_trans (G) (L):
- â\88\80T1. â\9dªG,Lâ\9d« â\8a¢ â¬\88ð\9d\90\8d T1 â\86\92 â\88\80T2. T1 â\89\9b T2 → ❪G,L❫ ⊢ ⬈𝐍 T2.
+ â\88\80T1. â\9dªG,Lâ\9d« â\8a¢ â¬\88ð\9d\90\8d T1 â\86\92 â\88\80T2. T1 â\89\85 T2 → ❪G,L❫ ⊢ ⬈𝐍 T2.
#G #L #T1 #HT1 #T2 #HT12 #T #HT2
lapply (teqx_cpx_trans … HT12 … HT2) -HT2 #H
lapply (HT1 … H) -HT1 -H /2 width=5 by teqx_canc_sn/ (**) (* full auto fails *)