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 15949

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 3876	. . . 4 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
2		fvex 6871	. . . . 5 ⊢ (2^nd ‘𝑦) ∈ V
3		fvex 6871	. . . . 5 ⊢ (1^st ‘𝑦) ∈ V
4		opex 5424	. . . . . . 7 ⊢ ⟨𝑗, 𝑘⟩ ∈ V
5		fprodcnv.1	. . . . . . 7 ⊢ (𝑥 = ⟨𝑗, 𝑘⟩ → 𝐵 = 𝐷)
6	4, 5	csbie 3897	. . . . . 6 ⊢ ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = 𝐷
7		opeq12 4839	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑗, 𝑘⟩ = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
8	7	csbeq1d 3866	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
9	6, 8	eqtr3id 2778	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
10	2, 3, 9	csbie2 3901	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵
11	1, 10	eqtr4di 2782	. . 3 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
12		fprodcnv.3	. . . 4 ⊢ (𝜑 → 𝐴 ∈ Fin)
13		cnvfi 9140	. . . 4 ⊢ (𝐴 ∈ Fin → ^◡𝐴 ∈ Fin)
14	12, 13	syl 17	. . 3 ⊢ (𝜑 → ^◡𝐴 ∈ Fin)
15		relcnv 6075	. . . . 5 ⊢ Rel ^◡𝐴
16		cnvf1o 8090	. . . . 5 ⊢ (Rel ^◡𝐴 → (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴)
17	15, 16	ax-mp 5	. . . 4 ⊢ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴
18		fprodcnv.4	. . . . . 6 ⊢ (𝜑 → Rel 𝐴)
19		dfrel2 6162	. . . . . 6 ⊢ (Rel 𝐴 ↔ ^◡^◡𝐴 = 𝐴)
20	18, 19	sylib 218	. . . . 5 ⊢ (𝜑 → ^◡^◡𝐴 = 𝐴)
21	20	f1oeq3d 6797	. . . 4 ⊢ (𝜑 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴 ↔ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴))
22	17, 21	mpbii 233	. . 3 ⊢ (𝜑 → (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴)
23		1st2nd 8018	. . . . . . 7 ⊢ ((Rel ^◡𝐴 ∧ 𝑦 ∈ ^◡𝐴) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
24	15, 23	mpan 690	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
25	24	fveq2d 6862	. . . . 5 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩))
26	24	eleq1d 2813	. . . . . . 7 ⊢ (𝑦 ∈ ^◡𝐴 → (𝑦 ∈ ^◡𝐴 ↔ ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴))
27	26	ibi 267	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴)
28		sneq 4599	. . . . . . . . . 10 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → {𝑧} = {⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
29	28	cnveqd 5839	. . . . . . . . 9 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ^◡{𝑧} = ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
30	29	unieqd 4884	. . . . . . . 8 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
31		opswap 6202	. . . . . . . 8 ⊢ ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩
32	30, 31	eqtrdi 2780	. . . . . . 7 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
33		eqid 2729	. . . . . . 7 ⊢ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}) = (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})
34		opex 5424	. . . . . . 7 ⊢ ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ ∈ V
35	32, 33, 34	fvmpt 6968	. . . . . 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 2764	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
38	37	adantl 481	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ ^◡𝐴) → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
39		fprodcnv.5	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)
40	11, 14, 22, 38, 39	fprodf1o 15912	. 2 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
41		csbeq1a 3876	. . . . 5 ⊢ (𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
42	24, 41	syl 17	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
43		opex 5424	. . . . . . 7 ⊢ ⟨𝑘, 𝑗⟩ ∈ V
44		fprodcnv.2	. . . . . . 7 ⊢ (𝑦 = ⟨𝑘, 𝑗⟩ → 𝐶 = 𝐷)
45	43, 44	csbie 3897	. . . . . 6 ⊢ ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = 𝐷
46		opeq12 4839	. . . . . . . 8 ⊢ ((𝑘 = (1^st ‘𝑦) ∧ 𝑗 = (2^nd ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
47	46	ancoms 458	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
48	47	csbeq1d 3866	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
49	45, 48	eqtr3id 2778	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
50	2, 3, 49	csbie2 3901	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶
51	42, 50	eqtr4di 2782	. . 3 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
52	51	prodeq2i 15884	. 2 ⊢ ∏𝑦 ∈ ^◡ 𝐴𝐶 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷
53	40, 52	eqtr4di 2782	1 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴𝐶)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ⦋csb 3862 {csn 4589 ⟨cop 4595 ∪ cuni 4871 ↦ cmpt 5188 ^◡ccnv 5637 Rel wrel 5643 –1-1-onto→wf1o 6510 ‘cfv 6511 1^st c1st 7966 2^nd c2nd 7967 Fincfn 8918 ℂcc 11066 ∏cprod 15869

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 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5234 ax-sep 5251 ax-nul 5261 ax-pow 5320 ax-pr 5387 ax-un 7711 ax-inf2 9594 ax-cnex 11124 ax-resscn 11125 ax-1cn 11126 ax-icn 11127 ax-addcl 11128 ax-addrcl 11129 ax-mulcl 11130 ax-mulrcl 11131 ax-mulcom 11132 ax-addass 11133 ax-mulass 11134 ax-distr 11135 ax-i2m1 11136 ax-1ne0 11137 ax-1rid 11138 ax-rnegex 11139 ax-rrecex 11140 ax-cnre 11141 ax-pre-lttri 11142 ax-pre-lttrn 11143 ax-pre-ltadd 11144 ax-pre-mulgt0 11145 ax-pre-sup 11146

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3354 df-reu 3355 df-rab 3406 df-v 3449 df-sbc 3754 df-csb 3863 df-dif 3917 df-un 3919 df-in 3921 df-ss 3931 df-pss 3934 df-nul 4297 df-if 4489 df-pw 4565 df-sn 4590 df-pr 4592 df-op 4596 df-uni 4872 df-int 4911 df-iun 4957 df-br 5108 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5533 df-eprel 5538 df-po 5546 df-so 5547 df-fr 5591 df-se 5592 df-we 5593 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-pred 6274 df-ord 6335 df-on 6336 df-lim 6337 df-suc 6338 df-iota 6464 df-fun 6513 df-fn 6514 df-f 6515 df-f1 6516 df-fo 6517 df-f1o 6518 df-fv 6519 df-isom 6520 df-riota 7344 df-ov 7390 df-oprab 7391 df-mpo 7392 df-om 7843 df-1st 7968 df-2nd 7969 df-frecs 8260 df-wrecs 8291 df-recs 8340 df-rdg 8378 df-1o 8434 df-er 8671 df-en 8919 df-dom 8920 df-sdom 8921 df-fin 8922 df-sup 9393 df-oi 9463 df-card 9892 df-pnf 11210 df-mnf 11211 df-xr 11212 df-ltxr 11213 df-le 11214 df-sub 11407 df-neg 11408 df-div 11836 df-nn 12187 df-2 12249 df-3 12250 df-n0 12443 df-z 12530 df-uz 12794 df-rp 12952 df-fz 13469 df-fzo 13616 df-seq 13967 df-exp 14027 df-hash 14296 df-cj 15065 df-re 15066 df-im 15067 df-sqrt 15201 df-abs 15202 df-clim 15454 df-prod 15870

This theorem is referenced by: fprodcom2 15950

W3C validator