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 := _.
        simple_tac
        done

Show Environment 1.
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 18:32:47 +00:00			`(*`
refactor(frontends/lean/parser): tactic macros, and tactic Lua bindings Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-26 23:54:53 +00:00			`simple_tac = Repeat(OrElse(imp_tac(), conj_tac())) .. assumption_tac()`
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 18:32:47 +00:00			`*)`
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 := _.`
refactor(frontends/lean/parser): tactic macros, and tactic Lua bindings Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-26 23:54:53 +00:00			`simple_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			`done`

			`Show Environment 1.`