2014-08-24 19:58:48 -07:00
|
|
|
import logic
|
2014-09-03 16:00:38 -07:00
|
|
|
open tactic (renaming id->id_tac)
|
2014-06-29 12:24:13 -07:00
|
|
|
|
|
|
|
definition id {A : Type} (a : A) := a
|
|
|
|
|
2015-04-27 17:46:13 -07:00
|
|
|
infixl `;`:15 := tactic.and_then
|
|
|
|
|
2014-07-22 09:43:18 -07:00
|
|
|
theorem tst {A B : Prop} (H1 : A) (H2 : B) : id A
|
2015-04-27 17:46:13 -07:00
|
|
|
:= by (unfold id; state); assumption
|
2014-07-01 20:43:53 -07:00
|
|
|
|
2014-09-03 16:00:38 -07:00
|
|
|
check tst
|