2015-04-04 22:04:13 +00:00
|
|
|
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,
|
2015-05-03 00:32:03 +00:00
|
|
|
apply and.intro, repeat assumption
|
2015-04-04 22:04:13 +00:00
|
|
|
end
|
