(* Properties with isid *****************************************************)
-corec lemma sdj_isid_dx: â\88\80f2. ð\9d\90\88â¦\83f2â¦\84 → ∀f1. f1 ∥ f2.
+corec lemma sdj_isid_dx: â\88\80f2. ð\9d\90\88â\9dªf2â\9d« → ∀f1. f1 ∥ f2.
#f2 * -f2
#f2 #g2 #Hf2 #H2 #f1 cases (pn_split f1) *
/3 width=5 by sdj_np, sdj_pp/
qed.
-corec lemma sdj_isid_sn: â\88\80f1. ð\9d\90\88â¦\83f1â¦\84 → ∀f2. f1 ∥ f2.
+corec lemma sdj_isid_sn: â\88\80f1. ð\9d\90\88â\9dªf1â\9d« → ∀f2. f1 ∥ f2.
#f1 * -f1
#f1 #g1 #Hf1 #H1 #f2 cases (pn_split f2) *
/3 width=5 by sdj_pn, sdj_pp/
(* Inversion lemmas with isid ***********************************************)
-corec lemma sdj_inv_refl: â\88\80f. f â\88¥ f â\86\92 ð\9d\90\88â¦\83fâ¦\84.
+corec lemma sdj_inv_refl: â\88\80f. f â\88¥ f â\86\92 ð\9d\90\88â\9dªfâ\9d«.
#f cases (pn_split f) * #g #Hg #H
[ lapply (sdj_inv_pp … H … Hg Hg) -H /3 width=3 by isid_push/
| elim (sdj_inv_nn … H … Hg Hg)