lean2/tests/lean/run/using_expr.lean

9 lines
216 B
Text
Raw Normal View History

example (p q : Prop) (H : p ∧ q) : p ∧ q ∧ p :=
have Hp : p, from and.elim_left H,
have Hq : q, from and.elim_right H,
using Hp Hq,
begin
apply and.intro, assumption,
apply and.intro, repeat assumption
end