intro h
case h.left
R G : Type
inst✝² : Ring R
inst✝¹ : Group G
inst✝ : DecidableEq G
p : FormalSum R G
a : R
g : G
hyp : p ≈ [(a, g)] ∧ a ≠ 0
⊢ (fun x => ¬FreeModule.coordinates x (Quotient.mk (formalSumSetoid R G) p) = 0) g
case h.left
R G : Type
inst✝² : Ring R
inst✝¹ : Group G
inst✝ : DecidableEq G
p : FormalSum R G
a : R
g : G
hyp : p ≈ [(a, g)] ∧ a ≠ 0
h : FreeModule.coordinates g (Quotient.mk (formalSumSetoid R G) p) = 0
⊢ False