7 lines
192 B
Text
7 lines
192 B
Text
|
import data.nat
|
||
|
|
open nat
|
||
|
|
constant f : nat → nat
|
||
|
|
|
||
|
|
theorem tst1 (x y : nat) (H1 : (λ z, z + 0) x = y) : f x = f y :=
|
||
|
|
by rewrite [▸* at H1, ^add at H1, ^nat.rec_on at H1, ^of_num at H1, H1]
|