σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
⊢ support (∑ t in powersetLen n univ, ↑(monomial (∑ i in t, Finsupp.single i 1)) 1) =
    Finset.biUnion (powersetLen n univ) fun t => (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
⊢ support (esymm σ R n) =
    Finset.biUnion (powersetLen n univ) fun t => (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
rw [esymm_eq_sum_monomial]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
⊢ support (∑ x in powersetLen n univ, Finsupp.single (∑ i in x, Finsupp.single i 1) 1) =
    Finset.biUnion (powersetLen n univ) fun t => (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
⊢ support (∑ t in powersetLen n univ, ↑(monomial (∑ i in t, Finsupp.single i 1)) 1) =
    Finset.biUnion (powersetLen n univ) fun t => (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
simp only [← single_eq_monomial]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
⊢ ∀ (i₁ i₂ : Finset σ),
    i₁ ≠ i₂ →
      Disjoint (Finsupp.single (∑ i in i₁, Finsupp.single i 1) 1).support
        (Finsupp.single (∑ i in i₂, Finsupp.single i 1) 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
⊢ support (∑ x in powersetLen n univ, Finsupp.single (∑ i in x, Finsupp.single i 1) 1) =
    Finset.biUnion (powersetLen n univ) fun t => (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
refine' Finsupp.support_sum_eq_biUnion (powersetLen n (univ : Finset σ)) _
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ Disjoint (Finsupp.single (∑ i in s, Finsupp.single i 1) 1).support
    (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
⊢ ∀ (i₁ i₂ : Finset σ),
    i₁ ≠ i₂ →
      Disjoint (Finsupp.single (∑ i in i₁, Finsupp.single i 1) 1).support
        (Finsupp.single (∑ i in i₂, Finsupp.single i 1) 1).support
intro s t hst
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ ∀ ⦃a : σ →₀ ℕ⦄, a ∈ {∑ i in s, Finsupp.single i 1} → ¬a ∈ (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ Disjoint (Finsupp.single (∑ i in s, Finsupp.single i 1) 1).support
    (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
rw [Finset.disjoint_left, Finsupp.support_single_ne_zero _ one_ne_zero]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ ∀ ⦃a : σ →₀ ℕ⦄, a ∈ {∑ i in s, Finsupp.single i 1} → ¬a ∈ {∑ i in t, Finsupp.single i 1}
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ ∀ ⦃a : σ →₀ ℕ⦄, a ∈ {∑ i in s, Finsupp.single i 1} → ¬a ∈ (Finsupp.single (∑ i in t, Finsupp.single i 1) 1).support
rw [Finsupp.support_single_ne_zero _ one_ne_zero]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ ∀ ⦃a : σ →₀ ℕ⦄, a = ∑ i in s, Finsupp.single i 1 → ¬a = ∑ i in t, Finsupp.single i 1
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ ∀ ⦃a : σ →₀ ℕ⦄, a ∈ {∑ i in s, Finsupp.single i 1} → ¬a ∈ {∑ i in t, Finsupp.single i 1}
simp only [one_ne_zero, mem_singleton, Finsupp.mem_support_iff]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
⊢ False
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
⊢ ∀ ⦃a : σ →₀ ℕ⦄, a = ∑ i in s, Finsupp.single i 1 → ¬a = ∑ i in t, Finsupp.single i 1
rintro a h rfl
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ False
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
⊢ False
have := congr_arg Finsupp.support h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ False
rw [Finsupp.support_sum_eq_biUnion, Finsupp.support_sum_eq_biUnion] at this
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
have hsingle : ∀ s : Finset σ, ∀ x : σ, x ∈ s → (Finsupp.single x 1).support = {x} := by
  intros _ x _
  rw [Finsupp.support_single_ne_zero x one_ne_zero]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
have hs := biUnion_congr (of_eq_true (eq_self s)) (hsingle s)
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
have ht := biUnion_congr (of_eq_true (eq_self t)) (hsingle t)
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun a => {a}) = Finset.biUnion s fun a => {a}
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
rw [hs, ht] at this
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun a => {a}) = Finset.biUnion s fun a => {a}
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun a => {a}) = Finset.biUnion s fun a => {a}
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
⊢ False

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
simp only [Finsupp.support_single_ne_zero _ one_ne_zero] at this
no goals
case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support

case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
all_goals intro x y; simp [Finsupp.support_single_disjoint]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
s✝ : Finset σ
x : σ
a✝ : x ∈ s✝
⊢ (Finsupp.single x 1).support = {x}
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
⊢ ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
intros _ x _
no goals
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = Finset.biUnion s fun i => (Finsupp.single i 1).support
s✝ : Finset σ
x : σ
a✝ : x ∈ s✝
⊢ (Finsupp.single x 1).support = {x}
rw [Finsupp.support_single_ne_zero x one_ne_zero]
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
this : t = s
⊢ False
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
this : (Finset.biUnion t fun a => {a}) = Finset.biUnion s fun a => {a}
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
⊢ False
simp only [biUnion_singleton_eq_self] at this
no goals
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this✝¹ : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
this✝ : (Finset.biUnion t fun i => (Finsupp.single i 1).support) = (∑ i in s, Finsupp.single i 1).support
hsingle : ∀ (s : Finset σ) (x : σ), x ∈ s → (Finsupp.single x 1).support = {x}
hs : (Finset.biUnion s fun a => (Finsupp.single a 1).support) = Finset.biUnion s fun a => {a}
ht : (Finset.biUnion t fun a => (Finsupp.single a 1).support) = Finset.biUnion t fun a => {a}
this : t = s
⊢ False
exact absurd this hst.symm
case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
x y : σ
⊢ x ≠ y → Disjoint (Finsupp.single x 1).support (Finsupp.single y 1).support
case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
⊢ ∀ (i₁ i₂ : σ), i₁ ≠ i₂ → Disjoint (Finsupp.single i₁ 1).support (Finsupp.single i₂ 1).support
intro x y
no goals
case h
σ : Type u_1
R : Type u_2
τ : Type ?u.175369
S : Type ?u.175372
inst✝⁵ : CommSemiring R
inst✝⁴ : CommSemiring S
inst✝³ : Fintype σ
inst✝² : Fintype τ
n : ℕ
inst✝¹ : DecidableEq σ
inst✝ : Nontrivial R
s t : Finset σ
hst : s ≠ t
h : ∑ i in t, Finsupp.single i 1 = ∑ i in s, Finsupp.single i 1
this : (∑ i in t, Finsupp.single i 1).support = (∑ i in s, Finsupp.single i 1).support
x y : σ
⊢ x ≠ y → Disjoint (Finsupp.single x 1).support (Finsupp.single y 1).support
simp [Finsupp.support_single_disjoint]