lean2/tests/lean/hott/exfalso1.hlean

10 lines
179 B
Text
Raw Normal View History

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