Theorem fprodcom2 16131

Description: Interchange order of multiplication. Note that 𝐵(𝑗) and 𝐷(𝑘) are not necessarily constant expressions. (Contributed by Scott Fenton, 1-Feb-2018.) (Proof shortened by JJ, 2-Aug-2021.)

Hypotheses

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

Assertion

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

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

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

Proof of Theorem fprodcom2

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

Step	Hyp	Ref	Expression
1		relxp 5669	. . . . . . . . 9 ⊢ Rel ({𝑗} × 𝐵)
2	1	rgenw 3081	. . . . . . . 8 ⊢ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵)
3		reliun 5794	. . . . . . . 8 ⊢ (Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵))
4	2, 3	mpbir 234	. . . . . . 7 ⊢ Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵)
5		relcnv 6098	. . . . . . 7 ⊢ Rel ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)
6		ancom 466	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑗 ∧ 𝑦 = 𝑘) ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
7		vex 3455	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3455	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	opth 5445	. . . . . . . . . . . 12 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗 ∧ 𝑦 = 𝑘))
10	8, 7	opth 5445	. . . . . . . . . . . 12 ⊢ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
11	6, 9, 10	3bitr4i 306	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
12	11	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13		fprodcom2.4	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵) ↔ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
14	12, 13	anbi12d 644	. . . . . . . . 9 ⊢ (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
15	14	2exbidv 1957	. . . . . . . 8 ⊢ (𝜑 → (∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
16		eliunxp 5814	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)))
17	7, 8	opelcnv 5859	. . . . . . . . 9 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
18		eliunxp 5814	. . . . . . . . 9 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
19		excom 2199	. . . . . . . . 9 ⊢ (∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
20	17, 18, 19	3bitri 300	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
21	15, 16, 20	3bitr4g 317	. . . . . . 7 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)))
22	4, 5, 21	eqrelrdv 5768	. . . . . 6 ⊢ (𝜑 → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
23		nfcv 2923	. . . . . . 7 ⊢ Ⅎ𝑥({𝑗} × 𝐵)
24		nfcv 2923	. . . . . . . 8 ⊢ Ⅎ𝑗{𝑥}
25		nfcsb1v 3871	. . . . . . . 8 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐵
26	24, 25	nfxp 5684	. . . . . . 7 ⊢ Ⅎ𝑗({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)
27		sneq 4594	. . . . . . . 8 ⊢ (𝑗 = 𝑥 → {𝑗} = {𝑥})
28		csbeq1a 3861	. . . . . . . 8 ⊢ (𝑗 = 𝑥 → 𝐵 = ⦋𝑥 / 𝑗⦌𝐵)
29	27, 28	xpeq12d 5682	. . . . . . 7 ⊢ (𝑗 = 𝑥 → ({𝑗} × 𝐵) = ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵))
30	23, 26, 29	cbviun 4993	. . . . . 6 ⊢ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)
31		nfcv 2923	. . . . . . . 8 ⊢ Ⅎ𝑦({𝑘} × 𝐷)
32		nfcv 2923	. . . . . . . . 9 ⊢ Ⅎ𝑘{𝑦}
33		nfcsb1v 3871	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌𝐷
34	32, 33	nfxp 5684	. . . . . . . 8 ⊢ Ⅎ𝑘({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
35		sneq 4594	. . . . . . . . 9 ⊢ (𝑘 = 𝑦 → {𝑘} = {𝑦})
36		csbeq1a 3861	. . . . . . . . 9 ⊢ (𝑘 = 𝑦 → 𝐷 = ⦋𝑦 / 𝑘⦌𝐷)
37	35, 36	xpeq12d 5682	. . . . . . . 8 ⊢ (𝑘 = 𝑦 → ({𝑘} × 𝐷) = ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
38	31, 34, 37	cbviun 4993	. . . . . . 7 ⊢ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
39	38	cnveqi 5852	. . . . . 6 ⊢ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ◡∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
40	22, 30, 39	3eqtr3g 2819	. . . . 5 ⊢ (𝜑 → ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵) = ◡∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
41	40	prodeq1d 16068	. . . 4 ⊢ (𝜑 → ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ∏𝑧 ∈ ◡ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
42	8, 7	op1std 8000	. . . . . . 7 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → (1st ‘𝑤) = 𝑦)
43	42	csbeq1d 3851	. . . . . 6 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
44	8, 7	op2ndd 8001	. . . . . . . 8 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → (2nd ‘𝑤) = 𝑥)
45	44	csbeq1d 3851	. . . . . . 7 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
46	45	csbeq2dv 3854	. . . . . 6 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋𝑦 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
47	43, 46	eqtrd 2796	. . . . 5 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
48	7, 8	op2ndd 8001	. . . . . . 7 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → (2nd ‘𝑧) = 𝑦)
49	48	csbeq1d 3851	. . . . . 6 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
50	7, 8	op1std 8000	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → (1st ‘𝑧) = 𝑥)
51	50	csbeq1d 3851	. . . . . . 7 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
52	51	csbeq2dv 3854	. . . . . 6 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋𝑦 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
53	49, 52	eqtrd 2796	. . . . 5 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
54		fprodcom2.2	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Fin)
55		snfi 9055	. . . . . . . 8 ⊢ {𝑦} ∈ Fin
56		fprodcom2.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ Fin)
57	56	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → 𝐴 ∈ Fin)
58	33, 36	opeliunxp2f 8211	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷))
59	17, 58	sylbbr 239	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷) → ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
60	59	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
61	22	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
62	60, 61	eleqtrrd 2864	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵))
63		eliun 4955	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
64	62, 63	sylib 221	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
65		opelxp 5687	. . . . . . . . . . . . . . . . 17 ⊢ (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵))
66	65	bilani 510	. . . . . . . . . . . . . . . 16 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → (𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵))
67	66	simpld 500	. . . . . . . . . . . . . . 15 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 ∈ {𝑗})
68		elsni 4601	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑗} → 𝑥 = 𝑗)
69	67, 68	syl 18	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 = 𝑗)
70		simpl 488	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑗 ∈ 𝐴)
71	69, 70	eqeltrd 2861	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 ∈ 𝐴)
72	71	rexlimiva 3156	. . . . . . . . . . . 12 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑥 ∈ 𝐴)
73	64, 72	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝑥 ∈ 𝐴)
74	73	expr 462	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → (𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷 → 𝑥 ∈ 𝐴))
75	74	ssrdv 3937	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ⦋𝑦 / 𝑘⦌𝐷 ⊆ 𝐴)
76	57, 75	ssfid 9244	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ⦋𝑦 / 𝑘⦌𝐷 ∈ Fin)
77		xpfi 9295	. . . . . . . 8 ⊢ (({𝑦} ∈ Fin ∧ ⦋𝑦 / 𝑘⦌𝐷 ∈ Fin) → ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
78	55, 76, 77	sylancr 599	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
79	78	ralrimiva 3155	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
80		iunfi 9316	. . . . . 6 ⊢ ((𝐶 ∈ Fin ∧ ∀𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin) → ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
81	54, 79, 80	syl2anc 596	. . . . 5 ⊢ (𝜑 → ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
82		reliun 5794	. . . . . . 7 ⊢ (Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ↔ ∀𝑦 ∈ 𝐶 Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
83		relxp 5669	. . . . . . . 8 ⊢ Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
84	83	a1i 11	. . . . . . 7 ⊢ (𝑦 ∈ 𝐶 → Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
85	82, 84	mprgbir 3084	. . . . . 6 ⊢ Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
86	85	a1i 11	. . . . 5 ⊢ (𝜑 → Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
87		csbeq1 3850	. . . . . . . 8 ⊢ (𝑥 = (2nd ‘𝑤) → ⦋𝑥 / 𝑗⦌𝐸 = ⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
88	87	csbeq2dv 3854	. . . . . . 7 ⊢ (𝑥 = (2nd ‘𝑤) → ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
89	88	eleq1d 2846	. . . . . 6 ⊢ (𝑥 = (2nd ‘𝑤) → (⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ))
90		csbeq1 3850	. . . . . . . 8 ⊢ (𝑦 = (1st ‘𝑤) → ⦋𝑦 / 𝑘⦌𝐷 = ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
91		csbeq1 3850	. . . . . . . . 9 ⊢ (𝑦 = (1st ‘𝑤) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
92	91	eleq1d 2846	. . . . . . . 8 ⊢ (𝑦 = (1st ‘𝑤) → (⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
93	90, 92	raleqbidv 3335	. . . . . . 7 ⊢ (𝑦 = (1st ‘𝑤) → (∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ∀𝑥 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
94		simpl 488	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝜑)
95	25	nfcri 2915	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵
96	68	equcomd 2052	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ {𝑗} → 𝑗 = 𝑥)
97	96, 28	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ {𝑗} → 𝐵 = ⦋𝑥 / 𝑗⦌𝐵)
98	97	eleq2d 2847	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑗} → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵))
99	98	biimpa 482	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
100	65, 99	sylbi 220	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
101	100	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ 𝐴 → (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵))
102	95, 101	rexlimi 3263	. . . . . . . . . . 11 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
103	64, 102	syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
104		fprodcom2.5	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐸 ∈ ℂ)
105	104	ralrimivva 3206	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ)
106		nfcsb1v 3871	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐸
107	106	nfel1 2939	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
108	25, 107	nfralw 3310	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
109		csbeq1a 3861	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑥 → 𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
110	109	eleq1d 2846	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑥 → (𝐸 ∈ ℂ ↔ ⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
111	28, 110	raleqbidv 3335	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑥 → (∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
112	108, 111	rspc 3565	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ → ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
113	105, 112	mpan9 516	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
114		nfcsb1v 3871	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
115	114	nfel1 2939	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
116		csbeq1a 3861	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑦 → ⦋𝑥 / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
117	116	eleq1d 2846	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑦 → (⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
118	115, 117	rspc 3565	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵 → (∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
119	113, 118	syl5com 32	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵 → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
120	119	impr 460	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
121	94, 73, 103, 120	syl12anc 850	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
122	121	ralrimivva 3206	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 ∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
123	122	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∀𝑦 ∈ 𝐶 ∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
124		eliun 4955	. . . . . . . . 9 ⊢ (𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ↔ ∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
125	124	bilani 510	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
126		xp1st 8022	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ {𝑦})
127	126	adantl 487	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ {𝑦})
128		elsni 4601	. . . . . . . . . . 11 ⊢ ((1st ‘𝑤) ∈ {𝑦} → (1st ‘𝑤) = 𝑦)
129	127, 128	syl 18	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) = 𝑦)
130		simpl 488	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → 𝑦 ∈ 𝐶)
131	129, 130	eqeltrd 2861	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
132	131	rexlimiva 3156	. . . . . . . 8 ⊢ (∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ 𝐶)
133	125, 132	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
134	93, 123, 133	rspcdva 3578	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∀𝑥 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
135		xp2nd 8023	. . . . . . . . . 10 ⊢ (𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋𝑦 / 𝑘⦌𝐷)
136	135	adantl 487	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋𝑦 / 𝑘⦌𝐷)
137	129	csbeq1d 3851	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌𝐷 = ⦋𝑦 / 𝑘⦌𝐷)
138	136, 137	eleqtrrd 2864	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
139	138	rexlimiva 3156	. . . . . . 7 ⊢ (∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
140	125, 139	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
141	89, 134, 140	rspcdva 3578	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ)
142	47, 53, 81, 86, 141	fprodcnv 16130	. . . 4 ⊢ (𝜑 → ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ∏𝑧 ∈ ◡ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
143	41, 142	eqtr4d 2799	. . 3 ⊢ (𝜑 → ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
144		fprodcom2.3	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
145	144	ralrimiva 3155	. . . . 5 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 𝐵 ∈ Fin)
146	25	nfel1 2939	. . . . . 6 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐵 ∈ Fin
147	28	eleq1d 2846	. . . . . 6 ⊢ (𝑗 = 𝑥 → (𝐵 ∈ Fin ↔ ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin))
148	146, 147	rspc 3565	. . . . 5 ⊢ (𝑥 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 𝐵 ∈ Fin → ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin))
149	145, 148	mpan9 516	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin)
150	53, 56, 149, 120	fprod2d 16128	. . 3 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
151	47, 54, 76, 121	fprod2d 16128	. . 3 ⊢ (𝜑 → ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
152	143, 150, 151	3eqtr4d 2806	. 2 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
153		nfcv 2923	. . 3 ⊢ Ⅎ𝑥∏𝑘 ∈ 𝐵 𝐸
154		nfcv 2923	. . . . 5 ⊢ Ⅎ𝑗𝑦
155	154, 106	nfcsbw 3873	. . . 4 ⊢ Ⅎ𝑗⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
156	25, 155	nfcprod 16058	. . 3 ⊢ Ⅎ𝑗∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
157		nfcv 2923	. . . . 5 ⊢ Ⅎ𝑦𝐸
158		nfcsb1v 3871	. . . . 5 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌𝐸
159		csbeq1a 3861	. . . . 5 ⊢ (𝑘 = 𝑦 → 𝐸 = ⦋𝑦 / 𝑘⦌𝐸)
160	157, 158, 159	cbvprodi 16064	. . . 4 ⊢ ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑦 ∈ 𝐵 ⦋𝑦 / 𝑘⦌𝐸
161	109	csbeq2dv 3854	. . . . . 6 ⊢ (𝑗 = 𝑥 → ⦋𝑦 / 𝑘⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
162	161	adantr 486	. . . . 5 ⊢ ((𝑗 = 𝑥 ∧ 𝑦 ∈ 𝐵) → ⦋𝑦 / 𝑘⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
163	28, 162	prodeq12dv 16073	. . . 4 ⊢ (𝑗 = 𝑥 → ∏𝑦 ∈ 𝐵 ⦋𝑦 / 𝑘⦌𝐸 = ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
164	160, 163	eqtrid 2808	. . 3 ⊢ (𝑗 = 𝑥 → ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
165	153, 156, 164	cbvprodi 16064	. 2 ⊢ ∏𝑗 ∈ 𝐴 ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
166		nfcv 2923	. . 3 ⊢ Ⅎ𝑦∏𝑗 ∈ 𝐷 𝐸
167	33, 114	nfcprod 16058	. . 3 ⊢ Ⅎ𝑘∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
168		nfcv 2923	. . . . 5 ⊢ Ⅎ𝑥𝐸
169	168, 106, 109	cbvprodi 16064	. . . 4 ⊢ ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑥 ∈ 𝐷 ⦋𝑥 / 𝑗⦌𝐸
170	116	adantr 486	. . . . 5 ⊢ ((𝑘 = 𝑦 ∧ 𝑥 ∈ 𝐷) → ⦋𝑥 / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
171	36, 170	prodeq12dv 16073	. . . 4 ⊢ (𝑘 = 𝑦 → ∏𝑥 ∈ 𝐷 ⦋𝑥 / 𝑗⦌𝐸 = ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
172	169, 171	eqtrid 2808	. . 3 ⊢ (𝑘 = 𝑦 → ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
173	166, 167, 172	cbvprodi 16064	. 2 ⊢ ∏𝑘 ∈ 𝐶 ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
174	152, 165, 173	3eqtr4g 2821	1 ⊢ (𝜑 → ∏𝑗 ∈ 𝐴 ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑘 ∈ 𝐶 ∏𝑗 ∈ 𝐷 𝐸)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570  ∃wex 1812   ∈ wcel 2145  ∀wral 3077  ∃wrex 3087  ⦋csb 3847  {csn 4584  ⟨cop 4590  ∪ ciun 4951   × cxp 5649  ^◡ccnv 5650  Rel wrel 5656  ‘cfv 6531  1^st c1st 7988  2^nd c2nd 7989  Fincfn 8957  ℂcc 11179  ∏cprod 16052

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740  ax-inf2 9626  ax-cnex 11237  ax-resscn 11238  ax-1cn 11239  ax-icn 11240  ax-addcl 11241  ax-addrcl 11242  ax-mulcl 11243  ax-mulrcl 11244  ax-mulcom 11245  ax-addass 11246  ax-mulass 11247  ax-distr 11248  ax-i2m1 11249  ax-1ne0 11250  ax-1rid 11251  ax-rnegex 11252  ax-rrecex 11253  ax-cnre 11254  ax-pre-lttri 11255  ax-pre-lttrn 11256  ax-pre-ltadd 11257  ax-pre-mulgt0 11258  ax-pre-sup 11259

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6297  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-isom 6540  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7867  df-1st 7990  df-2nd 7991  df-frecs 8283  df-wrecs 8314  df-recs 8363  df-rdg 8402  df-1o 8460  df-er 8701  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-sup 9418  df-oi 9488  df-card 10001  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11524  df-neg 11525  df-div 11955  df-nn 12317  df-2 12386  df-3 12387  df-n0 12588  df-z 12675  df-uz 12947  df-rp 13102  df-fz 13621  df-fzo 13769  df-seq 14125  df-exp 14185  df-hash 14455  df-cj 15246  df-re 15247  df-im 15248  df-sqrt 15382  df-abs 15383  df-clim 15635  df-prod 16053

This theorem is used by:  fprodcom  16132  fprod0diag  16133