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 16073

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 3861	. . . 4 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
2		fvex 6892	. . . . 5 ⊢ (2^nd ‘𝑦) ∈ V
3		fvex 6892	. . . . 5 ⊢ (1^st ‘𝑦) ∈ V
4		opex 5439	. . . . . . 7 ⊢ ⟨𝑗, 𝑘⟩ ∈ V
5		fprodcnv.1	. . . . . . 7 ⊢ (𝑥 = ⟨𝑗, 𝑘⟩ → 𝐵 = 𝐷)
6	4, 5	csbie 3882	. . . . . 6 ⊢ ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = 𝐷
7		opeq12 4835	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑗, 𝑘⟩ = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
8	7	csbeq1d 3851	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑗, 𝑘⟩ / 𝑥⦌𝐵 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
9	6, 8	eqtr3id 2809	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵)
10	2, 3, 9	csbie2 3886	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ / 𝑥⦌𝐵
11	1, 10	eqtr4di 2813	. . 3 ⊢ (𝑥 = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ → 𝐵 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
12		fprodcnv.3	. . . 4 ⊢ (𝜑 → 𝐴 ∈ Fin)
13		cnvfi 9173	. . . 4 ⊢ (𝐴 ∈ Fin → ^◡𝐴 ∈ Fin)
14	12, 13	syl 18	. . 3 ⊢ (𝜑 → ^◡𝐴 ∈ Fin)
15		relcnv 6100	. . . . 5 ⊢ Rel ^◡𝐴
16		cnvf1o 8109	. . . . 5 ⊢ (Rel ^◡𝐴 → (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴)
17	15, 16	ax-mp 5	. . . 4 ⊢ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴
18		fprodcnv.4	. . . . . 6 ⊢ (𝜑 → Rel 𝐴)
19		dfrel2 6182	. . . . . 6 ⊢ (Rel 𝐴 ↔ ^◡^◡𝐴 = 𝐴)
20	18, 19	sylib 221	. . . . 5 ⊢ (𝜑 → ^◡^◡𝐴 = 𝐴)
21	20	f1oeq3d 6815	. . . 4 ⊢ (𝜑 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→^◡^◡𝐴 ↔ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴))
22	17, 21	mpbii 236	. . 3 ⊢ (𝜑 → (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}):^◡𝐴–1-1-onto→𝐴)
23		1st2nd 8037	. . . . . . 7 ⊢ ((Rel ^◡𝐴 ∧ 𝑦 ∈ ^◡𝐴) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
24	15, 23	mpan 703	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
25	24	fveq2d 6883	. . . . 5 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩))
26	24	eleq1d 2845	. . . . . . 7 ⊢ (𝑦 ∈ ^◡𝐴 → (𝑦 ∈ ^◡𝐴 ↔ ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴))
27	26	ibi 270	. . . . . 6 ⊢ (𝑦 ∈ ^◡𝐴 → ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴)
28		sneq 4594	. . . . . . . . . 10 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → {𝑧} = {⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
29	28	cnveqd 5855	. . . . . . . . 9 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ^◡{𝑧} = ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
30	29	unieqd 4880	. . . . . . . 8 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩})
31		opswap 6225	. . . . . . . 8 ⊢ ∪ ^◡{⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩
32	30, 31	eqtrdi 2811	. . . . . . 7 ⊢ (𝑧 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → ∪ ^◡{𝑧} = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
33		eqid 2760	. . . . . . 7 ⊢ (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧}) = (𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})
34		opex 5439	. . . . . . 7 ⊢ ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩ ∈ V
35	32, 33, 34	fvmpt 6987	. . . . . 6 ⊢ (⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
36	27, 35	syl 18	. . . . 5 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
37	25, 36	eqtrd 2795	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
38	37	adantl 487	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ ^◡𝐴) → ((𝑧 ∈ ^◡𝐴 ↦ ∪ ^◡{𝑧})‘𝑦) = ⟨(2^nd ‘𝑦), (1^st ‘𝑦)⟩)
39		fprodcnv.5	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)
40	11, 14, 22, 38, 39	fprodf1o 16036	. 2 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
41		csbeq1a 3861	. . . . 5 ⊢ (𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
42	24, 41	syl 18	. . . 4 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
43		opex 5439	. . . . . . 7 ⊢ ⟨𝑘, 𝑗⟩ ∈ V
44		fprodcnv.2	. . . . . . 7 ⊢ (𝑦 = ⟨𝑘, 𝑗⟩ → 𝐶 = 𝐷)
45	43, 44	csbie 3882	. . . . . 6 ⊢ ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = 𝐷
46		opeq12 4835	. . . . . . . 8 ⊢ ((𝑘 = (1^st ‘𝑦) ∧ 𝑗 = (2^nd ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
47	46	ancoms 464	. . . . . . 7 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⟨𝑘, 𝑗⟩ = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
48	47	csbeq1d 3851	. . . . . 6 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → ⦋⟨𝑘, 𝑗⟩ / 𝑦⦌𝐶 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
49	45, 48	eqtr3id 2809	. . . . 5 ⊢ ((𝑗 = (2^nd ‘𝑦) ∧ 𝑘 = (1^st ‘𝑦)) → 𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶)
50	2, 3, 49	csbie2 3886	. . . 4 ⊢ ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷 = ⦋⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ / 𝑦⦌𝐶
51	42, 50	eqtr4di 2813	. . 3 ⊢ (𝑦 ∈ ^◡𝐴 → 𝐶 = ⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷)
52	51	prodeq2i 16009	. 2 ⊢ ∏𝑦 ∈ ^◡ 𝐴𝐶 = ∏𝑦 ∈ ^◡ 𝐴⦋(2^nd ‘𝑦) / 𝑗⦌⦋(1^st ‘𝑦) / 𝑘⦌𝐷
53	40, 52	eqtr4di 2813	1 ⊢ (𝜑 → ∏𝑥 ∈ 𝐴 𝐵 = ∏𝑦 ∈ ^◡ 𝐴𝐶)

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ⦋csb 3847 {csn 4584 ⟨cop 4590 ∪ cuni 4867 ↦ cmpt 5186 ^◡ccnv 5654 Rel wrel 5660 –1-1-onto→wf1o 6532 ‘cfv 6533 1^st c1st 7985 2^nd c2nd 7986 Fincfn 8955 ℂcc 11125 ∏cprod 15995

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5251 ax-nul 5263 ax-pow 5330 ax-pr 5398 ax-un 7737 ax-inf2 9623 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-isom 6542 df-riota 7371 df-ov 7417 df-oprab 7418 df-mpo 7419 df-om 7864 df-1st 7987 df-2nd 7988 df-frecs 8281 df-wrecs 8312 df-recs 8361 df-rdg 8400 df-1o 8458 df-er 8699 df-en 8956 df-dom 8957 df-sdom 8958 df-fin 8959 df-sup 9415 df-oi 9485 df-card 9947 df-pnf 11272 df-mnf 11273 df-xr 11274 df-ltxr 11275 df-le 11276 df-sub 11470 df-neg 11471 df-div 11899 df-nn 12261 df-2 12330 df-3 12331 df-n0 12532 df-z 12619 df-uz 12891 df-rp 13046 df-fz 13565 df-fzo 13713 df-seq 14069 df-exp 14129 df-hash 14398 df-cj 15189 df-re 15190 df-im 15191 df-sqrt 15325 df-abs 15326 df-clim 15578 df-prod 15996

This theorem is used by: fprodcom2 16074

W3C validator