lean2/tests/lean/tactic6.lean

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