lean2/tests/lean/run/match_tac3.lean

15 lines
230 B
Text
Raw Normal View History

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
reveal tst
print definition tst