Theorem fprodcom2 16032

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 5718	. . . . . . . . 9 ⊢ Rel ({𝑗} × 𝐵)
2	1	rgenw 3071	. . . . . . . 8 ⊢ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵)
3		reliun 5840	. . . . . . . 8 ⊢ (Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∀𝑗 ∈ 𝐴 Rel ({𝑗} × 𝐵))
4	2, 3	mpbir 231	. . . . . . 7 ⊢ Rel ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵)
5		relcnv 6134	. . . . . . 7 ⊢ Rel ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)
6		ancom 460	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑗 ∧ 𝑦 = 𝑘) ↔ (𝑦 = 𝑘 ∧ 𝑥 = 𝑗))
7		vex 3492	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3492	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	opth 5496	. . . . . . . . . . . 12 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ↔ (𝑥 = 𝑗 ∧ 𝑦 = 𝑘))
10	8, 7	opth 5496	. . . . . . . . . . . 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 1923	. . . . . . . 8 ⊢ (𝜑 → (∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷))))
16		eliunxp 5862	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗∃𝑘(⟨𝑥, 𝑦⟩ = ⟨𝑗, 𝑘⟩ ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)))
17	7, 8	opelcnv 5906	. . . . . . . . 9 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
18		eliunxp 5862	. . . . . . . . 9 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
19		excom 2163	. . . . . . . . 9 ⊢ (∃𝑘∃𝑗(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
20	17, 18, 19	3bitri 297	. . . . . . . 8 ⊢ (⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ ∃𝑗∃𝑘(⟨𝑦, 𝑥⟩ = ⟨𝑘, 𝑗⟩ ∧ (𝑘 ∈ 𝐶 ∧ 𝑗 ∈ 𝐷)))
21	15, 16, 20	3bitr4g 314	. . . . . . 7 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷)))
22	4, 5, 21	eqrelrdv 5816	. . . . . 6 ⊢ (𝜑 → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
23		nfcv 2908	. . . . . . 7 ⊢ Ⅎ𝑥({𝑗} × 𝐵)
24		nfcv 2908	. . . . . . . 8 ⊢ Ⅎ𝑗{𝑥}
25		nfcsb1v 3946	. . . . . . . 8 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐵
26	24, 25	nfxp 5733	. . . . . . 7 ⊢ Ⅎ𝑗({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)
27		sneq 4658	. . . . . . . 8 ⊢ (𝑗 = 𝑥 → {𝑗} = {𝑥})
28		csbeq1a 3935	. . . . . . . 8 ⊢ (𝑗 = 𝑥 → 𝐵 = ⦋𝑥 / 𝑗⦌𝐵)
29	27, 28	xpeq12d 5731	. . . . . . 7 ⊢ (𝑗 = 𝑥 → ({𝑗} × 𝐵) = ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵))
30	23, 26, 29	cbviun 5059	. . . . . 6 ⊢ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)
31		nfcv 2908	. . . . . . . 8 ⊢ Ⅎ𝑦({𝑘} × 𝐷)
32		nfcv 2908	. . . . . . . . 9 ⊢ Ⅎ𝑘{𝑦}
33		nfcsb1v 3946	. . . . . . . . 9 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌𝐷
34	32, 33	nfxp 5733	. . . . . . . 8 ⊢ Ⅎ𝑘({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
35		sneq 4658	. . . . . . . . 9 ⊢ (𝑘 = 𝑦 → {𝑘} = {𝑦})
36		csbeq1a 3935	. . . . . . . . 9 ⊢ (𝑘 = 𝑦 → 𝐷 = ⦋𝑦 / 𝑘⦌𝐷)
37	35, 36	xpeq12d 5731	. . . . . . . 8 ⊢ (𝑘 = 𝑦 → ({𝑘} × 𝐷) = ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
38	31, 34, 37	cbviun 5059	. . . . . . 7 ⊢ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
39	38	cnveqi 5899	. . . . . 6 ⊢ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) = ◡∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
40	22, 30, 39	3eqtr3g 2803	. . . . 5 ⊢ (𝜑 → ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵) = ◡∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
41	40	prodeq1d 15968	. . . 4 ⊢ (𝜑 → ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ∏𝑧 ∈ ◡ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
42	8, 7	op1std 8040	. . . . . . 7 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → (1st ‘𝑤) = 𝑦)
43	42	csbeq1d 3925	. . . . . 6 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
44	8, 7	op2ndd 8041	. . . . . . . 8 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → (2nd ‘𝑤) = 𝑥)
45	44	csbeq1d 3925	. . . . . . 7 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
46	45	csbeq2dv 3928	. . . . . 6 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋𝑦 / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
47	43, 46	eqtrd 2780	. . . . 5 ⊢ (𝑤 = ⟨𝑦, 𝑥⟩ → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
48	7, 8	op2ndd 8041	. . . . . . 7 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → (2nd ‘𝑧) = 𝑦)
49	48	csbeq1d 3925	. . . . . 6 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
50	7, 8	op1std 8040	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → (1st ‘𝑧) = 𝑥)
51	50	csbeq1d 3925	. . . . . . 7 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
52	51	csbeq2dv 3928	. . . . . 6 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋𝑦 / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
53	49, 52	eqtrd 2780	. . . . 5 ⊢ (𝑧 = ⟨𝑥, 𝑦⟩ → ⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
54		fprodcom2.2	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Fin)
55		snfi 9109	. . . . . . . 8 ⊢ {𝑦} ∈ Fin
56		fprodcom2.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ Fin)
57	56	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → 𝐴 ∈ Fin)
58	33, 36	opeliunxp2f 8251	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑦, 𝑥⟩ ∈ ∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷) ↔ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷))
59	17, 58	sylbbr 236	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷) → ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
60	59	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
61	22	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) = ◡∪ 𝑘 ∈ 𝐶 ({𝑘} × 𝐷))
62	60, 61	eleqtrrd 2847	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵))
63		eliun 5019	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑦⟩ ∈ ∪ 𝑗 ∈ 𝐴 ({𝑗} × 𝐵) ↔ ∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
64	62, 63	sylib 218	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
65		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵))
66		opelxp 5736	. . . . . . . . . . . . . . . . 17 ⊢ (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) ↔ (𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵))
67	65, 66	sylib 218	. . . . . . . . . . . . . . . 16 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → (𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵))
68	67	simpld 494	. . . . . . . . . . . . . . 15 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 ∈ {𝑗})
69		elsni 4665	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑗} → 𝑥 = 𝑗)
70	68, 69	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 = 𝑗)
71		simpl 482	. . . . . . . . . . . . . 14 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑗 ∈ 𝐴)
72	70, 71	eqeltrd 2844	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ 𝐴 ∧ ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵)) → 𝑥 ∈ 𝐴)
73	72	rexlimiva 3153	. . . . . . . . . . . 12 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑥 ∈ 𝐴)
74	64, 73	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝑥 ∈ 𝐴)
75	74	expr 456	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → (𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷 → 𝑥 ∈ 𝐴))
76	75	ssrdv 4014	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ⦋𝑦 / 𝑘⦌𝐷 ⊆ 𝐴)
77	57, 76	ssfid 9329	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ⦋𝑦 / 𝑘⦌𝐷 ∈ Fin)
78		xpfi 9386	. . . . . . . 8 ⊢ (({𝑦} ∈ Fin ∧ ⦋𝑦 / 𝑘⦌𝐷 ∈ Fin) → ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
79	55, 77, 78	sylancr 586	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
80	79	ralrimiva 3152	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
81		iunfi 9411	. . . . . 6 ⊢ ((𝐶 ∈ Fin ∧ ∀𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin) → ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
82	54, 80, 81	syl2anc 583	. . . . 5 ⊢ (𝜑 → ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ∈ Fin)
83		reliun 5840	. . . . . . 7 ⊢ (Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ↔ ∀𝑦 ∈ 𝐶 Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
84		relxp 5718	. . . . . . . 8 ⊢ Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
85	84	a1i 11	. . . . . . 7 ⊢ (𝑦 ∈ 𝐶 → Rel ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
86	83, 85	mprgbir 3074	. . . . . 6 ⊢ Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)
87	86	a1i 11	. . . . 5 ⊢ (𝜑 → Rel ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
88		csbeq1 3924	. . . . . . . 8 ⊢ (𝑥 = (2nd ‘𝑤) → ⦋𝑥 / 𝑗⦌𝐸 = ⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
89	88	csbeq2dv 3928	. . . . . . 7 ⊢ (𝑥 = (2nd ‘𝑤) → ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
90	89	eleq1d 2829	. . . . . 6 ⊢ (𝑥 = (2nd ‘𝑤) → (⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ))
91		csbeq1 3924	. . . . . . . 8 ⊢ (𝑦 = (1st ‘𝑤) → ⦋𝑦 / 𝑘⦌𝐷 = ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
92		csbeq1 3924	. . . . . . . . 9 ⊢ (𝑦 = (1st ‘𝑤) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
93	92	eleq1d 2829	. . . . . . . 8 ⊢ (𝑦 = (1st ‘𝑤) → (⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
94	91, 93	raleqbidv 3354	. . . . . . 7 ⊢ (𝑦 = (1st ‘𝑤) → (∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ∀𝑥 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
95		simpl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝜑)
96	25	nfcri 2900	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵
97	69	equcomd 2018	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ {𝑗} → 𝑗 = 𝑥)
98	97, 28	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ {𝑗} → 𝐵 = ⦋𝑥 / 𝑗⦌𝐵)
99	98	eleq2d 2830	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ {𝑗} → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵))
100	99	biimpa 476	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ {𝑗} ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
101	66, 100	sylbi 217	. . . . . . . . . . . . 13 ⊢ (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
102	101	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ 𝐴 → (⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵))
103	96, 102	rexlimi 3265	. . . . . . . . . . 11 ⊢ (∃𝑗 ∈ 𝐴 ⟨𝑥, 𝑦⟩ ∈ ({𝑗} × 𝐵) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
104	64, 103	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)
105		fprodcom2.5	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐸 ∈ ℂ)
106	105	ralrimivva 3208	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ)
107		nfcsb1v 3946	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐸
108	107	nfel1 2925	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
109	25, 108	nfralw 3317	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
110		csbeq1a 3935	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑥 → 𝐸 = ⦋𝑥 / 𝑗⦌𝐸)
111	110	eleq1d 2829	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑥 → (𝐸 ∈ ℂ ↔ ⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
112	28, 111	raleqbidv 3354	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑥 → (∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ ↔ ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
113	109, 112	rspc 3623	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐸 ∈ ℂ → ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
114	106, 113	mpan9 506	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
115		nfcsb1v 3946	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
116	115	nfel1 2925	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ
117		csbeq1a 3935	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑦 → ⦋𝑥 / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
118	117	eleq1d 2829	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑦 → (⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ ↔ ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
119	116, 118	rspc 3623	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵 → (∀𝑘 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
120	114, 119	syl5com 31	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵 → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ))
121	120	impr 454	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ ⦋𝑥 / 𝑗⦌𝐵)) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
122	95, 74, 104, 121	syl12anc 836	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐶 ∧ 𝑥 ∈ ⦋𝑦 / 𝑘⦌𝐷)) → ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
123	122	ralrimivva 3208	. . . . . . . 8 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 ∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
124	123	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∀𝑦 ∈ 𝐶 ∀𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
125		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
126		eliun 5019	. . . . . . . . 9 ⊢ (𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) ↔ ∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
127	125, 126	sylib 218	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷))
128		xp1st 8062	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ {𝑦})
129	128	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ {𝑦})
130		elsni 4665	. . . . . . . . . . 11 ⊢ ((1st ‘𝑤) ∈ {𝑦} → (1st ‘𝑤) = 𝑦)
131	129, 130	syl 17	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) = 𝑦)
132		simpl 482	. . . . . . . . . 10 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → 𝑦 ∈ 𝐶)
133	131, 132	eqeltrd 2844	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
134	133	rexlimiva 3153	. . . . . . . 8 ⊢ (∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (1st ‘𝑤) ∈ 𝐶)
135	127, 134	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (1st ‘𝑤) ∈ 𝐶)
136	94, 124, 135	rspcdva 3636	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ∀𝑥 ∈ ⦋ (1st ‘𝑤) / 𝑘⦌𝐷⦋(1st ‘𝑤) / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 ∈ ℂ)
137		xp2nd 8063	. . . . . . . . . 10 ⊢ (𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋𝑦 / 𝑘⦌𝐷)
138	137	adantl 481	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋𝑦 / 𝑘⦌𝐷)
139	131	csbeq1d 3925	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌𝐷 = ⦋𝑦 / 𝑘⦌𝐷)
140	138, 139	eleqtrrd 2847	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐶 ∧ 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
141	140	rexlimiva 3153	. . . . . . 7 ⊢ (∃𝑦 ∈ 𝐶 𝑤 ∈ ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
142	127, 141	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → (2nd ‘𝑤) ∈ ⦋(1st ‘𝑤) / 𝑘⦌𝐷)
143	90, 136, 142	rspcdva 3636	. . . . 5 ⊢ ((𝜑 ∧ 𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)) → ⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 ∈ ℂ)
144	47, 53, 82, 87, 143	fprodcnv 16031	. . . 4 ⊢ (𝜑 → ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸 = ∏𝑧 ∈ ◡ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
145	41, 144	eqtr4d 2783	. . 3 ⊢ (𝜑 → ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸 = ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
146		fprodcom2.3	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
147	146	ralrimiva 3152	. . . . 5 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 𝐵 ∈ Fin)
148	25	nfel1 2925	. . . . . 6 ⊢ Ⅎ𝑗⦋𝑥 / 𝑗⦌𝐵 ∈ Fin
149	28	eleq1d 2829	. . . . . 6 ⊢ (𝑗 = 𝑥 → (𝐵 ∈ Fin ↔ ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin))
150	148, 149	rspc 3623	. . . . 5 ⊢ (𝑥 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 𝐵 ∈ Fin → ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin))
151	147, 150	mpan9 506	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ⦋𝑥 / 𝑗⦌𝐵 ∈ Fin)
152	53, 56, 151, 121	fprod2d 16029	. . 3 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑧 ∈ ∪ 𝑥 ∈ 𝐴 ({𝑥} × ⦋𝑥 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋(1st ‘𝑧) / 𝑗⦌𝐸)
153	47, 54, 77, 122	fprod2d 16029	. . 3 ⊢ (𝜑 → ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑤 ∈ ∪ 𝑦 ∈ 𝐶 ({𝑦} × ⦋𝑦 / 𝑘⦌𝐷)⦋(1st ‘𝑤) / 𝑘⦌⦋(2nd ‘𝑤) / 𝑗⦌𝐸)
154	145, 152, 153	3eqtr4d 2790	. 2 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸 = ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
155		nfcv 2908	. . 3 ⊢ Ⅎ𝑥∏𝑘 ∈ 𝐵 𝐸
156		nfcv 2908	. . . . 5 ⊢ Ⅎ𝑗𝑦
157	156, 107	nfcsbw 3948	. . . 4 ⊢ Ⅎ𝑗⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
158	25, 157	nfcprod 15957	. . 3 ⊢ Ⅎ𝑗∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
159		nfcv 2908	. . . . 5 ⊢ Ⅎ𝑦𝐸
160		nfcsb1v 3946	. . . . 5 ⊢ Ⅎ𝑘⦋𝑦 / 𝑘⦌𝐸
161		csbeq1a 3935	. . . . 5 ⊢ (𝑘 = 𝑦 → 𝐸 = ⦋𝑦 / 𝑘⦌𝐸)
162	159, 160, 161	cbvprodi 15963	. . . 4 ⊢ ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑦 ∈ 𝐵 ⦋𝑦 / 𝑘⦌𝐸
163	110	csbeq2dv 3928	. . . . . 6 ⊢ (𝑗 = 𝑥 → ⦋𝑦 / 𝑘⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
164	163	adantr 480	. . . . 5 ⊢ ((𝑗 = 𝑥 ∧ 𝑦 ∈ 𝐵) → ⦋𝑦 / 𝑘⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
165	28, 164	prodeq12dv 15974	. . . 4 ⊢ (𝑗 = 𝑥 → ∏𝑦 ∈ 𝐵 ⦋𝑦 / 𝑘⦌𝐸 = ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
166	162, 165	eqtrid 2792	. . 3 ⊢ (𝑗 = 𝑥 → ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
167	155, 158, 166	cbvprodi 15963	. 2 ⊢ ∏𝑗 ∈ 𝐴 ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑥 ∈ 𝐴 ∏𝑦 ∈ ⦋ 𝑥 / 𝑗⦌𝐵⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
168		nfcv 2908	. . 3 ⊢ Ⅎ𝑦∏𝑗 ∈ 𝐷 𝐸
169	33, 115	nfcprod 15957	. . 3 ⊢ Ⅎ𝑘∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
170		nfcv 2908	. . . . 5 ⊢ Ⅎ𝑥𝐸
171	170, 107, 110	cbvprodi 15963	. . . 4 ⊢ ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑥 ∈ 𝐷 ⦋𝑥 / 𝑗⦌𝐸
172	117	adantr 480	. . . . 5 ⊢ ((𝑘 = 𝑦 ∧ 𝑥 ∈ 𝐷) → ⦋𝑥 / 𝑗⦌𝐸 = ⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
173	36, 172	prodeq12dv 15974	. . . 4 ⊢ (𝑘 = 𝑦 → ∏𝑥 ∈ 𝐷 ⦋𝑥 / 𝑗⦌𝐸 = ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
174	171, 173	eqtrid 2792	. . 3 ⊢ (𝑘 = 𝑦 → ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸)
175	168, 169, 174	cbvprodi 15963	. 2 ⊢ ∏𝑘 ∈ 𝐶 ∏𝑗 ∈ 𝐷 𝐸 = ∏𝑦 ∈ 𝐶 ∏𝑥 ∈ ⦋ 𝑦 / 𝑘⦌𝐷⦋𝑦 / 𝑘⦌⦋𝑥 / 𝑗⦌𝐸
176	154, 167, 175	3eqtr4g 2805	1 ⊢ (𝜑 → ∏𝑗 ∈ 𝐴 ∏𝑘 ∈ 𝐵 𝐸 = ∏𝑘 ∈ 𝐶 ∏𝑗 ∈ 𝐷 𝐸)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537  ∃wex 1777   ∈ wcel 2108  ∀wral 3067  ∃wrex 3076  ⦋csb 3921  {csn 4648  ⟨cop 4654  ∪ ciun 5015   × cxp 5698  ^◡ccnv 5699  Rel wrel 5705  ‘cfv 6573  1^st c1st 8028  2^nd c2nd 8029  Fincfn 9003  ℂcc 11182  ∏cprod 15951

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-inf2 9710  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-er 8763  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-sup 9511  df-oi 9579  df-card 10008  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-3 12357  df-n0 12554  df-z 12640  df-uz 12904  df-rp 13058  df-fz 13568  df-fzo 13712  df-seq 14053  df-exp 14113  df-hash 14380  df-cj 15148  df-re 15149  df-im 15150  df-sqrt 15284  df-abs 15285  df-clim 15534  df-prod 15952

This theorem is referenced by:  fprodcom  16033  fprod0diag  16034