(* Properties with isid *****************************************************)
-corec lemma sle_isid_sn: â\88\80f1. ð\9d\90\88â¦\83f1â¦\84 → ∀f2. f1 ⊆ f2.
+corec lemma sle_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 sle_weak, sle_push/
(* Inversion lemmas with isid ***********************************************)
-corec lemma sle_inv_isid_dx: â\88\80f1,f2. f1 â\8a\86 f2 â\86\92 ð\9d\90\88â¦\83f2â¦\84 â\86\92 ð\9d\90\88â¦\83f1â¦\84.
+corec lemma sle_inv_isid_dx: â\88\80f1,f2. f1 â\8a\86 f2 â\86\92 ð\9d\90\88â\9dªf2â\9d« â\86\92 ð\9d\90\88â\9dªf1â\9d«.
#f1 #f2 * -f1 -f2
#f1 #f2 #g1 #g2 #Hf * * #H
[2,3: elim (isid_inv_next … H) // ]
(* Properties with isdiv ****************************************************)
-corec lemma sle_isdiv_dx: â\88\80f2. ð\9d\9b\80â¦\83f2â¦\84 → ∀f1. f1 ⊆ f2.
+corec lemma sle_isdiv_dx: â\88\80f2. ð\9d\9b\80â\9dªf2â\9d« → ∀f1. f1 ⊆ f2.
#f2 * -f2
#f2 #g2 #Hf2 #H2 #f1 cases (pn_split f1) *
/3 width=5 by sle_weak, sle_next/
(* Inversion lemmas with isdiv **********************************************)
-corec lemma sle_inv_isdiv_sn: â\88\80f1,f2. f1 â\8a\86 f2 â\86\92 ð\9d\9b\80â¦\83f1â¦\84 â\86\92 ð\9d\9b\80â¦\83f2â¦\84.
+corec lemma sle_inv_isdiv_sn: â\88\80f1,f2. f1 â\8a\86 f2 â\86\92 ð\9d\9b\80â\9dªf1â\9d« â\86\92 ð\9d\9b\80â\9dªf2â\9d«.
#f1 #f2 * -f1 -f2
#f1 #f2 #g1 #g2 #Hf * * #H
[1,3: elim (isdiv_inv_push … H) // ]