(* Constructions with pr_tl *************************************************)
-lemma pr_isu_tl (f): ð\9d\90\94â\9dªfâ\9d« â\86\92 ð\9d\90\94â\9dªâ«°fâ\9d«.
+lemma pr_isu_tl (f): ð\9d\90\94â\9d¨fâ\9d© â\86\92 ð\9d\90\94â\9d¨â«°fâ\9d©.
#f cases (pr_map_split_tl f) * #H
[ /3 width=3 by pr_isu_inv_push, pr_isu_isi/
| /2 width=3 by pr_isu_inv_next/
(* Advanced inversions ******************************************************)
(*** isuni_split *)
-lemma pr_isu_split (g): ð\9d\90\94â\9dªgâ\9d« â\86\92 â\88¨â\88¨ (â\88\83â\88\83f. ð\9d\90\88â\9dªfâ\9d« & ⫯f = g) | (â\88\83â\88\83f.ð\9d\90\94â\9dªfâ\9d« & ↑f = g).
+lemma pr_isu_split (g): ð\9d\90\94â\9d¨gâ\9d© â\86\92 â\88¨â\88¨ (â\88\83â\88\83f. ð\9d\90\88â\9d¨fâ\9d© & ⫯f = g) | (â\88\83â\88\83f.ð\9d\90\94â\9d¨fâ\9d© & ↑f = g).
#g elim (pr_map_split_tl g) * #H
/4 width=3 by pr_isu_inv_next, pr_isu_inv_push, or_introl, or_intror, ex2_intro/
qed-.