lean2/tests/lean/run/rename_tac.lean

19 lines
318 B
Text
Raw Normal View History

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