lean2/tests/lean/interactive/t10.lean

15 lines
393 B
Text
Raw Normal View History

(*
simple_tac = Repeat(OrElse(conj_hyp_tac(), conj_tac(), assumption_tac()))
*)
theorem T2 (A B : Bool) : A /\ B => B /\ A :=
discharge (fun H : A /\ B,
let H1 : A := _,
H2 : B := _,
main : B /\ A := _
in main).
simple_tac. done.
simple2_tac. done.
simple_tac. done.
print "echo command after failure"