2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
open tactic (renaming id->id_tac)
|
2014-06-29 19:05:45 +00:00
|
|
|
|
|
|
|
definition id {A : Type} (a : A) := a
|
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
definition simple {A : Prop} : tactic
|
2014-07-03 01:10:42 +00:00
|
|
|
:= unfold @id.{1}; assumption
|
2014-07-02 03:43:53 +00:00
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem tst {A B : Prop} (H1 : A) (H2 : B) : id A
|
2014-07-02 17:35:43 +00:00
|
|
|
:= by simple
|
2014-07-02 03:43:53 +00:00
|
|
|
|
|
|
|
check tst
|