2014-11-07 16:53:14 +00:00
|
|
|
import tools.tactic logic
|
2014-10-30 02:13:55 +00:00
|
|
|
open tactic
|
|
|
|
|
|
|
|
|
|
theorem foo (A : Type) (a b c : A) : a = b → b = c → a = c ∧ c = a :=
|
|
|
|
|
begin
|
|
|
|
|
intros (Hab, Hbc),
|
|
|
|
|
apply and.intro,
|
|
|
|
|
apply eq.trans,
|
|
|
|
|
rotate 2,
|
|
|
|
|
apply eq.trans,
|
|
|
|
|
apply (eq.symm Hbc),
|
|
|
|
|
apply (eq.symm Hab),
|
|
|
|
|
apply Hab,
|
|
|
|
|
apply Hbc,
|
|
|
|
|
end
|
