lean2/tests/lean/tactic5.lean

(**
simple_tac = REPEAT(ORELSE(imp_tac, conj_tac)) .. assumption_tac
**)

Theorem T4 (a b : Bool) : a => b => a /\ b /\ a := _.
        apply simple_tac
        done

Show Environment 1.
feat(library/tactic): add to_tactic_ext, it allows functions that return tactics to be used where a tactic is expected For example, after this commit, we can write simple_tac = REPEAT(ORELSE(imp_tactic, conj_tactic)) .. assumption_tactic instead of simple_tac = REPEAT(ORELSE(imp_tactic(), conj_tactic())) .. assumption_tactic() Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 17:39:31 +00:00			`(**`
feat(library/tactic): use _tac suffix instead of _tactic like Isabelle Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-06 04:00:20 +00:00			`simple_tac = REPEAT(ORELSE(imp_tac, conj_tac)) .. assumption_tac`
feat(library/tactic): add to_tactic_ext, it allows functions that return tactics to be used where a tactic is expected For example, after this commit, we can write simple_tac = REPEAT(ORELSE(imp_tactic, conj_tactic)) .. assumption_tactic instead of simple_tac = REPEAT(ORELSE(imp_tactic(), conj_tactic())) .. assumption_tactic() Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 17:39:31 +00:00			`**)`

			`Theorem T4 (a b : Bool) : a => b => a /\ b /\ a := _.`
			`apply simple_tac`
			`done`

			`Show Environment 1.`