(* Constructions with pr_eq and stream_eq ***********************************)
-corec lemma eq_tr_inj_bi (f1) (f2): f1 â\89\97 f2 â\86\92 ð\9d\90â\9d¨f1â\9d© â\89¡ 𝐭❨f2❩.
+corec lemma eq_tr_inj_bi (f1) (f2): f1 â\89\97 f2 â\86\92 ð\9d\90â\9d¨f1â\9d© â\89\90 𝐭❨f2❩.
* -f1 -f2 #p1 #p2 #f1 #f2 * -p2 #H
cases p1 -p1
[ @pr_eq_push /2 width=5 by/
(* Inversions with pr_eq and stream_eq **************************************)
-corec lemma eq_inv_tr_inj_bi (f1) (f2): ð\9d\90â\9d¨f1â\9d© â\89¡ 𝐭❨f2❩ → f1 ≗ f2.
+corec lemma eq_inv_tr_inj_bi (f1) (f2): ð\9d\90â\9d¨f1â\9d© â\89\90 𝐭❨f2❩ → f1 ≗ f2.
cases f1 -f1 #p1 #f1 cases f2 -f2 #p2 #f2
cases tr_inj_unfold cases tr_inj_unfold #H
cases (pr_eq_inv_nexts_push_bi … H) -H #H1 #H2