lean2/tests/lean/tactic1.lean

Variables p q r : Bool

(*
 local env = get_environment()
 local conjecture = parse_lean('p => q => p && q')
 local tac = Repeat(conj_tac() ^ imp_tac() ^ assumption_tac())
 local proof = tac:solve(env, context(), conjecture)
 env:add_theorem("T1", conjecture, proof)
*)

Show Environment 1.
feat(library/tactic): expose conj_tactic, imp_tactic, conj_hyp_tactic in the Lua API Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 02:17:15 +00:00			`Variables p q r : Bool`

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): expose conj_tactic, imp_tactic, conj_hyp_tactic in the Lua API Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 02:17:15 +00:00			`local env = get_environment()`
			`local conjecture = parse_lean('p => q => p && q')`
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			`local tac = Repeat(conj_tac() ^ imp_tac() ^ assumption_tac())`
feat(library/tactic): expose conj_tactic, imp_tactic, conj_hyp_tactic in the Lua API Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 02:17:15 +00:00			`local proof = tac:solve(env, context(), conjecture)`
			`env:add_theorem("T1", conjecture, proof)`
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): expose conj_tactic, imp_tactic, conj_hyp_tactic in the Lua API Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-29 02:17:15 +00:00
			`Show Environment 1.`