Theorem: DirectSum.coe_of_mul_apply_aux
File: Mathlib/Algebra/DirectSum/Internal.lean

tactic: rw [coe_mul_apply_eq_dfinsupp_sum]
state_before: ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ ↑(↑(↑(of (fun i => { x // x ∈ A i }) i) r * r') n) = ↑r * ↑(↑r' j)

tactic: apply (Dfinsupp.sum_single_index _).trans
state_before: ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ (Dfinsupp.sum (↑(of (fun i => { x // x ∈ A i }) i) r) fun i ri =>
      Dfinsupp.sum r' fun j rj => if i + j = n then ↑ri * ↑rj else 0) =
    ↑r * ↑(↑r' j)

tactic: swap
state_before: ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ (Dfinsupp.sum r' fun j rj => if i + j = n then ↑r * ↑rj else 0) = ↑r * ↑(↑r' j)

ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ (Dfinsupp.sum r' fun j rj => if i + j = n then ↑0 * ↑rj else 0) = 0

tactic: simp_rw [Dfinsupp.sum, H, Finset.sum_ite_eq']
state_before: ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ (Dfinsupp.sum r' fun j rj => if i + j = n then ↑r * ↑rj else 0) = ↑r * ↑(↑r' j)

tactic: split_ifs with h
state_before: ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ (if j ∈ Dfinsupp.support r' then ↑r * ↑(↑r' j) else 0) = ↑r * ↑(↑r' j)

tactic: rfl
state_before: case inl
ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
h : j ∈ Dfinsupp.support r'
⊢ ↑r * ↑(↑r' j) = ↑r * ↑(↑r' j)

case inr
ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
h : ¬j ∈ Dfinsupp.support r'
⊢ 0 = ↑r * ↑(↑r' j)

tactic: rw [Dfinsupp.not_mem_support_iff.mp h, ZeroMemClass.coe_zero, MulZeroClass.mul_zero]
state_before: case inr
ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
h : ¬j ∈ Dfinsupp.support r'
⊢ 0 = ↑r * ↑(↑r' j)

tactic: simp_rw [ZeroMemClass.coe_zero, MulZeroClass.zero_mul, ite_self]
state_before: ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ (Dfinsupp.sum r' fun j rj => if i + j = n then ↑0 * ↑rj else 0) = 0

tactic: exact Dfinsupp.sum_zero
state_before: ι : Type u_1
σ : Type u_3
S : Type ?u.131841
R : Type u_2
inst✝⁵ : DecidableEq ι
inst✝⁴ : Semiring R
inst✝³ : SetLike σ R
inst✝² : AddSubmonoidClass σ R
A : ι → σ
inst✝¹ : AddMonoid ι
inst✝ : SetLike.GradedMonoid A
i : ι
r : { x // x ∈ A i }
r' : ⨁ (i : ι), { x // x ∈ A i }
j n : ι
H : ∀ (x : ι), i + x = n ↔ x = j
⊢ (Dfinsupp.sum r' fun j rj => 0) = 0