lean2/tests/lean/interactive/t9.lean
Leonardo de Moura 57c0006916 chore(*): cleanup lean builtin symbols, replace :: with _
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-01-09 08:33:52 -08:00

31 lines
640 B
Text

(* 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.