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

10 lines
184 B
Text

exit
open nat
example (a b : nat) : a = 0 → b = 1 → a = b → a + b * b ≤ 10000 :=
begin
intro a0 b1 ab,
exfalso, state,
rewrite [a0 at ab, b1 at ab],
contradiction
end