rw [← l]
case a.a.h
R : Type
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type
inst✝ : DecidableEq X
x : R[X]
s : FormalSum R X
x₀ : X
l : 0 * coords s x₀ = coords (scmul 0 s) x₀ := scmul_coords 0 s x₀
⊢ coords (scmul 0 s) x₀ = coords [] x₀
case a.a.h
R : Type
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type
inst✝ : DecidableEq X
x : R[X]
s : FormalSum R X
x₀ : X
l : 0 * coords s x₀ = coords (scmul 0 s) x₀ := scmul_coords 0 s x₀
⊢ 0 * coords s x₀ = coords [] x₀