simp
a✝ b c : ℤθ
n : ℕ
a : ℤθ
⊢ { f := Int.negSucc n * a.f, g := Int.negSucc n * a.g, h := Int.negSucc n * a.h } =
    { f := -(Int.ofNat (Nat.succ n) * a.f), g := -(Int.ofNat (Nat.succ n) * a.g), h := -(Int.ofNat (Nat.succ n) * a.h) }
a✝ b c : ℤθ
n : ℕ
a : ℤθ
⊢ Int.negSucc n * a.f = -((↑n + 1) * a.f) ∧
    Int.negSucc n * a.g = -((↑n + 1) * a.g) ∧ Int.negSucc n * a.h = -((↑n + 1) * a.h)