2014-08-24 19:58:48 -07:00
|
|
|
|
import logic
|
2014-09-03 16:00:38 -07:00
|
|
|
|
open tactic
|
2014-07-02 18:32:44 -07:00
|
|
|
|
|
2014-07-22 09:43:18 -07:00
|
|
|
|
theorem tst (a b : Prop) (H : ¬ a ∨ ¬ b) (Hb : b) : ¬ a ∧ b
|
2015-05-02 17:32:03 -07:00
|
|
|
|
:= begin
|
|
|
|
|
apply and.intro,
|
2014-07-02 18:32:44 -07:00
|
|
|
|
exact
|
2014-09-04 21:25:21 -07:00
|
|
|
|
(assume Ha, or.elim H
|
2014-08-27 18:34:09 -07:00
|
|
|
|
(assume Hna, @absurd _ false Ha Hna)
|
2015-05-02 17:32:03 -07:00
|
|
|
|
(assume Hnb, @absurd _ false Hb Hnb)),
|
|
|
|
|
assumption
|
|
|
|
|
end
|