Theorem fsumcom2 15414

Description: Interchange order of summation. Note that 𝐵(𝑗) and 𝐷(𝑘) are not necessarily constant expressions. (Contributed by Mario Carneiro, 28-Apr-2014.) (Revised by Mario Carneiro, 8-Apr-2016.) (Proof shortened by JJ, 2-Aug-2021.)

Hypotheses

Ref	Expression
fsumcom2.1	⊢ (𝜑 → 𝐴 ∈ Fin)
fsumcom2.2	⊢ (𝜑 → 𝐶 ∈ Fin)
fsumcom2.3	⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
fsumcom2.4	⊢ (𝜑 → ((𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵) ↔ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
fsumcom2.5	⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐸 ∈ ℂ)

Assertion

Ref	Expression
fsumcom2	⊢ (𝜑 → Σ𝑗 ∈ 𝐴 Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑘 ∈ 𝐶 Σ𝑗 ∈ 𝐷 𝐸)

Distinct variable groups:   𝑗,𝑘,𝐴   𝐶,𝑗,𝑘   𝜑,𝑗,𝑘   𝐵,𝑘   𝐷,𝑗

Allowed substitution hints:   𝐵(𝑗)   𝐷(𝑘)   𝐸(𝑗,𝑘)

Proof of Theorem fsumcom2

Dummy variables 𝑚 𝑛 𝑥 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		relxp 5598	. . . . . . . . 9 ⊢ Rel ({𝑗} × 𝐵)
2	1	rgenw 3075	. . . . . . . 8 ⊢ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵)
3		reliun 5715	. . . . . . . 8 ⊢ (Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵))
4	2, 3	mpbir 230	. . . . . . 7 ⊢ Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵)
5		relcnv 6001	. . . . . . 7 ⊢ Rel ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)
6		ancom 460	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑗 ∧ 𝑦 = 𝑘) ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
7		vex 3426	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3426	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	opth 5385	. . . . . . . . . . . 12 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗 ∧ 𝑦 = 𝑘))
10	8, 7	opth 5385	. . . . . . . . . . . 12 ⊢ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
11	6, 9, 10	3bitr4i 302	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
12	11	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13		fsumcom2.4	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵) ↔ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
14	12, 13	anbi12d 630	. . . . . . . . 9 ⊢ (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
15	14	2exbidv 1928	. . . . . . . 8 ⊢ (𝜑 → (∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
16		eliunxp 5735	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)))
17	7, 8	opelcnv 5779	. . . . . . . . 9 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
18		eliunxp 5735	. . . . . . . . 9 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
19		excom 2164	. . . . . . . . 9 ⊢ (∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
20	17, 18, 19	3bitri 296	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
21	15, 16, 20	3bitr4g 313	. . . . . . 7 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)))
22	4, 5, 21	eqrelrdv 5691	. . . . . 6 ⊢ (𝜑 → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
23		nfcv 2906	. . . . . . 7 ⊢ Ⅎ𝑚({𝑗} × 𝐵)
24		nfcv 2906	. . . . . . . 8 ⊢ Ⅎ𝑗{𝑚}
25		nfcsb1v 3853	. . . . . . . 8 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐵
26	24, 25	nfxp 5613	. . . . . . 7 ⊢ Ⅎ𝑗({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)
27		sneq 4568	. . . . . . . 8 ⊢ (𝑗 = 𝑚 → {𝑗} = {𝑚})
28		csbeq1a 3842	. . . . . . . 8 ⊢ (𝑗 = 𝑚 → 𝐵 = ⦋𝑚 / 𝑗⦌𝐵)
29	27, 28	xpeq12d 5611	. . . . . . 7 ⊢ (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵))
30	23, 26, 29	cbviun 4962	. . . . . 6 ⊢ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)
31		nfcv 2906	. . . . . . . 8 ⊢ Ⅎ𝑛({𝑘} × 𝐷)
32		nfcv 2906	. . . . . . . . 9 ⊢ Ⅎ𝑘{𝑛}
33		nfcsb1v 3853	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌𝐷
34	32, 33	nfxp 5613	. . . . . . . 8 ⊢ Ⅎ𝑘({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
35		sneq 4568	. . . . . . . . 9 ⊢ (𝑘 = 𝑛 → {𝑘} = {𝑛})
36		csbeq1a 3842	. . . . . . . . 9 ⊢ (𝑘 = 𝑛 → 𝐷 = ⦋𝑛 / 𝑘⦌𝐷)
37	35, 36	xpeq12d 5611	. . . . . . . 8 ⊢ (𝑘 = 𝑛 → ({𝑘} × 𝐷) = ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
38	31, 34, 37	cbviun 4962	. . . . . . 7 ⊢ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
39	38	cnveqi 5772	. . . . . 6 ⊢ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ◡∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
40	22, 30, 39	3eqtr3g 2802	. . . . 5 ⊢ (𝜑 → ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵) = ◡∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
41	40	sumeq1d 15341	. . . 4 ⊢ (𝜑 → Σ𝑧 ∈ ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = Σ𝑧 ∈ ◡ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
42		vex 3426	. . . . . . . 8 ⊢ 𝑛 ∈ V
43		vex 3426	. . . . . . . 8 ⊢ 𝑚 ∈ V
44	42, 43	op1std 7814	. . . . . . 7 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → (1st ‘𝑤) = 𝑛)
45	44	csbeq1d 3832	. . . . . 6 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
46	42, 43	op2ndd 7815	. . . . . . . 8 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd ‘𝑤) = 𝑚)
47	46	csbeq1d 3832	. . . . . . 7 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑚 / 𝑗⦌𝐸)
48	47	csbeq2dv 3835	. . . . . 6 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋𝑛 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
49	45, 48	eqtrd 2778	. . . . 5 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
50	43, 42	op2ndd 7815	. . . . . . 7 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd ‘𝑧) = 𝑛)
51	50	csbeq1d 3832	. . . . . 6 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
52	43, 42	op1std 7814	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → (1st ‘𝑧) = 𝑚)
53	52	csbeq1d 3832	. . . . . . 7 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑚 / 𝑗⦌𝐸)
54	53	csbeq2dv 3835	. . . . . 6 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋𝑛 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
55	51, 54	eqtrd 2778	. . . . 5 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
56		fsumcom2.2	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Fin)
57		snfi 8788	. . . . . . . 8 ⊢ {𝑛} ∈ Fin
58		fsumcom2.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ Fin)
59	58	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → 𝐴 ∈ Fin)
60	43, 42	opelcnv 5779	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑚, 𝑛⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑛, 𝑚⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
61	33, 36	opeliunxp2f 7997	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑛, 𝑚⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷))
62	60, 61	sylbbr 235	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷) → ⟨𝑚, 𝑛⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
63	62	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ⟨𝑚, 𝑛⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
64	22	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
65	63, 64	eleqtrrd 2842	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ⟨𝑚, 𝑛⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵))
66		eliun 4925	. . . . . . . . . . . . 13 ⊢ (⟨𝑚, 𝑛⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
67	65, 66	sylib 217	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
68		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
69		opelxp 5616	. . . . . . . . . . . . . . . . 17 ⊢ (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑚 ∈ {𝑗} ∧ 𝑛 ∈ 𝐵))
70	68, 69	sylib 217	. . . . . . . . . . . . . . . 16 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → (𝑚 ∈ {𝑗} ∧ 𝑛 ∈ 𝐵))
71	70	simpld 494	. . . . . . . . . . . . . . 15 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ {𝑗})
72		elsni 4575	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
73	71, 72	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 = 𝑗)
74		simpl 482	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑗 ∈ 𝐴)
75	73, 74	eqeltrd 2839	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ 𝐴)
76	75	rexlimiva 3209	. . . . . . . . . . . 12 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑚 ∈ 𝐴)
77	67, 76	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → 𝑚 ∈ 𝐴)
78	77	expr 456	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → (𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷 → 𝑚 ∈ 𝐴))
79	78	ssrdv 3923	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → ⦋𝑛 / 𝑘⦌𝐷 ⊆ 𝐴)
80	59, 79	ssfid 8971	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → ⦋𝑛 / 𝑘⦌𝐷 ∈ Fin)
81		xpfi 9015	. . . . . . . 8 ⊢ (({𝑛} ∈ Fin ∧ ⦋𝑛 / 𝑘⦌𝐷 ∈ Fin) → ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
82	57, 80, 81	sylancr 586	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
83	82	ralrimiva 3107	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
84		iunfi 9037	. . . . . 6 ⊢ ((𝐶 ∈ Fin ∧ ∀𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin) → ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
85	56, 83, 84	syl2anc 583	. . . . 5 ⊢ (𝜑 → ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
86		reliun 5715	. . . . . . 7 ⊢ (Rel ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ↔ ∀𝑛 ∈ 𝐶 Rel ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
87		relxp 5598	. . . . . . . 8 ⊢ Rel ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
88	87	a1i 11	. . . . . . 7 ⊢ (𝑛 ∈ 𝐶 → Rel ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
89	86, 88	mprgbir 3078	. . . . . 6 ⊢ Rel ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
90	89	a1i 11	. . . . 5 ⊢ (𝜑 → Rel ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
91		csbeq1 3831	. . . . . . . 8 ⊢ (𝑚 = (2nd ‘𝑤) → ⦋𝑚 / 𝑗⦌𝐸 = ⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
92	91	csbeq2dv 3835	. . . . . . 7 ⊢ (𝑚 = (2nd ‘𝑤) → ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
93	92	eleq1d 2823	. . . . . 6 ⊢ (𝑚 = (2nd ‘𝑤) → (⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ))
94		csbeq1 3831	. . . . . . . 8 ⊢ (𝑛 = (1st ‘𝑤) → ⦋𝑛 / 𝑘⦌𝐷 = ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
95		csbeq1 3831	. . . . . . . . 9 ⊢ (𝑛 = (1st ‘𝑤) → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
96	95	eleq1d 2823	. . . . . . . 8 ⊢ (𝑛 = (1st ‘𝑤) → (⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
97	94, 96	raleqbidv 3327	. . . . . . 7 ⊢ (𝑛 = (1st ‘𝑤) → (∀𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ∀𝑚 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
98		simpl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → 𝜑)
99	25	nfcri 2893	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵
100	72	equcomd 2023	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ {𝑗} → 𝑗 = 𝑚)
101	100, 28	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 ∈ {𝑗} → 𝐵 = ⦋𝑚 / 𝑗⦌𝐵)
102	101	eleq2d 2824	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ {𝑗} → (𝑛 ∈ 𝐵 ↔ 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵))
103	102	biimpa 476	. . . . . . . . . . . . . 14 ⊢ ((𝑚 ∈ {𝑗} ∧ 𝑛 ∈ 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
104	69, 103	sylbi 216	. . . . . . . . . . . . 13 ⊢ (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
105	104	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ 𝐴 → (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵))
106	99, 105	rexlimi 3243	. . . . . . . . . . 11 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
107	67, 106	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
108		fsumcom2.5	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐸 ∈ ℂ)
109	108	ralrimivva 3114	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ)
110		nfcsb1v 3853	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐸
111	110	nfel1 2922	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ
112	25, 111	nfralw 3149	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ
113		csbeq1a 3842	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑚 → 𝐸 = ⦋𝑚 / 𝑗⦌𝐸)
114	113	eleq1d 2823	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑚 → (𝐸 ∈ ℂ ↔ ⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
115	28, 114	raleqbidv 3327	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑚 → (∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
116	112, 115	rspc 3539	. . . . . . . . . . . . 13 ⊢ (𝑚 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ → ∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
117	109, 116	mpan9 506	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ 𝐴) → ∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
118		nfcsb1v 3853	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
119	118	nfel1 2922	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ
120		csbeq1a 3842	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑛 → ⦋𝑚 / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
121	120	eleq1d 2823	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑛 → (⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
122	119, 121	rspc 3539	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵 → (∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
123	117, 122	syl5com 31	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ 𝐴) → (𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵 → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
124	123	impr 454	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑚 ∈ 𝐴 ∧ 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)) → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
125	98, 77, 107, 124	syl12anc 833	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
126	125	ralrimivva 3114	. . . . . . . 8 ⊢ (𝜑 → ∀𝑛 ∈ 𝐶 ∀𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
127	126	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ∀𝑛 ∈ 𝐶 ∀𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
128		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
129		eliun 4925	. . . . . . . . 9 ⊢ (𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ↔ ∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
130	128, 129	sylib 217	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
131		xp1st 7836	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ {𝑛})
132	131	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ {𝑛})
133		elsni 4575	. . . . . . . . . . 11 ⊢ ((1st ‘𝑤) ∈ {𝑛} → (1st ‘𝑤) = 𝑛)
134	132, 133	syl 17	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) = 𝑛)
135		simpl 482	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → 𝑛 ∈ 𝐶)
136	134, 135	eqeltrd 2839	. . . . . . . . 9 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
137	136	rexlimiva 3209	. . . . . . . 8 ⊢ (∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ 𝐶)
138	130, 137	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
139	97, 127, 138	rspcdva 3554	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ∀𝑚 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
140		xp2nd 7837	. . . . . . . . . 10 ⊢ (𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋𝑛 / 𝑘⦌𝐷)
141	140	adantl 481	. . . . . . . . 9 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋𝑛 / 𝑘⦌𝐷)
142	134	csbeq1d 3832	. . . . . . . . 9 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌𝐷 = ⦋𝑛 / 𝑘⦌𝐷)
143	141, 142	eleqtrrd 2842	. . . . . . . 8 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
144	143	rexlimiva 3209	. . . . . . 7 ⊢ (∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
145	130, 144	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
146	93, 139, 145	rspcdva 3554	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ)
147	49, 55, 85, 90, 146	fsumcnv 15413	. . . 4 ⊢ (𝜑 → Σ𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = Σ𝑧 ∈ ◡ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
148	41, 147	eqtr4d 2781	. . 3 ⊢ (𝜑 → Σ𝑧 ∈ ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = Σ𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
149		fsumcom2.3	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
150	149	ralrimiva 3107	. . . . 5 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 𝐵 ∈ Fin)
151	25	nfel1 2922	. . . . . 6 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐵 ∈ Fin
152	28	eleq1d 2823	. . . . . 6 ⊢ (𝑗 = 𝑚 → (𝐵 ∈ Fin ↔ ⦋𝑚 / 𝑗⦌𝐵 ∈ Fin))
153	151, 152	rspc 3539	. . . . 5 ⊢ (𝑚 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 𝐵 ∈ Fin → ⦋𝑚 / 𝑗⦌𝐵 ∈ Fin))
154	150, 153	mpan9 506	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ 𝐴) → ⦋𝑚 / 𝑗⦌𝐵 ∈ Fin)
155	55, 58, 154, 124	fsum2d 15411	. . 3 ⊢ (𝜑 → Σ𝑚 ∈ 𝐴 Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = Σ𝑧 ∈ ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
156	49, 56, 80, 125	fsum2d 15411	. . 3 ⊢ (𝜑 → Σ𝑛 ∈ 𝐶 Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = Σ𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
157	148, 155, 156	3eqtr4d 2788	. 2 ⊢ (𝜑 → Σ𝑚 ∈ 𝐴 Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = Σ𝑛 ∈ 𝐶 Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
158		nfcv 2906	. . 3 ⊢ Ⅎ𝑚Σ𝑘 ∈ 𝐵 𝐸
159		nfcv 2906	. . . . 5 ⊢ Ⅎ𝑗𝑛
160	159, 110	nfcsbw 3855	. . . 4 ⊢ Ⅎ𝑗⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
161	25, 160	nfsum 15330	. . 3 ⊢ Ⅎ𝑗Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
162		nfcv 2906	. . . . 5 ⊢ Ⅎ𝑛𝐸
163		nfcsb1v 3853	. . . . 5 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌𝐸
164		csbeq1a 3842	. . . . 5 ⊢ (𝑘 = 𝑛 → 𝐸 = ⦋𝑛 / 𝑘⦌𝐸)
165	162, 163, 164	cbvsumi 15337	. . . 4 ⊢ Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑛 ∈ 𝐵 ⦋𝑛 / 𝑘⦌𝐸
166	113	csbeq2dv 3835	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋𝑛 / 𝑘⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
167	166	adantr 480	. . . . 5 ⊢ ((𝑗 = 𝑚 ∧ 𝑛 ∈ 𝐵) → ⦋𝑛 / 𝑘⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
168	28, 167	sumeq12dv 15346	. . . 4 ⊢ (𝑗 = 𝑚 → Σ𝑛 ∈ 𝐵 ⦋𝑛 / 𝑘⦌𝐸 = Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
169	165, 168	eqtrid 2790	. . 3 ⊢ (𝑗 = 𝑚 → Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
170	158, 161, 169	cbvsumi 15337	. 2 ⊢ Σ𝑗 ∈ 𝐴 Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑚 ∈ 𝐴 Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
171		nfcv 2906	. . 3 ⊢ Ⅎ𝑛Σ𝑗 ∈ 𝐷 𝐸
172	33, 118	nfsum 15330	. . 3 ⊢ Ⅎ𝑘Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
173		nfcv 2906	. . . . 5 ⊢ Ⅎ𝑚𝐸
174	173, 110, 113	cbvsumi 15337	. . . 4 ⊢ Σ𝑗 ∈ 𝐷 𝐸 = Σ𝑚 ∈ 𝐷 ⦋𝑚 / 𝑗⦌𝐸
175	120	adantr 480	. . . . 5 ⊢ ((𝑘 = 𝑛 ∧ 𝑚 ∈ 𝐷) → ⦋𝑚 / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
176	36, 175	sumeq12dv 15346	. . . 4 ⊢ (𝑘 = 𝑛 → Σ𝑚 ∈ 𝐷 ⦋𝑚 / 𝑗⦌𝐸 = Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
177	174, 176	eqtrid 2790	. . 3 ⊢ (𝑘 = 𝑛 → Σ𝑗 ∈ 𝐷 𝐸 = Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
178	171, 172, 177	cbvsumi 15337	. 2 ⊢ Σ𝑘 ∈ 𝐶 Σ𝑗 ∈ 𝐷 𝐸 = Σ𝑛 ∈ 𝐶 Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
179	157, 170, 178	3eqtr4g 2804	1 ⊢ (𝜑 → Σ𝑗 ∈ 𝐴 Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑘 ∈ 𝐶 Σ𝑗 ∈ 𝐷 𝐸)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395   = wceq 1539  ∃wex 1783   ∈ wcel 2108  ∀wral 3063  ∃wrex 3064  ⦋csb 3828  {csn 4558  ⟨cop 4564  ∪ ciun 4921   × cxp 5578  ^◡ccnv 5579  Rel wrel 5585  ‘cfv 6418  1^st c1st 7802  2^nd c2nd 7803  Fincfn 8691  ℂcc 10800  Σcsu 15325

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-inf2 9329  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879  ax-pre-sup 10880

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-int 4877  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-se 5536  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-isom 6427  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-1o 8267  df-er 8456  df-en 8692  df-dom 8693  df-sdom 8694  df-fin 8695  df-sup 9131  df-oi 9199  df-card 9628  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-div 11563  df-nn 11904  df-2 11966  df-3 11967  df-n0 12164  df-z 12250  df-uz 12512  df-rp 12660  df-fz 13169  df-fzo 13312  df-seq 13650  df-exp 13711  df-hash 13973  df-cj 14738  df-re 14739  df-im 14740  df-sqrt 14874  df-abs 14875  df-clim 15125  df-sum 15326

This theorem is referenced by:  fsumcom  15415  fsum0diag  15417  fsumdvdsdiag  26238  dvdsflsumcom  26242  fsumfldivdiag  26244  logfac2  26270  chpchtsum  26272  logfaclbnd  26275  dchrisum0lem1  26569