2014-01-05 10:32:47 -08:00
|
|
|
(* import("tactic.lua") *)
|
2014-01-05 12:05:08 -08:00
|
|
|
variables p q r : Bool
|
2013-11-28 22:11:07 -08:00
|
|
|
|
2014-01-08 00:38:39 -08:00
|
|
|
theorem T1 : p → p /\ q → r → q /\ r /\ p := _.
|
2014-01-08 00:57:04 -08:00
|
|
|
(* Repeat(OrElse(conj_tac(), conj_hyp_tac(), assumption_tac())) *)
|
2013-11-28 22:11:07 -08:00
|
|
|
done
|
|
|
|
|
2014-01-05 08:52:46 -08:00
|
|
|
-- Display proof term generated by previous tactic
|
2014-01-05 12:05:08 -08:00
|
|
|
print environment 1
|