Theorem fsumcom2 15726

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 5687	. . . . . . . . 9 ⊢ Rel ({𝑗} × 𝐵)
2	1	rgenw 3059	. . . . . . . 8 ⊢ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵)
3		reliun 5809	. . . . . . . 8 ⊢ (Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵))
4	2, 3	mpbir 230	. . . . . . 7 ⊢ Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵)
5		relcnv 6097	. . . . . . 7 ⊢ Rel ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)
6		ancom 460	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑗 ∧ 𝑦 = 𝑘) ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
7		vex 3472	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3472	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	opth 5469	. . . . . . . . . . . 12 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗 ∧ 𝑦 = 𝑘))
10	8, 7	opth 5469	. . . . . . . . . . . 12 ⊢ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
11	6, 9, 10	3bitr4i 303	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
12	11	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13		fsumcom2.4	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵) ↔ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
14	12, 13	anbi12d 630	. . . . . . . . 9 ⊢ (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
15	14	2exbidv 1919	. . . . . . . 8 ⊢ (𝜑 → (∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
16		eliunxp 5831	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)))
17	7, 8	opelcnv 5875	. . . . . . . . 9 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
18		eliunxp 5831	. . . . . . . . 9 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
19		excom 2154	. . . . . . . . 9 ⊢ (∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
20	17, 18, 19	3bitri 297	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
21	15, 16, 20	3bitr4g 314	. . . . . . 7 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)))
22	4, 5, 21	eqrelrdv 5785	. . . . . 6 ⊢ (𝜑 → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
23		nfcv 2897	. . . . . . 7 ⊢ Ⅎ𝑚({𝑗} × 𝐵)
24		nfcv 2897	. . . . . . . 8 ⊢ Ⅎ𝑗{𝑚}
25		nfcsb1v 3913	. . . . . . . 8 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐵
26	24, 25	nfxp 5702	. . . . . . 7 ⊢ Ⅎ𝑗({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)
27		sneq 4633	. . . . . . . 8 ⊢ (𝑗 = 𝑚 → {𝑗} = {𝑚})
28		csbeq1a 3902	. . . . . . . 8 ⊢ (𝑗 = 𝑚 → 𝐵 = ⦋𝑚 / 𝑗⦌𝐵)
29	27, 28	xpeq12d 5700	. . . . . . 7 ⊢ (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵))
30	23, 26, 29	cbviun 5032	. . . . . 6 ⊢ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)
31		nfcv 2897	. . . . . . . 8 ⊢ Ⅎ𝑛({𝑘} × 𝐷)
32		nfcv 2897	. . . . . . . . 9 ⊢ Ⅎ𝑘{𝑛}
33		nfcsb1v 3913	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌𝐷
34	32, 33	nfxp 5702	. . . . . . . 8 ⊢ Ⅎ𝑘({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
35		sneq 4633	. . . . . . . . 9 ⊢ (𝑘 = 𝑛 → {𝑘} = {𝑛})
36		csbeq1a 3902	. . . . . . . . 9 ⊢ (𝑘 = 𝑛 → 𝐷 = ⦋𝑛 / 𝑘⦌𝐷)
37	35, 36	xpeq12d 5700	. . . . . . . 8 ⊢ (𝑘 = 𝑛 → ({𝑘} × 𝐷) = ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
38	31, 34, 37	cbviun 5032	. . . . . . 7 ⊢ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
39	38	cnveqi 5868	. . . . . 6 ⊢ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ◡∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
40	22, 30, 39	3eqtr3g 2789	. . . . 5 ⊢ (𝜑 → ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵) = ◡∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
41	40	sumeq1d 15653	. . . 4 ⊢ (𝜑 → Σ𝑧 ∈ ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = Σ𝑧 ∈ ◡ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
42		vex 3472	. . . . . . . 8 ⊢ 𝑛 ∈ V
43		vex 3472	. . . . . . . 8 ⊢ 𝑚 ∈ V
44	42, 43	op1std 7984	. . . . . . 7 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → (1st ‘𝑤) = 𝑛)
45	44	csbeq1d 3892	. . . . . 6 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
46	42, 43	op2ndd 7985	. . . . . . . 8 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → (2nd ‘𝑤) = 𝑚)
47	46	csbeq1d 3892	. . . . . . 7 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑚 / 𝑗⦌𝐸)
48	47	csbeq2dv 3895	. . . . . 6 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋𝑛 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
49	45, 48	eqtrd 2766	. . . . 5 ⊢ (𝑤 = ⟨𝑛, 𝑚⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
50	43, 42	op2ndd 7985	. . . . . . 7 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → (2nd ‘𝑧) = 𝑛)
51	50	csbeq1d 3892	. . . . . 6 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
52	43, 42	op1std 7984	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → (1st ‘𝑧) = 𝑚)
53	52	csbeq1d 3892	. . . . . . 7 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑚 / 𝑗⦌𝐸)
54	53	csbeq2dv 3895	. . . . . 6 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋𝑛 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
55	51, 54	eqtrd 2766	. . . . 5 ⊢ (𝑧 = ⟨𝑚, 𝑛⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
56		fsumcom2.2	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Fin)
57		snfi 9046	. . . . . . . 8 ⊢ {𝑛} ∈ Fin
58		fsumcom2.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ Fin)
59	58	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → 𝐴 ∈ Fin)
60	43, 42	opelcnv 5875	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑚, 𝑛⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑛, 𝑚⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
61	33, 36	opeliunxp2f 8196	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑛, 𝑚⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷))
62	60, 61	sylbbr 235	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷) → ⟨𝑚, 𝑛⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
63	62	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ⟨𝑚, 𝑛⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
64	22	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
65	63, 64	eleqtrrd 2830	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ⟨𝑚, 𝑛⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵))
66		eliun 4994	. . . . . . . . . . . . 13 ⊢ (⟨𝑚, 𝑛⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
67	65, 66	sylib 217	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
68		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵))
69		opelxp 5705	. . . . . . . . . . . . . . . . 17 ⊢ (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑚 ∈ {𝑗} ∧ 𝑛 ∈ 𝐵))
70	68, 69	sylib 217	. . . . . . . . . . . . . . . 16 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → (𝑚 ∈ {𝑗} ∧ 𝑛 ∈ 𝐵))
71	70	simpld 494	. . . . . . . . . . . . . . 15 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ {𝑗})
72		elsni 4640	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
73	71, 72	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 = 𝑗)
74		simpl 482	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑗 ∈ 𝐴)
75	73, 74	eqeltrd 2827	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵)) → 𝑚 ∈ 𝐴)
76	75	rexlimiva 3141	. . . . . . . . . . . 12 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑚 ∈ 𝐴)
77	67, 76	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → 𝑚 ∈ 𝐴)
78	77	expr 456	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → (𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷 → 𝑚 ∈ 𝐴))
79	78	ssrdv 3983	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → ⦋𝑛 / 𝑘⦌𝐷 ⊆ 𝐴)
80	59, 79	ssfid 9269	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → ⦋𝑛 / 𝑘⦌𝐷 ∈ Fin)
81		xpfi 9319	. . . . . . . 8 ⊢ (({𝑛} ∈ Fin ∧ ⦋𝑛 / 𝑘⦌𝐷 ∈ Fin) → ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
82	57, 80, 81	sylancr 586	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐶) → ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
83	82	ralrimiva 3140	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
84		iunfi 9342	. . . . . 6 ⊢ ((𝐶 ∈ Fin ∧ ∀𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin) → ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
85	56, 83, 84	syl2anc 583	. . . . 5 ⊢ (𝜑 → ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ∈ Fin)
86		reliun 5809	. . . . . . 7 ⊢ (Rel ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ↔ ∀𝑛 ∈ 𝐶 Rel ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
87		relxp 5687	. . . . . . . 8 ⊢ Rel ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
88	87	a1i 11	. . . . . . 7 ⊢ (𝑛 ∈ 𝐶 → Rel ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
89	86, 88	mprgbir 3062	. . . . . 6 ⊢ Rel ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)
90	89	a1i 11	. . . . 5 ⊢ (𝜑 → Rel ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
91		csbeq1 3891	. . . . . . . 8 ⊢ (𝑚 = (2nd ‘𝑤) → ⦋𝑚 / 𝑗⦌𝐸 = ⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
92	91	csbeq2dv 3895	. . . . . . 7 ⊢ (𝑚 = (2nd ‘𝑤) → ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
93	92	eleq1d 2812	. . . . . 6 ⊢ (𝑚 = (2nd ‘𝑤) → (⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ))
94		csbeq1 3891	. . . . . . . 8 ⊢ (𝑛 = (1st ‘𝑤) → ⦋𝑛 / 𝑘⦌𝐷 = ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
95		csbeq1 3891	. . . . . . . . 9 ⊢ (𝑛 = (1st ‘𝑤) → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
96	95	eleq1d 2812	. . . . . . . 8 ⊢ (𝑛 = (1st ‘𝑤) → (⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
97	94, 96	raleqbidv 3336	. . . . . . 7 ⊢ (𝑛 = (1st ‘𝑤) → (∀𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ∀𝑚 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
98		simpl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → 𝜑)
99	25	nfcri 2884	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵
100	72	equcomd 2014	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ {𝑗} → 𝑗 = 𝑚)
101	100, 28	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 ∈ {𝑗} → 𝐵 = ⦋𝑚 / 𝑗⦌𝐵)
102	101	eleq2d 2813	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ {𝑗} → (𝑛 ∈ 𝐵 ↔ 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵))
103	102	biimpa 476	. . . . . . . . . . . . . 14 ⊢ ((𝑚 ∈ {𝑗} ∧ 𝑛 ∈ 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
104	69, 103	sylbi 216	. . . . . . . . . . . . 13 ⊢ (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
105	104	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ 𝐴 → (⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵))
106	99, 105	rexlimi 3250	. . . . . . . . . . 11 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑚, 𝑛⟩ ∈ ({𝑗} × 𝐵) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
107	67, 106	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)
108		fsumcom2.5	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐸 ∈ ℂ)
109	108	ralrimivva 3194	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ)
110		nfcsb1v 3913	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐸
111	110	nfel1 2913	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ
112	25, 111	nfralw 3302	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ
113		csbeq1a 3902	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑚 → 𝐸 = ⦋𝑚 / 𝑗⦌𝐸)
114	113	eleq1d 2812	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑚 → (𝐸 ∈ ℂ ↔ ⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
115	28, 114	raleqbidv 3336	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑚 → (∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
116	112, 115	rspc 3594	. . . . . . . . . . . . 13 ⊢ (𝑚 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ → ∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
117	109, 116	mpan9 506	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ 𝐴) → ∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
118		nfcsb1v 3913	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
119	118	nfel1 2913	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ
120		csbeq1a 3902	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑛 → ⦋𝑚 / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
121	120	eleq1d 2812	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑛 → (⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
122	119, 121	rspc 3594	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵 → (∀𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
123	117, 122	syl5com 31	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ 𝐴) → (𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵 → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ))
124	123	impr 454	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑚 ∈ 𝐴 ∧ 𝑛 ∈ ⦋𝑚 / 𝑗⦌𝐵)) → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
125	98, 77, 107, 124	syl12anc 834	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ 𝐶 ∧ 𝑚 ∈ ⦋𝑛 / 𝑘⦌𝐷)) → ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
126	125	ralrimivva 3194	. . . . . . . 8 ⊢ (𝜑 → ∀𝑛 ∈ 𝐶 ∀𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
127	126	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ∀𝑛 ∈ 𝐶 ∀𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
128		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
129		eliun 4994	. . . . . . . . 9 ⊢ (𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) ↔ ∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
130	128, 129	sylib 217	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷))
131		xp1st 8006	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ {𝑛})
132	131	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ {𝑛})
133		elsni 4640	. . . . . . . . . . 11 ⊢ ((1st ‘𝑤) ∈ {𝑛} → (1st ‘𝑤) = 𝑛)
134	132, 133	syl 17	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) = 𝑛)
135		simpl 482	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → 𝑛 ∈ 𝐶)
136	134, 135	eqeltrd 2827	. . . . . . . . 9 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
137	136	rexlimiva 3141	. . . . . . . 8 ⊢ (∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ 𝐶)
138	130, 137	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
139	97, 127, 138	rspcdva 3607	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ∀𝑚 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 ∈ ℂ)
140		xp2nd 8007	. . . . . . . . . 10 ⊢ (𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋𝑛 / 𝑘⦌𝐷)
141	140	adantl 481	. . . . . . . . 9 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋𝑛 / 𝑘⦌𝐷)
142	134	csbeq1d 3892	. . . . . . . . 9 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌𝐷 = ⦋𝑛 / 𝑘⦌𝐷)
143	141, 142	eleqtrrd 2830	. . . . . . . 8 ⊢ ((𝑛 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
144	143	rexlimiva 3141	. . . . . . 7 ⊢ (∃𝑛 ∈ 𝐶 𝑤 ∈ ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
145	130, 144	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
146	93, 139, 145	rspcdva 3607	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ)
147	49, 55, 85, 90, 146	fsumcnv 15725	. . . 4 ⊢ (𝜑 → Σ𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = Σ𝑧 ∈ ◡ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
148	41, 147	eqtr4d 2769	. . 3 ⊢ (𝜑 → Σ𝑧 ∈ ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = Σ𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
149		fsumcom2.3	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
150	149	ralrimiva 3140	. . . . 5 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 𝐵 ∈ Fin)
151	25	nfel1 2913	. . . . . 6 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐵 ∈ Fin
152	28	eleq1d 2812	. . . . . 6 ⊢ (𝑗 = 𝑚 → (𝐵 ∈ Fin ↔ ⦋𝑚 / 𝑗⦌𝐵 ∈ Fin))
153	151, 152	rspc 3594	. . . . 5 ⊢ (𝑚 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 𝐵 ∈ Fin → ⦋𝑚 / 𝑗⦌𝐵 ∈ Fin))
154	150, 153	mpan9 506	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ 𝐴) → ⦋𝑚 / 𝑗⦌𝐵 ∈ Fin)
155	55, 58, 154, 124	fsum2d 15723	. . 3 ⊢ (𝜑 → Σ𝑚 ∈ 𝐴 Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = Σ𝑧 ∈ ∪ 𝑚 ∈ 𝐴 ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
156	49, 56, 80, 125	fsum2d 15723	. . 3 ⊢ (𝜑 → Σ𝑛 ∈ 𝐶 Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = Σ𝑤 ∈ ∪ 𝑛 ∈ 𝐶 ({𝑛} × ⦋𝑛 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
157	148, 155, 156	3eqtr4d 2776	. 2 ⊢ (𝜑 → Σ𝑚 ∈ 𝐴 Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸 = Σ𝑛 ∈ 𝐶 Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
158		nfcv 2897	. . 3 ⊢ Ⅎ𝑚Σ𝑘 ∈ 𝐵 𝐸
159		nfcv 2897	. . . . 5 ⊢ Ⅎ𝑗𝑛
160	159, 110	nfcsbw 3915	. . . 4 ⊢ Ⅎ𝑗⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
161	25, 160	nfsum 15643	. . 3 ⊢ Ⅎ𝑗Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
162		nfcv 2897	. . . . 5 ⊢ Ⅎ𝑛𝐸
163		nfcsb1v 3913	. . . . 5 ⊢ Ⅎ𝑘⦋𝑛 / 𝑘⦌𝐸
164		csbeq1a 3902	. . . . 5 ⊢ (𝑘 = 𝑛 → 𝐸 = ⦋𝑛 / 𝑘⦌𝐸)
165	162, 163, 164	cbvsumi 15649	. . . 4 ⊢ Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑛 ∈ 𝐵 ⦋𝑛 / 𝑘⦌𝐸
166	113	csbeq2dv 3895	. . . . . 6 ⊢ (𝑗 = 𝑚 → ⦋𝑛 / 𝑘⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
167	166	adantr 480	. . . . 5 ⊢ ((𝑗 = 𝑚 ∧ 𝑛 ∈ 𝐵) → ⦋𝑛 / 𝑘⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
168	28, 167	sumeq12dv 15658	. . . 4 ⊢ (𝑗 = 𝑚 → Σ𝑛 ∈ 𝐵 ⦋𝑛 / 𝑘⦌𝐸 = Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
169	165, 168	eqtrid 2778	. . 3 ⊢ (𝑗 = 𝑚 → Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
170	158, 161, 169	cbvsumi 15649	. 2 ⊢ Σ𝑗 ∈ 𝐴 Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑚 ∈ 𝐴 Σ𝑛 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
171		nfcv 2897	. . 3 ⊢ Ⅎ𝑛Σ𝑗 ∈ 𝐷 𝐸
172	33, 118	nfsum 15643	. . 3 ⊢ Ⅎ𝑘Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
173		nfcv 2897	. . . . 5 ⊢ Ⅎ𝑚𝐸
174	173, 110, 113	cbvsumi 15649	. . . 4 ⊢ Σ𝑗 ∈ 𝐷 𝐸 = Σ𝑚 ∈ 𝐷 ⦋𝑚 / 𝑗⦌𝐸
175	120	adantr 480	. . . . 5 ⊢ ((𝑘 = 𝑛 ∧ 𝑚 ∈ 𝐷) → ⦋𝑚 / 𝑗⦌𝐸 = ⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
176	36, 175	sumeq12dv 15658	. . . 4 ⊢ (𝑘 = 𝑛 → Σ𝑚 ∈ 𝐷 ⦋𝑚 / 𝑗⦌𝐸 = Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
177	174, 176	eqtrid 2778	. . 3 ⊢ (𝑘 = 𝑛 → Σ𝑗 ∈ 𝐷 𝐸 = Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸)
178	171, 172, 177	cbvsumi 15649	. 2 ⊢ Σ𝑘 ∈ 𝐶 Σ𝑗 ∈ 𝐷 𝐸 = Σ𝑛 ∈ 𝐶 Σ𝑚 ∈ ⦋ 𝑛 / 𝑘⦌𝐷⦋𝑛 / 𝑘⦌⦋𝑚 / 𝑗⦌𝐸
179	157, 170, 178	3eqtr4g 2791	1 ⊢ (𝜑 → Σ𝑗 ∈ 𝐴 Σ𝑘 ∈ 𝐵 𝐸 = Σ𝑘 ∈ 𝐶 Σ𝑗 ∈ 𝐷 𝐸)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395   = wceq 1533  ∃wex 1773   ∈ wcel 2098  ∀wral 3055  ∃wrex 3064  ⦋csb 3888  {csn 4623  ⟨cop 4629  ∪ ciun 4990   × cxp 5667  ^◡ccnv 5668  Rel wrel 5674  ‘cfv 6537  1^st c1st 7972  2^nd c2nd 7973  Fincfn 8941  ℂcc 11110  Σcsu 15638

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7722  ax-inf2 9638  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189  ax-pre-sup 11190

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-nel 3041  df-ral 3056  df-rex 3065  df-rmo 3370  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-pss 3962  df-nul 4318  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4903  df-int 4944  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-se 5625  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6294  df-ord 6361  df-on 6362  df-lim 6363  df-suc 6364  df-iota 6489  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7853  df-1st 7974  df-2nd 7975  df-frecs 8267  df-wrecs 8298  df-recs 8372  df-rdg 8411  df-1o 8467  df-er 8705  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-sup 9439  df-oi 9507  df-card 9936  df-pnf 11254  df-mnf 11255  df-xr 11256  df-ltxr 11257  df-le 11258  df-sub 11450  df-neg 11451  df-div 11876  df-nn 12217  df-2 12279  df-3 12280  df-n0 12477  df-z 12563  df-uz 12827  df-rp 12981  df-fz 13491  df-fzo 13634  df-seq 13973  df-exp 14033  df-hash 14296  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-clim 15438  df-sum 15639

This theorem is referenced by:  fsumcom  15727  fsum0diag  15729  fsumdvdsdiag  27071  dvdsflsumcom  27075  fsumfldivdiag  27077  logfac2  27105  chpchtsum  27107  logfaclbnd  27110  dchrisum0lem1  27404