lemma jsx_csx_conf (h) (G):
∀L1,L2. G ⊢ L1 ⊒[h] L2 →
- â\88\80T. â¦\83G,L1â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84 â\86\92 â¦\83G,L2â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84.
+ â\88\80T. â\9dªG,L1â\9d« â\8a¢ â¬\88*ð\9d\90\92[h] T â\86\92 â\9dªG,L2â\9d« â\8a¢ â¬\88*ð\9d\90\92[h] T.
/3 width=5 by jsx_fwd_lsubr, csx_lsubr_conf/ qed-.
(* Properties with strongly rt-normalizing referred local environments ******)
-(* Note: Try by induction on the 2nd premise by generalizing V with f *)
+(* Note: Try by induction on the 2nd premise by generalizing V with f *)
lemma rsx_jsx_trans (h) (G):
- ∀L1,V. G ⊢ ⬈*[h,V] 𝐒⦃L1⦄ →
- ∀L2. G ⊢ L1 ⊒[h] L2 → G ⊢ ⬈*[h,V] 𝐒⦃L2⦄.
+ ∀L1,V. G ⊢ ⬈*𝐒[h,V] L1 →
+ ∀L2. G ⊢ L1 ⊒[h] L2 → G ⊢ ⬈*𝐒[h,V] L2.
#h #G #L1 #V @(fqup_wf_ind_eq (Ⓕ) … G L1 V) -G -L1 -V
#G0 #L0 #V0 #IH #G #L1 * *
[ //