2014-07-02 03:43:53 +00:00
|
|
|
import standard
|
2014-06-29 19:05:45 +00:00
|
|
|
|
|
|
|
|
definition id {A : Type} (a : A) := a
|
|
|
|
|
|
2014-07-02 14:08:20 +00:00
|
|
|
definition simple_tac {A : Bool} : tactic
|
2014-07-02 03:43:53 +00:00
|
|
|
:= unfold_tac @id.{1}; exact_tac
|
|
|
|
|
|
2014-06-29 19:05:45 +00:00
|
|
|
theorem tst {A B : Bool} (H1 : A) (H2 : B) : id A
|
2014-07-02 03:43:53 +00:00
|
|
|
:= by simple_tac
|
|
|
|
|
|
|
|
|
|
check tst
|
