lean2/tests/lean/interactive/t9.lean

32 lines
640 B
Text
Raw Normal View History

(* import("tactic.lua") *)
theorem T1 (A B : Bool) : A /\ B → B /\ A :=
fun H : A /\ B,
let main : B /\ A :=
(let H1 : B := _,
H2 : A := _
in _)
in main.
conj_hyp.
exact.
done.
conj_hyp.
exact.
done.
apply and_intro.
exact.
done.
(*
simple_tac = Repeat(OrElse(conj_hyp_tac(), conj_tac(), assumption_tac()))
*)
theorem T2 (A B : Bool) : A /\ B → B /\ A :=
fun H : A /\ B,
let H1 : A := _,
H2 : B := _,
main : B /\ A := _
in main.
simple_tac. done.
simple_tac. done.
simple_tac. done.