Theorem fprod2dlem 15699

Description: Lemma for fprod2d 15700- induction step. (Contributed by Scott Fenton, 30-Jan-2018.)

Hypotheses

Ref	Expression
fprod2d.1	⊢ (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐷 = 𝐶)
fprod2d.2	⊢ (𝜑 → 𝐴 ∈ Fin)
fprod2d.3	⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
fprod2d.4	⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐶 ∈ ℂ)
fprod2d.5	⊢ (𝜑 → ¬ 𝑦 ∈ 𝑥)
fprod2d.6	⊢ (𝜑 → (𝑥 ∪ {𝑦}) ⊆ 𝐴)
fprod2d.7	⊢ (𝜓 ↔ ∏𝑗 ∈ 𝑥 ∏𝑘 ∈ 𝐵 𝐶 = ∏𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵)𝐷)

Assertion

Ref	Expression
fprod2dlem	⊢ ((𝜑 ∧ 𝜓) → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘 ∈ 𝐵 𝐶 = ∏𝑧 ∈ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷)

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

Allowed substitution hints:   𝜑(𝑥,𝑦)   𝜓(𝑥,𝑦,𝑧,𝑗,𝑘)   𝐴(𝑥,𝑦,𝑧)   𝐵(𝑥,𝑦,𝑗)   𝐶(𝑥,𝑦,𝑗,𝑘)   𝐷(𝑥,𝑦,𝑧)

Proof of Theorem fprod2dlem

Dummy variable 𝑚 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 485	. . . 4 ⊢ ((𝜑 ∧ 𝜓) → 𝜓)
2		fprod2d.7	. . . 4 ⊢ (𝜓 ↔ ∏𝑗 ∈ 𝑥 ∏𝑘 ∈ 𝐵 𝐶 = ∏𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵)𝐷)
3	1, 2	sylib 217	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ∏𝑗 ∈ 𝑥 ∏𝑘 ∈ 𝐵 𝐶 = ∏𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵)𝐷)
4		nfcv 2908	. . . . . 6 ⊢ Ⅎ𝑚∏𝑘 ∈ 𝐵 𝐶
5		nfcsb1v 3858	. . . . . . 7 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐵
6		nfcsb1v 3858	. . . . . . 7 ⊢ Ⅎ𝑗⦋𝑚 / 𝑗⦌𝐶
7	5, 6	nfcprod 15630	. . . . . 6 ⊢ Ⅎ𝑗∏𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐶
8		csbeq1a 3847	. . . . . . 7 ⊢ (𝑗 = 𝑚 → 𝐵 = ⦋𝑚 / 𝑗⦌𝐵)
9		csbeq1a 3847	. . . . . . . 8 ⊢ (𝑗 = 𝑚 → 𝐶 = ⦋𝑚 / 𝑗⦌𝐶)
10	9	adantr 481	. . . . . . 7 ⊢ ((𝑗 = 𝑚 ∧ 𝑘 ∈ 𝐵) → 𝐶 = ⦋𝑚 / 𝑗⦌𝐶)
11	8, 10	prodeq12dv 15645	. . . . . 6 ⊢ (𝑗 = 𝑚 → ∏𝑘 ∈ 𝐵 𝐶 = ∏𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐶)
12	4, 7, 11	cbvprodi 15636	. . . . 5 ⊢ ∏𝑗 ∈ {𝑦}∏𝑘 ∈ 𝐵 𝐶 = ∏𝑚 ∈ {𝑦}∏𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐶
13		fprod2d.6	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∪ {𝑦}) ⊆ 𝐴)
14	13	unssbd 4123	. . . . . . . 8 ⊢ (𝜑 → {𝑦} ⊆ 𝐴)
15		vex 3437	. . . . . . . . 9 ⊢ 𝑦 ∈ V
16	15	snss 4720	. . . . . . . 8 ⊢ (𝑦 ∈ 𝐴 ↔ {𝑦} ⊆ 𝐴)
17	14, 16	sylibr 233	. . . . . . 7 ⊢ (𝜑 → 𝑦 ∈ 𝐴)
18		fprod2d.3	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → 𝐵 ∈ Fin)
19	18	ralrimiva 3104	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 𝐵 ∈ Fin)
20		nfcsb1v 3858	. . . . . . . . . . 11 ⊢ Ⅎ𝑗⦋𝑦 / 𝑗⦌𝐵
21	20	nfel1 2924	. . . . . . . . . 10 ⊢ Ⅎ𝑗⦋𝑦 / 𝑗⦌𝐵 ∈ Fin
22		csbeq1a 3847	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑗⦌𝐵)
23	22	eleq1d 2824	. . . . . . . . . 10 ⊢ (𝑗 = 𝑦 → (𝐵 ∈ Fin ↔ ⦋𝑦 / 𝑗⦌𝐵 ∈ Fin))
24	21, 23	rspc 3550	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 𝐵 ∈ Fin → ⦋𝑦 / 𝑗⦌𝐵 ∈ Fin))
25	17, 19, 24	sylc 65	. . . . . . . 8 ⊢ (𝜑 → ⦋𝑦 / 𝑗⦌𝐵 ∈ Fin)
26		fprod2d.4	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝐴 ∧ 𝑘 ∈ 𝐵)) → 𝐶 ∈ ℂ)
27	26	ralrimivva 3124	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐶 ∈ ℂ)
28		nfcsb1v 3858	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗⦋𝑦 / 𝑗⦌𝐶
29	28	nfel1 2924	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ
30	20, 29	nfralw 3152	. . . . . . . . . . 11 ⊢ Ⅎ𝑗∀𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ
31		csbeq1a 3847	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑦 → 𝐶 = ⦋𝑦 / 𝑗⦌𝐶)
32	31	eleq1d 2824	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑦 → (𝐶 ∈ ℂ ↔ ⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ))
33	22, 32	raleqbidv 3337	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑦 → (∀𝑘 ∈ 𝐵 𝐶 ∈ ℂ ↔ ∀𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ))
34	30, 33	rspc 3550	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝐴 → (∀𝑗 ∈ 𝐴 ∀𝑘 ∈ 𝐵 𝐶 ∈ ℂ → ∀𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ))
35	17, 27, 34	sylc 65	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ)
36	35	r19.21bi 3135	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵) → ⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ)
37	25, 36	fprodcl 15671	. . . . . . 7 ⊢ (𝜑 → ∏𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ)
38		csbeq1 3836	. . . . . . . . 9 ⊢ (𝑚 = 𝑦 → ⦋𝑚 / 𝑗⦌𝐵 = ⦋𝑦 / 𝑗⦌𝐵)
39		csbeq1 3836	. . . . . . . . . 10 ⊢ (𝑚 = 𝑦 → ⦋𝑚 / 𝑗⦌𝐶 = ⦋𝑦 / 𝑗⦌𝐶)
40	39	adantr 481	. . . . . . . . 9 ⊢ ((𝑚 = 𝑦 ∧ 𝑘 ∈ ⦋𝑚 / 𝑗⦌𝐵) → ⦋𝑚 / 𝑗⦌𝐶 = ⦋𝑦 / 𝑗⦌𝐶)
41	38, 40	prodeq12dv 15645	. . . . . . . 8 ⊢ (𝑚 = 𝑦 → ∏𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐶 = ∏𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶)
42	41	prodsn 15681	. . . . . . 7 ⊢ ((𝑦 ∈ 𝐴 ∧ ∏𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ) → ∏𝑚 ∈ {𝑦}∏𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐶 = ∏𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶)
43	17, 37, 42	syl2anc 584	. . . . . 6 ⊢ (𝜑 → ∏𝑚 ∈ {𝑦}∏𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐶 = ∏𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶)
44		nfcv 2908	. . . . . . . 8 ⊢ Ⅎ𝑚⦋𝑦 / 𝑗⦌𝐶
45		nfcsb1v 3858	. . . . . . . 8 ⊢ Ⅎ𝑘⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶
46		csbeq1a 3847	. . . . . . . 8 ⊢ (𝑘 = 𝑚 → ⦋𝑦 / 𝑗⦌𝐶 = ⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
47	44, 45, 46	cbvprodi 15636	. . . . . . 7 ⊢ ∏𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 = ∏𝑚 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶
48		csbeq1 3836	. . . . . . . . 9 ⊢ (𝑚 = (2nd ‘𝑧) → ⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
49		snfi 8843	. . . . . . . . . 10 ⊢ {𝑦} ∈ Fin
50		xpfi 9094	. . . . . . . . . 10 ⊢ (({𝑦} ∈ Fin ∧ ⦋𝑦 / 𝑗⦌𝐵 ∈ Fin) → ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵) ∈ Fin)
51	49, 25, 50	sylancr 587	. . . . . . . . 9 ⊢ (𝜑 → ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵) ∈ Fin)
52		2ndconst 7950	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝐴 → (2nd ↾ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)):({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)–1-1-onto→⦋𝑦 / 𝑗⦌𝐵)
53	17, 52	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (2nd ↾ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)):({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)–1-1-onto→⦋𝑦 / 𝑗⦌𝐵)
54		fvres 6802	. . . . . . . . . 10 ⊢ (𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵) → ((2nd ↾ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵))‘𝑧) = (2nd ‘𝑧))
55	54	adantl 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) → ((2nd ↾ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵))‘𝑧) = (2nd ‘𝑧))
56	45	nfel1 2924	. . . . . . . . . . 11 ⊢ Ⅎ𝑘⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ
57	46	eleq1d 2824	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑚 → (⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ ↔ ⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ))
58	56, 57	rspc 3550	. . . . . . . . . 10 ⊢ (𝑚 ∈ ⦋𝑦 / 𝑗⦌𝐵 → (∀𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ → ⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ))
59	35, 58	mpan9 507	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ⦋𝑦 / 𝑗⦌𝐵) → ⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶 ∈ ℂ)
60	48, 51, 53, 55, 59	fprodf1o 15665	. . . . . . . 8 ⊢ (𝜑 → ∏𝑚 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶 = ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
61		elxp 5613	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵) ↔ ∃𝑚∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵)))
62		nfv 1918	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗 𝑧 = ⟨𝑚, 𝑘⟩
63		nfv 1918	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗 𝑚 ∈ {𝑦}
64	20	nfcri 2895	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑗 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵
65	63, 64	nfan 1903	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗(𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵)
66	62, 65	nfan 1903	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵))
67	66	nfex 2319	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵))
68		nfv 1918	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑚∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵))
69		opeq1 4805	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = 𝑗 → ⟨𝑚, 𝑘⟩ = ⟨𝑗, 𝑘⟩)
70	69	eqeq2d 2750	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = 𝑗 → (𝑧 = ⟨𝑚, 𝑘⟩ ↔ 𝑧 = ⟨𝑗, 𝑘⟩))
71		eleq1w 2822	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 = 𝑗 → (𝑚 ∈ {𝑦} ↔ 𝑗 ∈ {𝑦}))
72		velsn 4578	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑗 ∈ {𝑦} ↔ 𝑗 = 𝑦)
73	71, 72	bitrdi 287	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 = 𝑗 → (𝑚 ∈ {𝑦} ↔ 𝑗 = 𝑦))
74	73	anbi1d 630	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = 𝑗 → ((𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵) ↔ (𝑗 = 𝑦 ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵)))
75	22	eleq2d 2825	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑦 → (𝑘 ∈ 𝐵 ↔ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵))
76	75	pm5.32i 575	. . . . . . . . . . . . . . . 16 ⊢ ((𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵) ↔ (𝑗 = 𝑦 ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵))
77	74, 76	bitr4di 289	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = 𝑗 → ((𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵) ↔ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)))
78	70, 77	anbi12d 631	. . . . . . . . . . . . . 14 ⊢ (𝑚 = 𝑗 → ((𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵)) ↔ (𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵))))
79	78	exbidv 1925	. . . . . . . . . . . . 13 ⊢ (𝑚 = 𝑗 → (∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵)) ↔ ∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵))))
80	67, 68, 79	cbvexv1 2340	. . . . . . . . . . . 12 ⊢ (∃𝑚∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑦} ∧ 𝑘 ∈ ⦋𝑦 / 𝑗⦌𝐵)) ↔ ∃𝑗∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)))
81	61, 80	bitri 274	. . . . . . . . . . 11 ⊢ (𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵) ↔ ∃𝑗∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)))
82		nfv 1918	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗𝜑
83		nfcv 2908	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗(2nd ‘𝑧)
84	83, 28	nfcsbw 3860	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑗⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶
85	84	nfeq2 2925	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶
86		nfv 1918	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘𝜑
87		nfcsb1v 3858	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶
88	87	nfeq2 2925	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶
89		fprod2d.1	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = ⟨𝑗, 𝑘⟩ → 𝐷 = 𝐶)
90	89	ad2antlr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → 𝐷 = 𝐶)
91	31	ad2antrl 725	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → 𝐶 = ⦋𝑦 / 𝑗⦌𝐶)
92		fveq2 6783	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = ⟨𝑗, 𝑘⟩ → (2nd ‘𝑧) = (2nd ‘⟨𝑗, 𝑘⟩))
93		vex 3437	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑗 ∈ V
94		vex 3437	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑘 ∈ V
95	93, 94	op2nd 7849	. . . . . . . . . . . . . . . . . 18 ⊢ (2nd ‘⟨𝑗, 𝑘⟩) = 𝑘
96	92, 95	eqtr2di 2796	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = ⟨𝑗, 𝑘⟩ → 𝑘 = (2nd ‘𝑧))
97	96	ad2antlr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → 𝑘 = (2nd ‘𝑧))
98		csbeq1a 3847	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (2nd ‘𝑧) → ⦋𝑦 / 𝑗⦌𝐶 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
99	97, 98	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → ⦋𝑦 / 𝑗⦌𝐶 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
100	90, 91, 99	3eqtrd 2783	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑧 = ⟨𝑗, 𝑘⟩) ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
101	100	expl 458	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶))
102	86, 88, 101	exlimd 2212	. . . . . . . . . . . 12 ⊢ (𝜑 → (∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶))
103	82, 85, 102	exlimd 2212	. . . . . . . . . . 11 ⊢ (𝜑 → (∃𝑗∃𝑘(𝑧 = ⟨𝑗, 𝑘⟩ ∧ (𝑗 = 𝑦 ∧ 𝑘 ∈ 𝐵)) → 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶))
104	81, 103	syl5bi 241	. . . . . . . . . 10 ⊢ (𝜑 → (𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵) → 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶))
105	104	imp 407	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) → 𝐷 = ⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
106	105	prodeq2dv 15642	. . . . . . . 8 ⊢ (𝜑 → ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷 = ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)⦋(2nd ‘𝑧) / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶)
107	60, 106	eqtr4d 2782	. . . . . . 7 ⊢ (𝜑 → ∏𝑚 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑚 / 𝑘⦌⦋𝑦 / 𝑗⦌𝐶 = ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷)
108	47, 107	eqtrid 2791	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ ⦋ 𝑦 / 𝑗⦌𝐵⦋𝑦 / 𝑗⦌𝐶 = ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷)
109	43, 108	eqtrd 2779	. . . . 5 ⊢ (𝜑 → ∏𝑚 ∈ {𝑦}∏𝑘 ∈ ⦋ 𝑚 / 𝑗⦌𝐵⦋𝑚 / 𝑗⦌𝐶 = ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷)
110	12, 109	eqtrid 2791	. . . 4 ⊢ (𝜑 → ∏𝑗 ∈ {𝑦}∏𝑘 ∈ 𝐵 𝐶 = ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷)
111	110	adantr 481	. . 3 ⊢ ((𝜑 ∧ 𝜓) → ∏𝑗 ∈ {𝑦}∏𝑘 ∈ 𝐵 𝐶 = ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷)
112	3, 111	oveq12d 7302	. 2 ⊢ ((𝜑 ∧ 𝜓) → (∏𝑗 ∈ 𝑥 ∏𝑘 ∈ 𝐵 𝐶 · ∏𝑗 ∈ {𝑦}∏𝑘 ∈ 𝐵 𝐶) = (∏𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵)𝐷 · ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷))
113		fprod2d.5	. . . . 5 ⊢ (𝜑 → ¬ 𝑦 ∈ 𝑥)
114		disjsn 4648	. . . . 5 ⊢ ((𝑥 ∩ {𝑦}) = ∅ ↔ ¬ 𝑦 ∈ 𝑥)
115	113, 114	sylibr 233	. . . 4 ⊢ (𝜑 → (𝑥 ∩ {𝑦}) = ∅)
116		eqidd 2740	. . . 4 ⊢ (𝜑 → (𝑥 ∪ {𝑦}) = (𝑥 ∪ {𝑦}))
117		fprod2d.2	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ Fin)
118	117, 13	ssfid 9051	. . . 4 ⊢ (𝜑 → (𝑥 ∪ {𝑦}) ∈ Fin)
119	13	sselda 3922	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) → 𝑗 ∈ 𝐴)
120	26	anassrs 468	. . . . . 6 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ 𝐵) → 𝐶 ∈ ℂ)
121	18, 120	fprodcl 15671	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐴) → ∏𝑘 ∈ 𝐵 𝐶 ∈ ℂ)
122	119, 121	syldan 591	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) → ∏𝑘 ∈ 𝐵 𝐶 ∈ ℂ)
123	115, 116, 118, 122	fprodsplit 15685	. . 3 ⊢ (𝜑 → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘 ∈ 𝐵 𝐶 = (∏𝑗 ∈ 𝑥 ∏𝑘 ∈ 𝐵 𝐶 · ∏𝑗 ∈ {𝑦}∏𝑘 ∈ 𝐵 𝐶))
124	123	adantr 481	. 2 ⊢ ((𝜑 ∧ 𝜓) → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘 ∈ 𝐵 𝐶 = (∏𝑗 ∈ 𝑥 ∏𝑘 ∈ 𝐵 𝐶 · ∏𝑗 ∈ {𝑦}∏𝑘 ∈ 𝐵 𝐶))
125		eliun 4929	. . . . . . . . . 10 ⊢ (𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ↔ ∃𝑗 ∈ 𝑥 𝑧 ∈ ({𝑗} × 𝐵))
126		xp1st 7872	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ ({𝑗} × 𝐵) → (1st ‘𝑧) ∈ {𝑗})
127		elsni 4579	. . . . . . . . . . . . . 14 ⊢ ((1st ‘𝑧) ∈ {𝑗} → (1st ‘𝑧) = 𝑗)
128	126, 127	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑧 ∈ ({𝑗} × 𝐵) → (1st ‘𝑧) = 𝑗)
129	128	eleq1d 2824	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ ({𝑗} × 𝐵) → ((1st ‘𝑧) ∈ 𝑥 ↔ 𝑗 ∈ 𝑥))
130	129	biimparc 480	. . . . . . . . . . 11 ⊢ ((𝑗 ∈ 𝑥 ∧ 𝑧 ∈ ({𝑗} × 𝐵)) → (1st ‘𝑧) ∈ 𝑥)
131	130	rexlimiva 3211	. . . . . . . . . 10 ⊢ (∃𝑗 ∈ 𝑥 𝑧 ∈ ({𝑗} × 𝐵) → (1st ‘𝑧) ∈ 𝑥)
132	125, 131	sylbi 216	. . . . . . . . 9 ⊢ (𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) → (1st ‘𝑧) ∈ 𝑥)
133		xp1st 7872	. . . . . . . . 9 ⊢ (𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵) → (1st ‘𝑧) ∈ {𝑦})
134	132, 133	anim12i 613	. . . . . . . 8 ⊢ ((𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∧ 𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) → ((1st ‘𝑧) ∈ 𝑥 ∧ (1st ‘𝑧) ∈ {𝑦}))
135		elin 3904	. . . . . . . 8 ⊢ (𝑧 ∈ (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) ↔ (𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∧ 𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)))
136		elin 3904	. . . . . . . 8 ⊢ ((1st ‘𝑧) ∈ (𝑥 ∩ {𝑦}) ↔ ((1st ‘𝑧) ∈ 𝑥 ∧ (1st ‘𝑧) ∈ {𝑦}))
137	134, 135, 136	3imtr4i 292	. . . . . . 7 ⊢ (𝑧 ∈ (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) → (1st ‘𝑧) ∈ (𝑥 ∩ {𝑦}))
138	115	eleq2d 2825	. . . . . . . 8 ⊢ (𝜑 → ((1st ‘𝑧) ∈ (𝑥 ∩ {𝑦}) ↔ (1st ‘𝑧) ∈ ∅))
139		noel 4265	. . . . . . . . 9 ⊢ ¬ (1st ‘𝑧) ∈ ∅
140	139	pm2.21i 119	. . . . . . . 8 ⊢ ((1st ‘𝑧) ∈ ∅ → 𝑧 ∈ ∅)
141	138, 140	syl6bi 252	. . . . . . 7 ⊢ (𝜑 → ((1st ‘𝑧) ∈ (𝑥 ∩ {𝑦}) → 𝑧 ∈ ∅))
142	137, 141	syl5 34	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) → 𝑧 ∈ ∅))
143	142	ssrdv 3928	. . . . 5 ⊢ (𝜑 → (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) ⊆ ∅)
144		ss0 4333	. . . . 5 ⊢ ((∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) ⊆ ∅ → (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) = ∅)
145	143, 144	syl 17	. . . 4 ⊢ (𝜑 → (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∩ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)) = ∅)
146		iunxun 5024	. . . . . 6 ⊢ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∪ ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵))
147		nfcv 2908	. . . . . . . . 9 ⊢ Ⅎ𝑚({𝑗} × 𝐵)
148		nfcv 2908	. . . . . . . . . 10 ⊢ Ⅎ𝑗{𝑚}
149	148, 5	nfxp 5623	. . . . . . . . 9 ⊢ Ⅎ𝑗({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)
150		sneq 4572	. . . . . . . . . 10 ⊢ (𝑗 = 𝑚 → {𝑗} = {𝑚})
151	150, 8	xpeq12d 5621	. . . . . . . . 9 ⊢ (𝑗 = 𝑚 → ({𝑗} × 𝐵) = ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵))
152	147, 149, 151	cbviun 4967	. . . . . . . 8 ⊢ ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵) = ∪ 𝑚 ∈ {𝑦} ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵)
153		sneq 4572	. . . . . . . . . 10 ⊢ (𝑚 = 𝑦 → {𝑚} = {𝑦})
154	153, 38	xpeq12d 5621	. . . . . . . . 9 ⊢ (𝑚 = 𝑦 → ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵) = ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵))
155	15, 154	iunxsn 5021	. . . . . . . 8 ⊢ ∪ 𝑚 ∈ {𝑦} ({𝑚} × ⦋𝑚 / 𝑗⦌𝐵) = ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)
156	152, 155	eqtri 2767	. . . . . . 7 ⊢ ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵) = ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)
157	156	uneq2i 4095	. . . . . 6 ⊢ (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∪ ∪ 𝑗 ∈ {𝑦} ({𝑗} × 𝐵)) = (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵))
158	146, 157	eqtri 2767	. . . . 5 ⊢ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵))
159	158	a1i 11	. . . 4 ⊢ (𝜑 → ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) = (∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵) ∪ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)))
160		snfi 8843	. . . . . . 7 ⊢ {𝑗} ∈ Fin
161	119, 18	syldan 591	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) → 𝐵 ∈ Fin)
162		xpfi 9094	. . . . . . 7 ⊢ (({𝑗} ∈ Fin ∧ 𝐵 ∈ Fin) → ({𝑗} × 𝐵) ∈ Fin)
163	160, 161, 162	sylancr 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) → ({𝑗} × 𝐵) ∈ Fin)
164	163	ralrimiva 3104	. . . . 5 ⊢ (𝜑 → ∀𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
165		iunfi 9116	. . . . 5 ⊢ (((𝑥 ∪ {𝑦}) ∈ Fin ∧ ∀𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin) → ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
166	118, 164, 165	syl2anc 584	. . . 4 ⊢ (𝜑 → ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ∈ Fin)
167		eliun 4929	. . . . . 6 ⊢ (𝑧 ∈ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) ↔ ∃𝑗 ∈ (𝑥 ∪ {𝑦})𝑧 ∈ ({𝑗} × 𝐵))
168		elxp 5613	. . . . . . . 8 ⊢ (𝑧 ∈ ({𝑗} × 𝐵) ↔ ∃𝑚∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵)))
169		simprl 768	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝑧 = ⟨𝑚, 𝑘⟩)
170		simprrl 778	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝑚 ∈ {𝑗})
171		elsni 4579	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ {𝑗} → 𝑚 = 𝑗)
172	170, 171	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝑚 = 𝑗)
173	172	opeq1d 4811	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → ⟨𝑚, 𝑘⟩ = ⟨𝑗, 𝑘⟩)
174	169, 173	eqtrd 2779	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝑧 = ⟨𝑗, 𝑘⟩)
175	174, 89	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝐷 = 𝐶)
176		simpll 764	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝜑)
177	119	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝑗 ∈ 𝐴)
178		simprrr 779	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝑘 ∈ 𝐵)
179	176, 177, 178, 26	syl12anc 834	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝐶 ∈ ℂ)
180	175, 179	eqeltrd 2840	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) ∧ (𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵))) → 𝐷 ∈ ℂ)
181	180	ex 413	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) → ((𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵)) → 𝐷 ∈ ℂ))
182	181	exlimdvv 1938	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) → (∃𝑚∃𝑘(𝑧 = ⟨𝑚, 𝑘⟩ ∧ (𝑚 ∈ {𝑗} ∧ 𝑘 ∈ 𝐵)) → 𝐷 ∈ ℂ))
183	168, 182	syl5bi 241	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑥 ∪ {𝑦})) → (𝑧 ∈ ({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
184	183	rexlimdva 3214	. . . . . 6 ⊢ (𝜑 → (∃𝑗 ∈ (𝑥 ∪ {𝑦})𝑧 ∈ ({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
185	167, 184	syl5bi 241	. . . . 5 ⊢ (𝜑 → (𝑧 ∈ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵) → 𝐷 ∈ ℂ))
186	185	imp 407	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)) → 𝐷 ∈ ℂ)
187	145, 159, 166, 186	fprodsplit 15685	. . 3 ⊢ (𝜑 → ∏𝑧 ∈ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷 = (∏𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵)𝐷 · ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷))
188	187	adantr 481	. 2 ⊢ ((𝜑 ∧ 𝜓) → ∏𝑧 ∈ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷 = (∏𝑧 ∈ ∪ 𝑗 ∈ 𝑥 ({𝑗} × 𝐵)𝐷 · ∏𝑧 ∈ ({𝑦} × ⦋𝑦 / 𝑗⦌𝐵)𝐷))
189	112, 124, 188	3eqtr4d 2789	1 ⊢ ((𝜑 ∧ 𝜓) → ∏𝑗 ∈ (𝑥 ∪ {𝑦})∏𝑘 ∈ 𝐵 𝐶 = ∏𝑧 ∈ ∪ 𝑗 ∈ (𝑥 ∪ {𝑦})({𝑗} × 𝐵)𝐷)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1539  ∃wex 1782   ∈ wcel 2107  ∀wral 3065  ∃wrex 3066  ⦋csb 3833   ∪ cun 3886   ∩ cin 3887   ⊆ wss 3888  ∅c0 4257  {csn 4562  ⟨cop 4568  ∪ ciun 4925   × cxp 5588   ↾ cres 5592  –1-1-onto→wf1o 6436  ‘cfv 6437  (class class class)co 7284  1^st c1st 7838  2^nd c2nd 7839  Fincfn 8742  ℂcc 10878   · cmul 10885  ∏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:  fprod2d  15700