2013-11-29 06:11:07 +00:00
|
|
|
Variables p q r : Bool
|
|
|
|
|
|
|
|
Theorem T1 : p => p /\ q => r => q /\ r /\ p := _.
|
2013-12-06 04:00:20 +00:00
|
|
|
apply (** REPEAT(ORELSE(imp_tac, conj_tac, conj_hyp_tac, assumption_tac)) **)
|
2013-11-29 06:11:07 +00:00
|
|
|
done
|
|
|
|
|
|
|
|
(* Display proof term generated by previous tactic *)
|
|
|
|
Show Environment 1
|