apply funext
case a.a
R : Type
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type
inst✝ : DecidableEq X
a b : R
x : R[X]
s : FormalSum R X
⊢ scmul a s ++ scmul b s ≈ scmul (a + b) s
case a.a.h
R : Type
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type
inst✝ : DecidableEq X
a b : R
x : R[X]
s : FormalSum R X
⊢ ∀ (x : X), coords (scmul a s ++ scmul b s) x = coords (scmul (a + b) s) x