lean2/tests/lean/assert_fail.lean

11 lines
150 B
Text
Raw Normal View History

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