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