lean4-htt/tests/lean/run/rewriter12.lean
2016-06-10 18:29:41 -07:00

10 lines
277 B
Text

exit
import data.nat
open nat algebra
constant f : nat → nat
example (x y : nat) (H1 : (λ z, z + 0) x = y) : f x = f y :=
by rewrite [▸* at H1, add_zero at H1, H1]
example (x y : nat) (H1 : (λ z, z + 0) x = y) : f x = f y :=
by rewrite [▸* at H1, add_zero at H1, H1]