lean2/tests/lean/run/rewriter14.lean

12 lines
218 B
Text

import data.nat
open nat
definition f [unfold 2] (x y z : nat) : nat :=
x + y + z
attribute of_num [unfold 1]
example (x y : nat) (H1 : f x 0 0 = 0) : x = 0 :=
begin
rewrite [▸* at H1, 4>add_zero at H1, H1]
end