simp [mul, mulMonom]
R : Type
inst✝³ : Ring R
inst✝² : DecidableEq R
G : Type
inst✝¹ : Group G
inst✝ : DecidableEq G
h : G
t : FormalSum R G
head : R × G
tail : List (R × G)
tail_ih✝ : mul tail ((0, h) :: t) ≈ mul tail t
⊢ mul (head :: tail) ((0, h) :: t) ≈ mul (head :: tail) t
R : Type
inst✝³ : Ring R
inst✝² : DecidableEq R
G : Type
inst✝¹ : Group G
inst✝ : DecidableEq G
h : G
t : FormalSum R G
head : R × G
tail : List (R × G)
tail_ih✝ : mul tail ((0, h) :: t) ≈ mul tail t
⊢ (0, head.2 * h) :: (mulMonom 0 h tail ++ mul (head :: tail) t) ≈ mul (head :: tail) t