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 := _.
     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 10:32:47 -08: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 12:05:08 -08: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 08:51:56 -08:00
feat(kernel): use Pi as forall/implication Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-08 00:38:39 -08: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 15:54:53 -08:00			`disj_hyp`
			`unfold f`
			`exact`
			`absurd`
feat(library/tactic): add unfold tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-01 08:51:56 -08:00			`done`
refactor(frontends/lean/parser): tactic macros, and tactic Lua bindings Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-26 15:54:53 -08: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 12:05:08 -08:00			`print environment 1.`