lean2/tests/lean/run/all_goals2.lean

import data.nat
open nat

attribute nat.add [unfold 2]
attribute nat.rec_on [unfold 2]

infixl `;`:15 := tactic.and_then

namespace tactic
  definition then_all (t1 t2 : tactic) : tactic :=
  focus (t1 ; all_goals t2)
end tactic

tactic_infixl `;;`:15 := tactic.then_all

open tactic
example (a b c : nat) : (a + 0 = 0 + a ∧ b + 0 = 0 + b) ∧ c = c :=

begin
  apply and.intro,
  apply and.intro ;; (state; rewrite zero_add),
  apply rfl
end
fix(frontends/lean/parser): add workaround for #461 2015-03-26 01:04:52 +00:00			`import data.nat`
			`open nat`

feat(frontends/lean): rename '[unfold-c]' to '[unfold]' and '[unfold-f]' to '[unfold-full]' see issue #693 2015-07-07 23:37:06 +00:00			`attribute nat.add [unfold 2]`
			`attribute nat.rec_on [unfold 2]`
fix(frontends/lean/parser): add workaround for #461 2015-03-26 01:04:52 +00:00
feat(frontends/lean): add tactic_notation command This addresses the first part of issue #461 We still need support for tactic definitions 2015-04-28 00:46:13 +00:00			infixl `;`:15 := tactic.and_then

fix(frontends/lean/parser): add workaround for #461 2015-03-26 01:04:52 +00:00			`namespace tactic`
			`definition then_all (t1 t2 : tactic) : tactic :=`
			`focus (t1 ; all_goals t2)`
			`end tactic`

feat(frontends/lean): add tactic_notation command This addresses the first part of issue #461 We still need support for tactic definitions 2015-04-28 00:46:13 +00:00			tactic_infixl `;;`:15 := tactic.then_all

fix(frontends/lean/parser): add workaround for #461 2015-03-26 01:04:52 +00:00			`open tactic`
			`example (a b c : nat) : (a + 0 = 0 + a ∧ b + 0 = 0 + b) ∧ c = c :=`

			`begin`
			`apply and.intro,`
fix(tests/lean/run): adjust some tests to changes in the standard library 2015-10-13 22:39:03 +00:00			`apply and.intro ;; (state; rewrite zero_add),`
fix(frontends/lean/parser): add workaround for #461 2015-03-26 01:04:52 +00:00			`apply rfl`
			`end`