(* Constructions with pr_uni ************************************************)
(*** isuni_uni *)
-lemma pr_isu_uni (n): ð\9d\90\94â\9dªð\9d\90®â\9d¨nâ\9d©â\9d«.
+lemma pr_isu_uni (n): ð\9d\90\94â\9d¨ð\9d\90®â\9d¨nâ\9d©â\9d©.
#n @(nat_ind_succ … n) -n
/3 width=3 by pr_isu_isi, pr_isu_next/
qed.
(* Inversions with pr_uni ***************************************************)
(*** uni_isuni *)
-lemma pr_isu_inv_uni (f): ð\9d\90\94â\9dªfâ\9d« → ∃n. 𝐮❨n❩ ≡ f.
+lemma pr_isu_inv_uni (f): ð\9d\90\94â\9d¨fâ\9d© → ∃n. 𝐮❨n❩ ≡ f.
#f #H elim H -f
[ /3 width=2 by pr_isi_inv_uni, ex_intro/
| #f #_ #g #H * /3 width=6 by pr_eq_next, ex_intro/