apply ElementaryMove.cons
case a
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)
s₁ s₂ : FormalSum R X
hyp : ElementaryMove R X s₁ s₂
⊢ ElementaryMove R X ((a, x) :: s₁) ((a, x) :: s₂)
case a.a
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)
s₁ s₂ : FormalSum R X
hyp : ElementaryMove R X s₁ s₂
⊢ ElementaryMove R X s₁ s₂