let (b, h) := head'
R : Type
inst✝³ : Ring R
inst✝² : DecidableEq R
G : Type
inst✝¹ : Group G
inst✝ : DecidableEq G
s₁ s₂ : FormalSum R G
rel : ElementaryMove R G s₁ s₂
head' : R × G
tail' : List (R × G)
⊢ mul s₁ (head' :: tail') ≈ mul s₂ (head' :: tail')
R : Type
inst✝³ : Ring R
inst✝² : DecidableEq R
G : Type
inst✝¹ : Group G
inst✝ : DecidableEq G
s₁ s₂ : FormalSum R G
rel : ElementaryMove R G s₁ s₂
head' : R × G
tail' : List (R × G)
b : R
h : G
⊢ mul s₁ ((b, h) :: tail') ≈ mul s₂ ((b, h) :: tail')