fprodcnv - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > fprodcnv		Structured version Visualization version GIF version

Theorem fprodcnv 15931

Description: Transform a product region using the converse operation. (Contributed by Scott Fenton, 1-Feb-2018.)

**Hypotheses**
Ref	Expression
fprodcnv.1	⊢ (𝑥 = ⟨𝑗, 𝑘⟩ → 𝐵 = 𝐷)
fprodcnv.2	⊢ (𝑦 = ⟨𝑘, 𝑗⟩ → 𝐶 = 𝐷)
fprodcnv.3	⊢ (𝜑 → 𝐴 ∈ Fin)
fprodcnv.4	⊢ (𝜑 → Rel 𝐴)
fprodcnv.5	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)

**Assertion**
Ref	Expression
fprodcnv	⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴𝐶)

Distinct variable groups: 𝑥,𝐴,𝑦 𝐵,𝑗,𝑘,𝑦 𝐶,𝑗,𝑘 𝑥,𝐷,𝑦 𝑗,𝑘,𝑥,𝑦 𝜑,𝑥,𝑦 Allowed substitution hints: 𝜑(𝑗,𝑘) 𝐴(𝑗,𝑘) 𝐵(𝑥) 𝐶(𝑥,𝑦) 𝐷(𝑗,𝑘)

Proof of Theorem fprodcnv Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		csbeq1a 3906	. . . 4 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
2		fvex 6903	. . . . 5 ⊢ (2^nd ‘𝑦) ∈ V
3		fvex 6903	. . . . 5 ⊢ (1^st ‘𝑦) ∈ V
4		opex 5463	. . . . . . 7 ⊢ ⟨𝑗, 𝑘⟩ ∈ V
5		fprodcnv.1	. . . . . . 7 ⊢ (𝑥 = ⟨𝑗, 𝑘⟩ → 𝐵 = 𝐷)
6	4, 5	csbie 3928	. . . . . 6 ⊢ ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = 𝐷
7		opeq12 4874	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑗, 𝑘⟩ = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
8	7	csbeq1d 3896	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
9	6, 8	eqtr3id 2784	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
10	2, 3, 9	csbie2 3934	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵
11	1, 10	eqtr4di 2788	. . 3 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
12		fprodcnv.3	. . . 4 ⊢ (𝜑 → 𝐴 ∈ Fin)
13		cnvfi 9182	. . . 4 ⊢ (𝐴 ∈ Fin → ^◡𝐴 ∈ Fin)
14	12, 13	syl 17	. . 3 ⊢ (𝜑 → ^◡𝐴 ∈ Fin)
15		relcnv 6102	. . . . 5 ⊢ Rel ^◡𝐴
16		cnvf1o 8099	. . . . 5 ⊢ (Rel ^◡𝐴 → (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴)
17	15, 16	ax-mp 5	. . . 4 ⊢ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴
18		fprodcnv.4	. . . . . 6 ⊢ (𝜑 → Rel 𝐴)
19		dfrel2 6187	. . . . . 6 ⊢ (Rel 𝐴 ↔ ^◡^◡𝐴 = 𝐴)
20	18, 19	sylib 217	. . . . 5 ⊢ (𝜑 → ^◡^◡𝐴 = 𝐴)
21	20	f1oeq3d 6829	. . . 4 ⊢ (𝜑 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴 ↔ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴))
22	17, 21	mpbii 232	. . 3 ⊢ (𝜑 → (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴)
23		1st2nd 8027	. . . . . . 7 ⊢ ((Rel ^◡𝐴 ∧ 𝑦 ∈ ^◡𝐴) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
24	15, 23	mpan 686	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
25	24	fveq2d 6894	. . . . 5 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩))
26	24	eleq1d 2816	. . . . . . 7 ⊢ (𝑦 ∈ ^◡𝐴 → (𝑦 ∈ ^◡𝐴 ↔ ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴))
27	26	ibi 266	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴)
28		sneq 4637	. . . . . . . . . 10 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → {𝑧} = {⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
29	28	cnveqd 5874	. . . . . . . . 9 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ^◡{𝑧} = ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
30	29	unieqd 4921	. . . . . . . 8 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
31		opswap 6227	. . . . . . . 8 ⊢ ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩
32	30, 31	eqtrdi 2786	. . . . . . 7 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
33		eqid 2730	. . . . . . 7 ⊢ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}) = (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})
34		opex 5463	. . . . . . 7 ⊢ ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ ∈ V
35	32, 33, 34	fvmpt 6997	. . . . . 6 ⊢ (⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
36	27, 35	syl 17	. . . . 5 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
37	25, 36	eqtrd 2770	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
38	37	adantl 480	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ ^◡𝐴) → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
39		fprodcnv.5	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)
40	11, 14, 22, 38, 39	fprodf1o 15894	. 2 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
41		csbeq1a 3906	. . . . 5 ⊢ (𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
42	24, 41	syl 17	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
43		opex 5463	. . . . . . 7 ⊢ ⟨𝑘, 𝑗⟩ ∈ V
44		fprodcnv.2	. . . . . . 7 ⊢ (𝑦 = ⟨𝑘, 𝑗⟩ → 𝐶 = 𝐷)
45	43, 44	csbie 3928	. . . . . 6 ⊢ ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = 𝐷
46		opeq12 4874	. . . . . . . 8 ⊢ ((𝑘 = (1^st ‘𝑦) ∧ 𝑗 = (2^nd ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
47	46	ancoms 457	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
48	47	csbeq1d 3896	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
49	45, 48	eqtr3id 2784	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
50	2, 3, 49	csbie2 3934	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶
51	42, 50	eqtr4di 2788	. . 3 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
52	51	prodeq2i 15867	. 2 ⊢ ∏𝑦 ∈ ^◡ 𝐴𝐶 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷
53	40, 52	eqtr4di 2788	1 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴𝐶)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 394 = wceq 1539 ∈ wcel 2104 ⦋csb 3892 {csn 4627 ⟨cop 4633 ∪ cuni 4907 ↦ cmpt 5230 ^◡ccnv 5674 Rel wrel 5680 –1-1-onto→wf1o 6541 ‘cfv 6542 1^st c1st 7975 2^nd c2nd 7976 Fincfn 8941 ℂcc 11110 ∏cprod 15853

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1911 ax-6 1969 ax-7 2009 ax-8 2106 ax-9 2114 ax-10 2135 ax-11 2152 ax-12 2169 ax-ext 2701 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7727 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 395 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2532 df-eu 2561 df-clab 2708 df-cleq 2722 df-clel 2808 df-nfc 2883 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-rmo 3374 df-reu 3375 df-rab 3431 df-v 3474 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-se 5631 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6299 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-isom 6551 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7858 df-1st 7977 df-2nd 7978 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 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 12979 df-fz 13489 df-fzo 13632 df-seq 13971 df-exp 14032 df-hash 14295 df-cj 15050 df-re 15051 df-im 15052 df-sqrt 15186 df-abs 15187 df-clim 15436 df-prod 15854

This theorem is referenced by: fprodcom2 15932

W3C validator