2013-12-05 04:41:08 -08:00
|
|
|
Theorem T1 (a b : Bool) : a \/ b => b \/ a.
|
2013-12-05 20:00:20 -08:00
|
|
|
apply imp_tac
|
|
|
|
apply disj_hyp_tac
|
|
|
|
apply disj_tac
|
2013-12-05 04:41:08 -08:00
|
|
|
back
|
2013-12-05 20:00:20 -08:00
|
|
|
apply assumption_tac
|
|
|
|
apply disj_tac
|
|
|
|
apply assumption_tac
|
2013-12-05 04:41:08 -08:00
|
|
|
done
|
|
|
|
|
|
|
|
(**
|
2013-12-05 20:00:20 -08:00
|
|
|
simple_tac = REPEAT(ORELSE(imp_tac, assumption_tac, disj_hyp_tac, disj_tac)) .. now_tac
|
2013-12-05 04:41:08 -08:00
|
|
|
**)
|
|
|
|
|
|
|
|
Theorem T2 (a b : Bool) : a \/ b => b \/ a.
|
|
|
|
apply simple_tac
|
|
|
|
done
|
|
|
|
|
|
|
|
Show Environment 1.
|