(* Advanced properties ******************************************************)
lemma lsstas_fpbg: ∀h,g,G,L,T1,T2,l2. ⦃G, L⦄ ⊢ T1 •*[h, g, l2] T2 → (T1 = T2 → ⊥) →
- â\88\80l1. l2 â\89¤ l1 â\86\92 â¦\83G, Lâ¦\84 â\8a¢ T1 â\96ª[h, g] l1 â\86\92 â¦\83G, L, T1â¦\84 >â\8b\95[h, g] ⦃G, L, T2⦄.
+ â\88\80l1. l2 â\89¤ l1 â\86\92 â¦\83G, Lâ¦\84 â\8a¢ T1 â\96ª[h, g] l1 â\86\92 â¦\83G, L, T1â¦\84 >â\89¡[h, g] ⦃G, L, T2⦄.
/5 width=5 by fpbc_fpbg, fpbu_fpbc, lsstas_fpbu/ qed.
lemma ssta_fpbg: ∀h,g,G,L,T1,T2,l. ⦃G, L⦄ ⊢ T1 ▪[h, g] l+1 →
- â¦\83G, Lâ¦\84 â\8a¢ T1 â\80¢[h, g] T2 â\86\92 â¦\83G, L, T1â¦\84 >â\8b\95[h, g] ⦃G, L, T2⦄.
+ â¦\83G, Lâ¦\84 â\8a¢ T1 â\80¢[h, g] T2 â\86\92 â¦\83G, L, T1â¦\84 >â\89¡[h, g] ⦃G, L, T2⦄.
/4 width=2 by fpbc_fpbg, fpbu_fpbc, ssta_fpbu/ qed.