(*** fcla_eq_repl_back *)
lemma pr_fcla_eq_repl_back (n):
- pr_eq_repl_back â\80¦ (λf. ð\9d\90\82â\9dªfâ\9d« ≘ n).
+ pr_eq_repl_back â\80¦ (λf. ð\9d\90\82â\9d¨fâ\9d© ≘ n).
#n #f1 #H elim H -f1 -n /3 width=3 by pr_fcla_isi, pr_isi_eq_repl_back/
#f1 #n #_ #IH #g2 #H [ elim (pr_eq_inv_push_sn … H) | elim (pr_eq_inv_next_sn … H) ] -H
/3 width=3 by pr_fcla_push, pr_fcla_next/
(*** fcla_eq_repl_fwd *)
lemma fcla_eq_repl_fwd (n):
- pr_eq_repl_fwd â\80¦ (λf. ð\9d\90\82â\9dªfâ\9d« ≘ n).
+ pr_eq_repl_fwd â\80¦ (λf. ð\9d\90\82â\9d¨fâ\9d© ≘ n).
#n @pr_eq_repl_sym /2 width=3 by pr_fcla_eq_repl_back/
qed-.