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-10-15 00:12:57 +00:00
|
|
|
theorem tst {A B : Prop} (H1 : A) (H2 : B) : A ∧ B ∧ A :=
|
|
|
|
by apply @and.intro;
|
2014-10-23 01:11:09 +00:00
|
|
|
apply (show A, from H1);
|
|
|
|
apply (show B ∧ A, from and.intro H2 H1)
|
2014-07-02 20:14:50 +00:00
|
|
|
|
2014-09-03 23:00:38 +00:00
|
|
|
check @tst
|