induction s
R : Type
inst✝³ : Ring R
inst✝² : DecidableEq R
G : Type
inst✝¹ : Group G
inst✝ : DecidableEq G
h : G
s t : FormalSum R G
⊢ mul s ((0, h) :: t) ≈ mul s t
case nil
R : Type
inst✝³ : Ring R
inst✝² : DecidableEq R
G : Type
inst✝¹ : Group G
inst✝ : DecidableEq G
h : G
t : FormalSum R G
⊢ mul [] ((0, h) :: t) ≈ mul [] t

case cons
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