9 lines
No EOL
208 B
Text
9 lines
No EOL
208 B
Text
import standard
|
|
using tactic
|
|
|
|
theorem tst {A B : Bool} (H1 : A) (H2 : B) : A ∧ B ∧ A
|
|
:= by (apply @and_intro;
|
|
apply (show A, from H1);
|
|
apply (show B ∧ A, from and_intro H2 H1))
|
|
|
|
check @tst |