2013-12-28 20:04:56 +00:00
|
|
|
Import tactic
|
2013-12-26 23:54:53 +00:00
|
|
|
|
2013-12-05 12:41:08 +00:00
|
|
|
Theorem T1 (a b : Bool) : a \/ b => b \/ a.
|
2013-12-26 23:54:53 +00:00
|
|
|
apply Discharge.
|
2014-01-05 18:32:47 +00:00
|
|
|
(* disj_hyp_tac() *)
|
|
|
|
(* disj_tac() *)
|
2013-12-05 12:41:08 +00:00
|
|
|
back
|
2013-12-26 23:54:53 +00:00
|
|
|
exact.
|
2014-01-05 18:32:47 +00:00
|
|
|
(* disj_tac() *)
|
2013-12-26 23:54:53 +00:00
|
|
|
exact.
|
|
|
|
done.
|
2013-12-05 12:41:08 +00:00
|
|
|
|
2014-01-05 18:32:47 +00:00
|
|
|
(*
|
2013-12-26 23:54:53 +00:00
|
|
|
simple_tac = Repeat(OrElse(imp_tac(), assumption_tac(), disj_hyp_tac(), disj_tac())) .. now_tac()
|
2014-01-05 18:32:47 +00:00
|
|
|
*)
|
2013-12-05 12:41:08 +00:00
|
|
|
|
|
|
|
Theorem T2 (a b : Bool) : a \/ b => b \/ a.
|
2013-12-26 23:54:53 +00:00
|
|
|
simple_tac.
|
|
|
|
done.
|
2013-12-05 12:41:08 +00:00
|
|
|
|
|
|
|
Show Environment 1.
|