lean2/tests/lean/run/rename_tac.lean

import logic
open tactic

theorem foo1 (A : Type) (a b c : A) (Hab : a = b) (Hbc : b = c) : a = c :=
begin
  apply eq.trans,
  rename Hab Foo,
  apply Foo,
  apply Hbc,
end

theorem foo2 (A : Type) (a b c : A) (Hab : a = b) (Hbc : b = c) : a = c :=
begin
  apply eq.trans,
  Hab ↦ Foo,
  apply Foo,
  apply Hbc,
end
fix(tests/lean): adjust tests to modifications to standard library 2014-11-30 21:16:01 -08:00			`import logic`
feat(library/tactic): add 'rename' hypothesis tactic 2014-10-14 18:19:34 -07:00			`open tactic`

feat(library/rename): add notation for `rename` 2014-11-26 19:02:11 -08:00			`theorem foo1 (A : Type) (a b c : A) (Hab : a = b) (Hbc : b = c) : a = c :=`
feat(library/tactic): add 'rename' hypothesis tactic 2014-10-14 18:19:34 -07:00			`begin`
			`apply eq.trans,`
			`rename Hab Foo,`
feat(library/tactic): change apply tactic semantics: goals are not reversed; and dependent arguments are not included This commit also adds the tactic rapply that corresponds to the previous semantics we have been using. 2014-10-22 18:11:09 -07:00			`apply Foo,`
			`apply Hbc,`
feat(library/tactic): add 'rename' hypothesis tactic 2014-10-14 18:19:34 -07:00			`end`
feat(library/rename): add notation for `rename` 2014-11-26 19:02:11 -08:00
			`theorem foo2 (A : Type) (a b c : A) (Hab : a = b) (Hbc : b = c) : a = c :=`
			`begin`
			`apply eq.trans,`
			`Hab ↦ Foo,`
			`apply Foo,`
			`apply Hbc,`
			`end`