2014-01-05 10:32:47 -08:00
|
|
|
(*
|
2014-01-08 00:57:04 -08:00
|
|
|
simple_tac = Repeat(conj_tac()) .. assumption_tac()
|
2014-01-05 10:32:47 -08:00
|
|
|
*)
|
2013-11-29 09:39:31 -08:00
|
|
|
|
2014-01-08 00:38:39 -08:00
|
|
|
theorem T4 (a b : Bool) : a → b → a /\ b /\ a := _.
|
2013-12-26 15:54:53 -08:00
|
|
|
simple_tac
|
2013-11-29 09:39:31 -08:00
|
|
|
done
|
|
|
|
|
2014-01-05 12:05:08 -08:00
|
|
|
print environment 1.
|