2014-01-05 10:32:47 -08:00
|
|
|
(*
|
2013-12-26 15:54:53 -08:00
|
|
|
auto = Repeat(OrElse(conj_hyp_tac(), conj_tac(), assumption_tac()))
|
2014-01-05 10:32:47 -08:00
|
|
|
*)
|
2013-12-06 13:23:20 -08:00
|
|
|
|
2014-01-05 12:05:08 -08:00
|
|
|
theorem T2 (A B : Bool) : A /\ B -> B /\ A :=
|
2013-12-06 13:23:20 -08:00
|
|
|
fun assumption : A /\ B,
|
|
|
|
|
let lemma1 : A := _,
|
|
|
|
|
lemma2 : B := _,
|
|
|
|
|
conclusion : B /\ A := _
|
|
|
|
|
in conclusion.
|
2013-12-26 15:54:53 -08:00
|
|
|
auto. done.
|
|
|
|
|
auto. done.
|
|
|
|
|
auto. done.
|
