14 lines
219 B
Text
14 lines
219 B
Text
|
import data.nat
|
||
|
|
open nat
|
||
|
|
|
||
|
|
theorem tst (a b : nat) (H : a = 0) : a + b = b :=
|
||
|
|
begin
|
||
|
|
revert H,
|
||
|
|
match a with
|
||
|
|
| zero := λ H, by rewrite zero_add
|
||
|
|
| (n+1) := λ H, nat.no_confusion H
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
print definition tst
|