lean2/tests/lean/tactic9.lean

(* import("tactic.lua") *)
definition f(a : Bool) : Bool := not a.

theorem T (a b : Bool) : a \/ b => (f b) => a := _.
     apply Discharge
     apply Discharge
     disj_hyp
     unfold f
     exact
     absurd
     done

print 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			`(* import("tactic.lua") *)`
feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 20:05:08 +00:00			`definition f(a : Bool) : Bool := not a.`
feat(library/tactic): add unfold tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-01 16:51:56 +00:00
feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 20:05:08 +00:00			`theorem T (a b : Bool) : a \/ b => (f 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			`apply Discharge`
			`apply Discharge`
			`disj_hyp`
			`unfold f`
			`exact`
			`absurd`
feat(library/tactic): add unfold tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-01 16:51:56 +00:00			`done`
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
feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 20:05:08 +00:00			`print environment 1.`