2014-12-01 05:16:01 +00:00
|
|
|
import 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
|
2015-03-28 00:26:06 +00:00
|
|
|
intros [Hab, Hbc],
|
2014-10-30 02:13:55 +00:00
|
|
|
apply and.intro,
|
|
|
|
|
apply eq.trans,
|
|
|
|
|
rotate 2,
|
|
|
|
|
apply eq.trans,
|
|
|
|
|
apply (eq.symm Hbc),
|
|
|
|
|
apply (eq.symm Hab),
|
|
|
|
|
apply Hab,
|
|
|
|
|
apply Hbc,
|
|
|
|
|
end
|
