let f : FormalSum R X → FreeModuleAux R X := fun s => sum <| (a, x) :: s
R : Type
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type
inst✝ : DecidableEq X
s₁ s₂ : FormalSum R X
a : R
x : X
h : s₁ ≃ s₂
⊢ (a, x) :: s₁ ≃ (a, x) :: s₂
R : Type
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type
inst✝ : DecidableEq X
s₁ s₂ : FormalSum R X
a : R
x : X
h : s₁ ≃ s₂
f : FormalSum R X → FreeModuleAux R X := fun s => sum ((a, x) :: s)
⊢ (a, x) :: s₁ ≃ (a, x) :: s₂