lean2/tests/lean/assert_fail.lean
2015-02-16 18:42:15 -08:00

10 lines
150 B
Text

example (a b : Prop) (H : b ∧ a) : a ∧ b :=
begin
assert (H : a)
end
example (a : Prop) (Ha : a) : a :=
begin
exact Ha,
assert (H : a)
end