2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
open tactic
|
2014-06-30 01:26:07 +00:00
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem tst {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A
|
2014-09-04 23:36:06 +00:00
|
|
|
:= by apply and.intro; state; assumption; apply and.intro; !assumption
|
2014-07-02 20:14:50 +00:00
|
|
|
check tst
|
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem tst2 {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A
|
2014-10-02 01:39:47 +00:00
|
|
|
:= by repeat ([apply @and.intro | assumption] ; trace "STEP"; state; trace "----------")
|
2014-07-02 20:14:50 +00:00
|
|
|
|
|
|
|
check tst2
|