2014-06-29 18:39:05 +00:00
|
|
|
import logic
|
2014-07-02 03:43:53 +00:00
|
|
|
import tactic
|
|
|
|
|
using tactic
|
2014-06-29 18:39:05 +00:00
|
|
|
|
|
|
|
|
theorem tst {A B : Bool} (H1 : A) (H2 : B) : A
|
2014-07-02 03:43:53 +00:00
|
|
|
:= by state_tac; now_tac |
|
|
|
|
|
state_tac; fail_tac |
|
|
|
|
|
exact_tac
|
|
|
|
|
|
|
|
|
|
check tst
|
