Theorem fprodcom2 15703

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 5608	. . . . . . . . 9 ⊢ Rel ({𝑗} × 𝐵)
2	1	rgenw 3077	. . . . . . . 8 ⊢ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵)
3		reliun 5728	. . . . . . . 8 ⊢ (Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵))
4	2, 3	mpbir 230	. . . . . . 7 ⊢ Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵)
5		relcnv 6015	. . . . . . 7 ⊢ Rel ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)
6		ancom 461	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑗 ∧ 𝑦 = 𝑘) ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
7		vex 3437	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3437	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	opth 5392	. . . . . . . . . . . 12 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗 ∧ 𝑦 = 𝑘))
10	8, 7	opth 5392	. . . . . . . . . . . 12 ⊢ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
11	6, 9, 10	3bitr4i 303	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩)
12	11	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩))
13		fprodcom2.4	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵) ↔ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
14	12, 13	anbi12d 631	. . . . . . . . 9 ⊢ (𝜑 → ((⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
15	14	2exbidv 1928	. . . . . . . 8 ⊢ (𝜑 → (∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
16		eliunxp 5749	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)))
17	7, 8	opelcnv 5793	. . . . . . . . 9 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
18		eliunxp 5749	. . . . . . . . 9 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
19		excom 2163	. . . . . . . . 9 ⊢ (∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
20	17, 18, 19	3bitri 297	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
21	15, 16, 20	3bitr4g 314	. . . . . . 7 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)))
22	4, 5, 21	eqrelrdv 5704	. . . . . 6 ⊢ (𝜑 → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
23		nfcv 2908	. . . . . . 7 ⊢ Ⅎ𝑥({𝑗} × 𝐵)
24		nfcv 2908	. . . . . . . 8 ⊢ Ⅎ𝑗{𝑥}
25		nfcsb1v 3858	. . . . . . . 8 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐵
26	24, 25	nfxp 5623	. . . . . . 7 ⊢ Ⅎ𝑗({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)
27		sneq 4572	. . . . . . . 8 ⊢ (𝑗 = 𝑥 → {𝑗} = {𝑥})
28		csbeq1a 3847	. . . . . . . 8 ⊢ (𝑗 = 𝑥 → 𝐵 = ⦋𝑥 / 𝑗⦌𝐵)
29	27, 28	xpeq12d 5621	. . . . . . 7 ⊢ (𝑗 = 𝑥 → ({𝑗} × 𝐵) = ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵))
30	23, 26, 29	cbviun 4967	. . . . . 6 ⊢ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)
31		nfcv 2908	. . . . . . . 8 ⊢ Ⅎ𝑦({𝑘} × 𝐷)
32		nfcv 2908	. . . . . . . . 9 ⊢ Ⅎ𝑘{𝑦}
33		nfcsb1v 3858	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌𝐷
34	32, 33	nfxp 5623	. . . . . . . 8 ⊢ Ⅎ𝑘({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
35		sneq 4572	. . . . . . . . 9 ⊢ (𝑘 = 𝑦 → {𝑘} = {𝑦})
36		csbeq1a 3847	. . . . . . . . 9 ⊢ (𝑘 = 𝑦 → 𝐷 = ⦋𝑦 / 𝑘⦌𝐷)
37	35, 36	xpeq12d 5621	. . . . . . . 8 ⊢ (𝑘 = 𝑦 → ({𝑘} × 𝐷) = ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
38	31, 34, 37	cbviun 4967	. . . . . . 7 ⊢ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
39	38	cnveqi 5786	. . . . . 6 ⊢ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ◡∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
40	22, 30, 39	3eqtr3g 2802	. . . . 5 ⊢ (𝜑 → ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵) = ◡∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
41	40	prodeq1d 15640	. . . 4 ⊢ (𝜑 → ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ∏𝑧 ∈ ◡ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
42	8, 7	op1std 7850	. . . . . . 7 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → (1st ‘𝑤) = 𝑦)
43	42	csbeq1d 3837	. . . . . 6 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
44	8, 7	op2ndd 7851	. . . . . . . 8 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → (2nd ‘𝑤) = 𝑥)
45	44	csbeq1d 3837	. . . . . . 7 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
46	45	csbeq2dv 3840	. . . . . 6 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋𝑦 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
47	43, 46	eqtrd 2779	. . . . 5 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
48	7, 8	op2ndd 7851	. . . . . . 7 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → (2nd ‘𝑧) = 𝑦)
49	48	csbeq1d 3837	. . . . . 6 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
50	7, 8	op1std 7850	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → (1st ‘𝑧) = 𝑥)
51	50	csbeq1d 3837	. . . . . . 7 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
52	51	csbeq2dv 3840	. . . . . 6 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋𝑦 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
53	49, 52	eqtrd 2779	. . . . 5 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
54		fprodcom2.2	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Fin)
55		snfi 8843	. . . . . . . 8 ⊢ {𝑦} ∈ Fin
56		fprodcom2.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ Fin)
57	56	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → 𝐴 ∈ Fin)
58	33, 36	opeliunxp2f 8035	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷))
59	17, 58	sylbbr 235	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷) → ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
60	59	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
61	22	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
62	60, 61	eleqtrrd 2843	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵))
63		eliun 4929	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
64	62, 63	sylib 217	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
65		simpr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
66		opelxp 5626	. . . . . . . . . . . . . . . . 17 ⊢ (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵))
67	65, 66	sylib 217	. . . . . . . . . . . . . . . 16 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → (𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵))
68	67	simpld 495	. . . . . . . . . . . . . . 15 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 ∈ {𝑗})
69		elsni 4579	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑗} → 𝑥 = 𝑗)
70	68, 69	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 = 𝑗)
71		simpl 483	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑗 ∈ 𝐴)
72	70, 71	eqeltrd 2840	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 ∈ 𝐴)
73	72	rexlimiva 3211	. . . . . . . . . . . 12 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑥 ∈ 𝐴)
74	64, 73	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝑥 ∈ 𝐴)
75	74	expr 457	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → (𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷 → 𝑥 ∈ 𝐴))
76	75	ssrdv 3928	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ⦋𝑦 / 𝑘⦌𝐷 ⊆ 𝐴)
77	57, 76	ssfid 9051	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ⦋𝑦 / 𝑘⦌𝐷 ∈ Fin)
78		xpfi 9094	. . . . . . . 8 ⊢ (({𝑦} ∈ Fin ∧ ⦋𝑦 / 𝑘⦌𝐷 ∈ Fin) → ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
79	55, 77, 78	sylancr 587	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
80	79	ralrimiva 3104	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
81		iunfi 9116	. . . . . 6 ⊢ ((𝐶 ∈ Fin ∧ ∀𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin) → ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
82	54, 80, 81	syl2anc 584	. . . . 5 ⊢ (𝜑 → ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
83		reliun 5728	. . . . . . 7 ⊢ (Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ↔ ∀𝑦 ∈ 𝐶 Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
84		relxp 5608	. . . . . . . 8 ⊢ Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
85	84	a1i 11	. . . . . . 7 ⊢ (𝑦 ∈ 𝐶 → Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
86	83, 85	mprgbir 3080	. . . . . 6 ⊢ Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
87	86	a1i 11	. . . . 5 ⊢ (𝜑 → Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
88		csbeq1 3836	. . . . . . . 8 ⊢ (𝑥 = (2nd ‘𝑤) → ⦋𝑥 / 𝑗⦌𝐸 = ⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
89	88	csbeq2dv 3840	. . . . . . 7 ⊢ (𝑥 = (2nd ‘𝑤) → ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
90	89	eleq1d 2824	. . . . . 6 ⊢ (𝑥 = (2nd ‘𝑤) → (⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ))
91		csbeq1 3836	. . . . . . . 8 ⊢ (𝑦 = (1st ‘𝑤) → ⦋𝑦 / 𝑘⦌𝐷 = ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
92		csbeq1 3836	. . . . . . . . 9 ⊢ (𝑦 = (1st ‘𝑤) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
93	92	eleq1d 2824	. . . . . . . 8 ⊢ (𝑦 = (1st ‘𝑤) → (⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
94	91, 93	raleqbidv 3337	. . . . . . 7 ⊢ (𝑦 = (1st ‘𝑤) → (∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ∀𝑥 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
95		simpl 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝜑)
96	25	nfcri 2895	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵
97	69	equcomd 2023	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ {𝑗} → 𝑗 = 𝑥)
98	97, 28	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ {𝑗} → 𝐵 = ⦋𝑥 / 𝑗⦌𝐵)
99	98	eleq2d 2825	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑗} → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵))
100	99	biimpa 477	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
101	66, 100	sylbi 216	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
102	101	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ 𝐴 → (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵))
103	96, 102	rexlimi 3249	. . . . . . . . . . 11 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
104	64, 103	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
105		fprodcom2.5	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐸 ∈ ℂ)
106	105	ralrimivva 3124	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ)
107		nfcsb1v 3858	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐸
108	107	nfel1 2924	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
109	25, 108	nfralw 3152	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
110		csbeq1a 3847	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑥 → 𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
111	110	eleq1d 2824	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑥 → (𝐸 ∈ ℂ ↔ ⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
112	28, 111	raleqbidv 3337	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑥 → (∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
113	109, 112	rspc 3550	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ → ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
114	106, 113	mpan9 507	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
115		nfcsb1v 3858	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
116	115	nfel1 2924	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
117		csbeq1a 3847	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑦 → ⦋𝑥 / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
118	117	eleq1d 2824	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑦 → (⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
119	116, 118	rspc 3550	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵 → (∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
120	114, 119	syl5com 31	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵 → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
121	120	impr 455	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
122	95, 74, 104, 121	syl12anc 834	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
123	122	ralrimivva 3124	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 ∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
124	123	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∀𝑦 ∈ 𝐶 ∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
125		simpr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
126		eliun 4929	. . . . . . . . 9 ⊢ (𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ↔ ∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
127	125, 126	sylib 217	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
128		xp1st 7872	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ {𝑦})
129	128	adantl 482	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ {𝑦})
130		elsni 4579	. . . . . . . . . . 11 ⊢ ((1st ‘𝑤) ∈ {𝑦} → (1st ‘𝑤) = 𝑦)
131	129, 130	syl 17	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) = 𝑦)
132		simpl 483	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → 𝑦 ∈ 𝐶)
133	131, 132	eqeltrd 2840	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
134	133	rexlimiva 3211	. . . . . . . 8 ⊢ (∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ 𝐶)
135	127, 134	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
136	94, 124, 135	rspcdva 3563	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∀𝑥 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
137		xp2nd 7873	. . . . . . . . . 10 ⊢ (𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋𝑦 / 𝑘⦌𝐷)
138	137	adantl 482	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋𝑦 / 𝑘⦌𝐷)
139	131	csbeq1d 3837	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌𝐷 = ⦋𝑦 / 𝑘⦌𝐷)
140	138, 139	eleqtrrd 2843	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
141	140	rexlimiva 3211	. . . . . . 7 ⊢ (∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
142	127, 141	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
143	90, 136, 142	rspcdva 3563	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ)
144	47, 53, 82, 87, 143	fprodcnv 15702	. . . 4 ⊢ (𝜑 → ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ∏𝑧 ∈ ◡ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
145	41, 144	eqtr4d 2782	. . 3 ⊢ (𝜑 → ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
146		fprodcom2.3	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
147	146	ralrimiva 3104	. . . . 5 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 𝐵 ∈ Fin)
148	25	nfel1 2924	. . . . . 6 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐵 ∈ Fin
149	28	eleq1d 2824	. . . . . 6 ⊢ (𝑗 = 𝑥 → (𝐵 ∈ Fin ↔ ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin))
150	148, 149	rspc 3550	. . . . 5 ⊢ (𝑥 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 𝐵 ∈ Fin → ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin))
151	147, 150	mpan9 507	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin)
152	53, 56, 151, 121	fprod2d 15700	. . 3 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
153	47, 54, 77, 122	fprod2d 15700	. . 3 ⊢ (𝜑 → ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
154	145, 152, 153	3eqtr4d 2789	. 2 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
155		nfcv 2908	. . 3 ⊢ Ⅎ𝑥∏𝑘 ∈ 𝐵 𝐸
156		nfcv 2908	. . . . 5 ⊢ Ⅎ𝑗𝑦
157	156, 107	nfcsbw 3860	. . . 4 ⊢ Ⅎ𝑗⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
158	25, 157	nfcprod 15630	. . 3 ⊢ Ⅎ𝑗∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
159		nfcv 2908	. . . . 5 ⊢ Ⅎ𝑦𝐸
160		nfcsb1v 3858	. . . . 5 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌𝐸
161		csbeq1a 3847	. . . . 5 ⊢ (𝑘 = 𝑦 → 𝐸 = ⦋𝑦 / 𝑘⦌𝐸)
162	159, 160, 161	cbvprodi 15636	. . . 4 ⊢ ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑦 ∈ 𝐵 ⦋𝑦 / 𝑘⦌𝐸
163	110	csbeq2dv 3840	. . . . . 6 ⊢ (𝑗 = 𝑥 → ⦋𝑦 / 𝑘⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
164	163	adantr 481	. . . . 5 ⊢ ((𝑗 = 𝑥 ∧ 𝑦 ∈ 𝐵) → ⦋𝑦 / 𝑘⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
165	28, 164	prodeq12dv 15645	. . . 4 ⊢ (𝑗 = 𝑥 → ∏𝑦 ∈ 𝐵 ⦋𝑦 / 𝑘⦌𝐸 = ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
166	162, 165	eqtrid 2791	. . 3 ⊢ (𝑗 = 𝑥 → ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
167	155, 158, 166	cbvprodi 15636	. 2 ⊢ ∏𝑗 ∈ 𝐴 ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
168		nfcv 2908	. . 3 ⊢ Ⅎ𝑦∏𝑗 ∈ 𝐷 𝐸
169	33, 115	nfcprod 15630	. . 3 ⊢ Ⅎ𝑘∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
170		nfcv 2908	. . . . 5 ⊢ Ⅎ𝑥𝐸
171	170, 107, 110	cbvprodi 15636	. . . 4 ⊢ ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑥 ∈ 𝐷 ⦋𝑥 / 𝑗⦌𝐸
172	117	adantr 481	. . . . 5 ⊢ ((𝑘 = 𝑦 ∧ 𝑥 ∈ 𝐷) → ⦋𝑥 / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
173	36, 172	prodeq12dv 15645	. . . 4 ⊢ (𝑘 = 𝑦 → ∏𝑥 ∈ 𝐷 ⦋𝑥 / 𝑗⦌𝐸 = ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
174	171, 173	eqtrid 2791	. . 3 ⊢ (𝑘 = 𝑦 → ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
175	168, 169, 174	cbvprodi 15636	. 2 ⊢ ∏𝑘 ∈ 𝐶 ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
176	154, 167, 175	3eqtr4g 2804	1 ⊢ (𝜑 → ∏𝑗 ∈ 𝐴 ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑘 ∈ 𝐶 ∏𝑗 ∈ 𝐷 𝐸)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1539  ∃wex 1782   ∈ wcel 2107  ∀wral 3065  ∃wrex 3066  ⦋csb 3833  {csn 4562  ⟨cop 4568  ∪ ciun 4925   × cxp 5588  ^◡ccnv 5589  Rel wrel 5595  ‘cfv 6437  1^st c1st 7838  2^nd c2nd 7839  Fincfn 8742  ℂcc 10878  ∏cprod 15624

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2710  ax-rep 5210  ax-sep 5224  ax-nul 5231  ax-pow 5289  ax-pr 5353  ax-un 7597  ax-inf2 9408  ax-cnex 10936  ax-resscn 10937  ax-1cn 10938  ax-icn 10939  ax-addcl 10940  ax-addrcl 10941  ax-mulcl 10942  ax-mulrcl 10943  ax-mulcom 10944  ax-addass 10945  ax-mulass 10946  ax-distr 10947  ax-i2m1 10948  ax-1ne0 10949  ax-1rid 10950  ax-rnegex 10951  ax-rrecex 10952  ax-cnre 10953  ax-pre-lttri 10954  ax-pre-lttrn 10955  ax-pre-ltadd 10956  ax-pre-mulgt0 10957  ax-pre-sup 10958

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2541  df-eu 2570  df-clab 2717  df-cleq 2731  df-clel 2817  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3070  df-rex 3071  df-rmo 3072  df-reu 3073  df-rab 3074  df-v 3435  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-pss 3907  df-nul 4258  df-if 4461  df-pw 4536  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4841  df-int 4881  df-iun 4927  df-br 5076  df-opab 5138  df-mpt 5159  df-tr 5193  df-id 5490  df-eprel 5496  df-po 5504  df-so 5505  df-fr 5545  df-se 5546  df-we 5547  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-pred 6206  df-ord 6273  df-on 6274  df-lim 6275  df-suc 6276  df-iota 6395  df-fun 6439  df-fn 6440  df-f 6441  df-f1 6442  df-fo 6443  df-f1o 6444  df-fv 6445  df-isom 6446  df-riota 7241  df-ov 7287  df-oprab 7288  df-mpo 7289  df-om 7722  df-1st 7840  df-2nd 7841  df-frecs 8106  df-wrecs 8137  df-recs 8211  df-rdg 8250  df-1o 8306  df-er 8507  df-en 8743  df-dom 8744  df-sdom 8745  df-fin 8746  df-sup 9210  df-oi 9278  df-card 9706  df-pnf 11020  df-mnf 11021  df-xr 11022  df-ltxr 11023  df-le 11024  df-sub 11216  df-neg 11217  df-div 11642  df-nn 11983  df-2 12045  df-3 12046  df-n0 12243  df-z 12329  df-uz 12592  df-rp 12740  df-fz 13249  df-fzo 13392  df-seq 13731  df-exp 13792  df-hash 14054  df-cj 14819  df-re 14820  df-im 14821  df-sqrt 14955  df-abs 14956  df-clim 15206  df-prod 15625

This theorem is referenced by:  fprodcom  15704  fprod0diag  15705