change
  (⟨Int.negSucc n * a.z, Int.negSucc n * a.w⟩ : ℤα) =
    (⟨-(Int.ofNat n.succ * a.z), -(Int.ofNat n.succ * a.w)⟩ : ℤα)
a✝ b c : ℤα
n : ℕ
a : ℤα
⊢ zsmul (Int.negSucc n) a = neg (zsmul (↑n + 1) a)
a✝ b c : ℤα
n : ℕ
a : ℤα
⊢ { z := Int.negSucc n * a.z, w := Int.negSucc n * a.w } =
    { z := -(Int.ofNat (Nat.succ n) * a.z), w := -(Int.ofNat (Nat.succ n) * a.w) }