2014-08-24 19:58:48 -07:00
|
|
|
import logic
|
2014-09-03 16:00:38 -07:00
|
|
|
open tactic
|
2014-06-29 18:26:07 -07:00
|
|
|
|
2014-07-22 09:43:18 -07:00
|
|
|
theorem tst {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A
|
2014-09-04 16:36:06 -07:00
|
|
|
:= by (apply @and.intro;
|
2014-07-02 13:14:50 -07:00
|
|
|
apply (show A, from H1);
|
2014-09-04 16:36:06 -07:00
|
|
|
apply (show B ∧ A, from and.intro H2 H1))
|
2014-07-02 13:14:50 -07:00
|
|
|
|
2014-09-03 16:00:38 -07:00
|
|
|
check @tst
|