equivestrcsetc - Metamath Proof Explorer

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

Theorem equivestrcsetc 18058

Description: The "natural forgetful functor" from the category of extensible structures into the category of sets which sends each extensible structure to its base set is an equivalence. According to definition 3.33 (1) of [Adamek] p. 36, "A functor F : A -> B is called an equivalence provided that it is full, faithful, and isomorphism-dense in the sense that for any B-object B' there exists some A-object A' such that F(A') is isomorphic to B'.". Therefore, the category of sets and the category of extensible structures are equivalent, according to definition 3.33 (2) of [Adamek] p. 36, "Categories A and B are called equivalent provided that there is an equivalence from A to B.". (Contributed by AV, 2-Apr-2020.)

**Hypotheses**
Ref	Expression
funcestrcsetc.e	⊢ 𝐸 = (ExtStrCat‘𝑈)
funcestrcsetc.s	⊢ 𝑆 = (SetCat‘𝑈)
funcestrcsetc.b	⊢ 𝐵 = (Base‘𝐸)
funcestrcsetc.c	⊢ 𝐶 = (Base‘𝑆)
funcestrcsetc.u	⊢ (𝜑 → 𝑈 ∈ WUni)
funcestrcsetc.f	⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)))
funcestrcsetc.g	⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ ((Base‘𝑦) ↑_m (Base‘𝑥)))))
equivestrcsetc.i	⊢ (𝜑 → (Base‘ndx) ∈ 𝑈)

**Assertion**
Ref	Expression
equivestrcsetc	⊢ (𝜑 → (𝐹(𝐸 Faith 𝑆)𝐺 ∧ 𝐹(𝐸 Full 𝑆)𝐺 ∧ ∀𝑏 ∈ 𝐶 ∃𝑎 ∈ 𝐵 ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘𝑎)))

Distinct variable groups: 𝑥,𝐵 𝜑,𝑥 𝑥,𝐶 𝑦,𝐵,𝑥 𝜑,𝑦 𝑎,𝑏,𝑥,𝑦,𝐵 𝐹,𝑎,𝑏 𝐺,𝑎,𝑏 𝐸,𝑎,𝑏 𝑆,𝑎,𝑏 𝜑,𝑎,𝑏 𝐶,𝑎 𝑖,𝐹,𝑎,𝑏 Allowed substitution hints: 𝜑(𝑖) 𝐵(𝑖) 𝐶(𝑦,𝑖,𝑏) 𝑆(𝑥,𝑦,𝑖) 𝑈(𝑥,𝑦,𝑖,𝑎,𝑏) 𝐸(𝑥,𝑦,𝑖) 𝐹(𝑥,𝑦) 𝐺(𝑥,𝑦,𝑖)

**Proof of Theorem equivestrcsetc**
Step	Hyp	Ref	Expression
1		funcestrcsetc.e	. . 3 ⊢ 𝐸 = (ExtStrCat‘𝑈)
2		funcestrcsetc.s	. . 3 ⊢ 𝑆 = (SetCat‘𝑈)
3		funcestrcsetc.b	. . 3 ⊢ 𝐵 = (Base‘𝐸)
4		funcestrcsetc.c	. . 3 ⊢ 𝐶 = (Base‘𝑆)
5		funcestrcsetc.u	. . 3 ⊢ (𝜑 → 𝑈 ∈ WUni)
6		funcestrcsetc.f	. . 3 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐵 ↦ (Base‘𝑥)))
7		funcestrcsetc.g	. . 3 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ( I ↾ ((Base‘𝑦) ↑_m (Base‘𝑥)))))
8	1, 2, 3, 4, 5, 6, 7	fthestrcsetc 18056	. 2 ⊢ (𝜑 → 𝐹(𝐸 Faith 𝑆)𝐺)
9	1, 2, 3, 4, 5, 6, 7	fullestrcsetc 18057	. 2 ⊢ (𝜑 → 𝐹(𝐸 Full 𝑆)𝐺)
10	2, 5	setcbas 17985	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 = (Base‘𝑆))
11	4, 10	eqtr4id 2785	. . . . . . . 8 ⊢ (𝜑 → 𝐶 = 𝑈)
12	11	eleq2d 2817	. . . . . . 7 ⊢ (𝜑 → (𝑏 ∈ 𝐶 ↔ 𝑏 ∈ 𝑈))
13		eqid 2731	. . . . . . . . 9 ⊢ {⟨(Base‘ndx), 𝑏⟩} = {⟨(Base‘ndx), 𝑏⟩}
14		equivestrcsetc.i	. . . . . . . . 9 ⊢ (𝜑 → (Base‘ndx) ∈ 𝑈)
15	13, 5, 14	1strwunbndx 17136	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝑈) → {⟨(Base‘ndx), 𝑏⟩} ∈ 𝑈)
16	15	ex 412	. . . . . . 7 ⊢ (𝜑 → (𝑏 ∈ 𝑈 → {⟨(Base‘ndx), 𝑏⟩} ∈ 𝑈))
17	12, 16	sylbid 240	. . . . . 6 ⊢ (𝜑 → (𝑏 ∈ 𝐶 → {⟨(Base‘ndx), 𝑏⟩} ∈ 𝑈))
18	17	imp 406	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → {⟨(Base‘ndx), 𝑏⟩} ∈ 𝑈)
19	1, 5	estrcbas 18031	. . . . . . 7 ⊢ (𝜑 → 𝑈 = (Base‘𝐸))
20	19	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → 𝑈 = (Base‘𝐸))
21	3, 20	eqtr4id 2785	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → 𝐵 = 𝑈)
22	18, 21	eleqtrrd 2834	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → {⟨(Base‘ndx), 𝑏⟩} ∈ 𝐵)
23		fveq2 6822	. . . . . . 7 ⊢ (𝑎 = {⟨(Base‘ndx), 𝑏⟩} → (𝐹‘𝑎) = (𝐹‘{⟨(Base‘ndx), 𝑏⟩}))
24	23	f1oeq3d 6760	. . . . . 6 ⊢ (𝑎 = {⟨(Base‘ndx), 𝑏⟩} → (𝑖:𝑏–1-1-onto→(𝐹‘𝑎) ↔ 𝑖:𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩})))
25	24	exbidv 1922	. . . . 5 ⊢ (𝑎 = {⟨(Base‘ndx), 𝑏⟩} → (∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘𝑎) ↔ ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩})))
26	25	adantl 481	. . . 4 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑎 = {⟨(Base‘ndx), 𝑏⟩}) → (∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘𝑎) ↔ ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩})))
27		f1oi 6801	. . . . . 6 ⊢ ( I ↾ 𝑏):𝑏–1-1-onto→𝑏
28	1, 2, 3, 4, 5, 6	funcestrcsetclem1 18046	. . . . . . . . 9 ⊢ ((𝜑 ∧ {⟨(Base‘ndx), 𝑏⟩} ∈ 𝐵) → (𝐹‘{⟨(Base‘ndx), 𝑏⟩}) = (Base‘{⟨(Base‘ndx), 𝑏⟩}))
29	22, 28	syldan 591	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → (𝐹‘{⟨(Base‘ndx), 𝑏⟩}) = (Base‘{⟨(Base‘ndx), 𝑏⟩}))
30	13	1strbas 17135	. . . . . . . . 9 ⊢ (𝑏 ∈ 𝐶 → 𝑏 = (Base‘{⟨(Base‘ndx), 𝑏⟩}))
31	30	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → 𝑏 = (Base‘{⟨(Base‘ndx), 𝑏⟩}))
32	29, 31	eqtr4d 2769	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → (𝐹‘{⟨(Base‘ndx), 𝑏⟩}) = 𝑏)
33	32	f1oeq3d 6760	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → (( I ↾ 𝑏):𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩}) ↔ ( I ↾ 𝑏):𝑏–1-1-onto→𝑏))
34	27, 33	mpbiri 258	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → ( I ↾ 𝑏):𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩}))
35		resiexg 7842	. . . . . . 7 ⊢ (𝑏 ∈ V → ( I ↾ 𝑏) ∈ V)
36	35	elv 3441	. . . . . 6 ⊢ ( I ↾ 𝑏) ∈ V
37		f1oeq1 6751	. . . . . 6 ⊢ (𝑖 = ( I ↾ 𝑏) → (𝑖:𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩}) ↔ ( I ↾ 𝑏):𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩})))
38	36, 37	spcev 3556	. . . . 5 ⊢ (( I ↾ 𝑏):𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩}) → ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩}))
39	34, 38	syl 17	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘{⟨(Base‘ndx), 𝑏⟩}))
40	22, 26, 39	rspcedvd 3574	. . 3 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → ∃𝑎 ∈ 𝐵 ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘𝑎))
41	40	ralrimiva 3124	. 2 ⊢ (𝜑 → ∀𝑏 ∈ 𝐶 ∃𝑎 ∈ 𝐵 ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘𝑎))
42	8, 9, 41	3jca 1128	1 ⊢ (𝜑 → (𝐹(𝐸 Faith 𝑆)𝐺 ∧ 𝐹(𝐸 Full 𝑆)𝐺 ∧ ∀𝑏 ∈ 𝐶 ∃𝑎 ∈ 𝐵 ∃𝑖 𝑖:𝑏–1-1-onto→(𝐹‘𝑎)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∃wex 1780 ∈ wcel 2111 ∀wral 3047 ∃wrex 3056 Vcvv 3436 {csn 4573 ⟨cop 4579 class class class wbr 5089 ↦ cmpt 5170 I cid 5508 ↾ cres 5616 –1-1-onto→wf1o 6480 ‘cfv 6481 (class class class)co 7346 ∈ cmpo 7348 ↑_m cmap 8750 WUnicwun 10591 ndxcnx 17104 Basecbs 17120 Full cful 17811 Faith cfth 17812 SetCatcsetc 17982 ExtStrCatcestrc 18028

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5215 ax-sep 5232 ax-nul 5242 ax-pow 5301 ax-pr 5368 ax-un 7668 ax-cnex 11062 ax-resscn 11063 ax-1cn 11064 ax-icn 11065 ax-addcl 11066 ax-addrcl 11067 ax-mulcl 11068 ax-mulrcl 11069 ax-mulcom 11070 ax-addass 11071 ax-mulass 11072 ax-distr 11073 ax-i2m1 11074 ax-1ne0 11075 ax-1rid 11076 ax-rnegex 11077 ax-rrecex 11078 ax-cnre 11079 ax-pre-lttri 11080 ax-pre-lttrn 11081 ax-pre-ltadd 11082 ax-pre-mulgt0 11083

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3737 df-csb 3846 df-dif 3900 df-un 3902 df-in 3904 df-ss 3914 df-pss 3917 df-nul 4281 df-if 4473 df-pw 4549 df-sn 4574 df-pr 4576 df-tp 4578 df-op 4580 df-uni 4857 df-iun 4941 df-br 5090 df-opab 5152 df-mpt 5171 df-tr 5197 df-id 5509 df-eprel 5514 df-po 5522 df-so 5523 df-fr 5567 df-we 5569 df-xp 5620 df-rel 5621 df-cnv 5622 df-co 5623 df-dm 5624 df-rn 5625 df-res 5626 df-ima 5627 df-pred 6248 df-ord 6309 df-on 6310 df-lim 6311 df-suc 6312 df-iota 6437 df-fun 6483 df-fn 6484 df-f 6485 df-f1 6486 df-fo 6487 df-f1o 6488 df-fv 6489 df-riota 7303 df-ov 7349 df-oprab 7350 df-mpo 7351 df-om 7797 df-1st 7921 df-2nd 7922 df-frecs 8211 df-wrecs 8242 df-recs 8291 df-rdg 8329 df-1o 8385 df-er 8622 df-map 8752 df-ixp 8822 df-en 8870 df-dom 8871 df-sdom 8872 df-fin 8873 df-wun 10593 df-pnf 11148 df-mnf 11149 df-xr 11150 df-ltxr 11151 df-le 11152 df-sub 11346 df-neg 11347 df-nn 12126 df-2 12188 df-3 12189 df-4 12190 df-5 12191 df-6 12192 df-7 12193 df-8 12194 df-9 12195 df-n0 12382 df-z 12469 df-dec 12589 df-uz 12733 df-fz 13408 df-struct 17058 df-slot 17093 df-ndx 17105 df-base 17121 df-hom 17185 df-cco 17186 df-cat 17574 df-cid 17575 df-func 17765 df-full 17813 df-fth 17814 df-setc 17983 df-estrc 18029

This theorem is referenced by: (None)

W3C validator