lean2/tests/lean/tactic6.lean
Leonardo de Moura ce1213a020 feat(frontends/lean): use '(* ... *)' instead of '(** ... **)' for script code blocks
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-01-05 10:32:47 -08:00

22 lines
No EOL
585 B
Text

(* import("tactic.lua") *)
Theorem T (a b c : Bool): a => b /\ c => c /\ a /\ b := _.
apply Discharge
apply Discharge
conj_hyp
apply Conj
(* Focus(Then(show_tac(), conj_tac(), show_tac(), assumption_tac()), 2) *)
exact
done
Theorem T2 (a b c : Bool): a => b /\ c => c /\ a /\ b := _.
apply Discharge
apply Discharge
conj_hyp
apply Conj
(* show_tac() *)
(* Focus(Then(show_tac(), conj_tac(), Focus(assumption_tac(), 1)), 2) *)
(* show_tac() *)
(* Focus(assumption_tac(), 1) *)
(* show_tac() *)
(* Focus(assumption_tac(), 1) *)
done