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 16013

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 3866	. . . 4 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
2		fvex 6880	. . . . 5 ⊢ (2^nd ‘𝑦) ∈ V
3		fvex 6880	. . . . 5 ⊢ (1^st ‘𝑦) ∈ V
4		opex 5431	. . . . . . 7 ⊢ ⟨𝑗, 𝑘⟩ ∈ V
5		fprodcnv.1	. . . . . . 7 ⊢ (𝑥 = ⟨𝑗, 𝑘⟩ → 𝐵 = 𝐷)
6	4, 5	csbie 3887	. . . . . 6 ⊢ ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = 𝐷
7		opeq12 4833	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑗, 𝑘⟩ = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
8	7	csbeq1d 3856	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
9	6, 8	eqtr3id 2811	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
10	2, 3, 9	csbie2 3891	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵
11	1, 10	eqtr4di 2815	. . 3 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
12		fprodcnv.3	. . . 4 ⊢ (𝜑 → 𝐴 ∈ Fin)
13		cnvfi 9144	. . . 4 ⊢ (𝐴 ∈ Fin → ^◡𝐴 ∈ Fin)
14	12, 13	syl 17	. . 3 ⊢ (𝜑 → ^◡𝐴 ∈ Fin)
15		relcnv 6093	. . . . 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 6175	. . . . . 6 ⊢ (Rel 𝐴 ↔ ^◡^◡𝐴 = 𝐴)
20	18, 19	sylib 220	. . . . 5 ⊢ (𝜑 → ^◡^◡𝐴 = 𝐴)
21	20	f1oeq3d 6803	. . . 4 ⊢ (𝜑 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴 ↔ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴))
22	17, 21	mpbii 235	. . 3 ⊢ (𝜑 → (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴)
23		1st2nd 8020	. . . . . . 7 ⊢ ((Rel ^◡𝐴 ∧ 𝑦 ∈ ^◡𝐴) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
24	15, 23	mpan 700	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
25	24	fveq2d 6871	. . . . 5 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩))
26	24	eleq1d 2847	. . . . . . 7 ⊢ (𝑦 ∈ ^◡𝐴 → (𝑦 ∈ ^◡𝐴 ↔ ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴))
27	26	ibi 269	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴)
28		sneq 4592	. . . . . . . . . 10 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → {𝑧} = {⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
29	28	cnveqd 5847	. . . . . . . . 9 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ^◡{𝑧} = ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
30	29	unieqd 4878	. . . . . . . 8 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
31		opswap 6216	. . . . . . . 8 ⊢ ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩
32	30, 31	eqtrdi 2813	. . . . . . 7 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
33		eqid 2762	. . . . . . 7 ⊢ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}) = (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})
34		opex 5431	. . . . . . 7 ⊢ ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ ∈ V
35	32, 33, 34	fvmpt 6975	. . . . . 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 2797	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
38	37	adantl 485	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ ^◡𝐴) → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
39		fprodcnv.5	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)
40	11, 14, 22, 38, 39	fprodf1o 15976	. 2 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
41		csbeq1a 3866	. . . . 5 ⊢ (𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
42	24, 41	syl 17	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
43		opex 5431	. . . . . . 7 ⊢ ⟨𝑘, 𝑗⟩ ∈ V
44		fprodcnv.2	. . . . . . 7 ⊢ (𝑦 = ⟨𝑘, 𝑗⟩ → 𝐶 = 𝐷)
45	43, 44	csbie 3887	. . . . . 6 ⊢ ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = 𝐷
46		opeq12 4833	. . . . . . . 8 ⊢ ((𝑘 = (1^st ‘𝑦) ∧ 𝑗 = (2^nd ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
47	46	ancoms 462	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
48	47	csbeq1d 3856	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
49	45, 48	eqtr3id 2811	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
50	2, 3, 49	csbie2 3891	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶
51	42, 50	eqtr4di 2815	. . 3 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
52	51	prodeq2i 15948	. 2 ⊢ ∏𝑦 ∈ ^◡ 𝐴𝐶 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷
53	40, 52	eqtr4di 2815	1 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴𝐶)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 399 = wceq 1560 ∈ wcel 2142 ⦋csb 3852 {csn 4582 ⟨cop 4588 ∪ cuni 4865 ↦ cmpt 5181 ^◡ccnv 5646 Rel wrel 5652 –1-1-onto→wf1o 6520 ‘cfv 6521 1^st c1st 7968 2^nd c2nd 7969 Fincfn 8927 ℂcc 11071 ∏cprod 15933

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1815 ax-4 1829 ax-5 1930 ax-6 1987 ax-7 2028 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-rep 5227 ax-sep 5246 ax-nul 5256 ax-pow 5322 ax-pr 5390 ax-un 7718 ax-inf2 9596 ax-cnex 11129 ax-resscn 11130 ax-1cn 11131 ax-icn 11132 ax-addcl 11133 ax-addrcl 11134 ax-mulcl 11135 ax-mulrcl 11136 ax-mulcom 11137 ax-addass 11138 ax-mulass 11139 ax-distr 11140 ax-i2m1 11141 ax-1ne0 11142 ax-1rid 11143 ax-rnegex 11144 ax-rrecex 11145 ax-cnre 11146 ax-pre-lttri 11147 ax-pre-lttrn 11148 ax-pre-ltadd 11149 ax-pre-mulgt0 11150 ax-pre-sup 11151

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1099 df-3an 1100 df-tru 1563 df-fal 1573 df-ex 1800 df-nf 1804 df-sb 2091 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3456 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4481 df-pw 4557 df-sn 4583 df-pr 4585 df-op 4589 df-uni 4866 df-int 4906 df-iun 4951 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5542 df-eprel 5547 df-po 5555 df-so 5556 df-fr 5600 df-se 5601 df-we 5602 df-xp 5653 df-rel 5654 df-cnv 5655 df-co 5656 df-dm 5657 df-rn 5658 df-res 5659 df-ima 5660 df-pred 6288 df-ord 6349 df-on 6350 df-lim 6351 df-suc 6352 df-iota 6477 df-fun 6523 df-fn 6524 df-f 6525 df-f1 6526 df-fo 6527 df-f1o 6528 df-fv 6529 df-isom 6530 df-riota 7353 df-ov 7399 df-oprab 7400 df-mpo 7401 df-om 7847 df-1st 7970 df-2nd 7971 df-frecs 8262 df-wrecs 8293 df-recs 8342 df-rdg 8381 df-1o 8437 df-er 8678 df-en 8928 df-dom 8929 df-sdom 8930 df-fin 8931 df-sup 9388 df-oi 9458 df-card 9897 df-pnf 11218 df-mnf 11219 df-xr 11220 df-ltxr 11221 df-le 11222 df-sub 11416 df-neg 11417 df-div 11845 df-nn 12211 df-2 12280 df-3 12281 df-n0 12482 df-z 12569 df-uz 12840 df-rp 12994 df-fz 13513 df-fzo 13660 df-seq 14015 df-exp 14075 df-hash 14344 df-cj 15126 df-re 15127 df-im 15128 df-sqrt 15262 df-abs 15263 df-clim 15515 df-prod 15934

This theorem is referenced by: fprodcom2 16014

W3C validator