2014-01-05 18:32:47 +00:00
|
|
|
(*
|
2013-12-26 23:54:53 +00:00
|
|
|
simple_tac = Repeat(OrElse(imp_tac(), conj_tac())) .. assumption_tac()
|
2014-01-05 18:32:47 +00:00
|
|
|
*)
|
2013-11-29 17:39:31 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
theorem T4 (a b : Bool) : a => b => a /\ b /\ a := _.
|
2013-12-26 23:54:53 +00:00
|
|
|
simple_tac
|
2013-11-29 17:39:31 +00:00
|
|
|
done
|
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
print environment 1.
|