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

Show Environment 1.
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			`( import("tactic.lua") )`
feat(library/tactic): add unfold tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-01 16:51:56 +00:00			`Definition f(a : Bool) : Bool := not a.`

			`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(library/tactic): add unfold tactic Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-01 16:51:56 +00:00			`Show Environment 1.`