2014-07-02 13:14:50 -07:00
|
|
|
import standard
|
|
|
|
|
using tactic
|
2014-06-29 18:26:07 -07:00
|
|
|
|
|
|
|
|
theorem tst {A B : Bool} (H1 : A) (H2 : B) : A ∧ B ∧ A
|
2014-07-02 18:10:42 -07:00
|
|
|
:= by apply and_intro; state; assumption; apply and_intro; !assumption
|
2014-07-02 13:14:50 -07:00
|
|
|
check tst
|
|
|
|
|
|
|
|
|
|
theorem tst2 {A B : Bool} (H1 : A) (H2 : B) : A ∧ B ∧ A
|
2014-07-04 10:10:05 -07:00
|
|
|
:= by !([apply @and_intro | assumption] ; trace "STEP"; state; trace "----------")
|
2014-07-02 13:14:50 -07:00
|
|
|
|
|
|
|
|
check tst2
|
