(* Constructions with pr_eq *************************************************)
-corec lemma pr_id_eq (f): ⫯f â\89¡ f â\86\92 ð\9d\90¢ â\89¡ f.
+corec lemma pr_id_eq (f): ⫯f â\89\90 f â\86\92 ð\9d\90¢ â\89\90 f.
cases pr_id_unfold #Hf
cases (pr_eq_inv_push_sn … Hf) [|*: // ] #_ #H
cases H in Hf; -H #Hf
(* Inversions with pr_eq ****************************************************)
(* Note: this has the same proof of the previous *)
-corec lemma pr_id_inv_eq (f): ð\9d\90¢ â\89¡ f â\86\92 ⫯f â\89¡ f.
+corec lemma pr_id_inv_eq (f): ð\9d\90¢ â\89\90 f â\86\92 ⫯f â\89\90 f.
cases pr_id_unfold #Hf
cases (pr_eq_inv_push_sn … Hf) [|*: // ] #_ #H
cases H in Hf; -H #Hf