Theorem catcoppccl 18212

Description: The category of categories for a weak universe is closed under taking opposites. (Contributed by Mario Carneiro, 12-Jan-2017.) (Proof shortened by AV, 13-Oct-2024.)

Hypotheses

Ref	Expression
catcoppccl.c	⊢ 𝐶 = (CatCat‘𝑈)
catcoppccl.b	⊢ 𝐵 = (Base‘𝐶)
catcoppccl.o	⊢ 𝑂 = (oppCat‘𝑋)
catcoppccl.1	⊢ (𝜑 → 𝑈 ∈ WUni)
catcoppccl.2	⊢ (𝜑 → ω ∈ 𝑈)
catcoppccl.3	⊢ (𝜑 → 𝑋 ∈ 𝐵)

Assertion

Ref	Expression
catcoppccl	⊢ (𝜑 → 𝑂 ∈ 𝐵)

Proof of Theorem catcoppccl

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		catcoppccl.3	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
2		eqid 2762	. . . . . 6 ⊢ (Base‘𝑋) = (Base‘𝑋)
3		eqid 2762	. . . . . 6 ⊢ (Hom ‘𝑋) = (Hom ‘𝑋)
4		eqid 2762	. . . . . 6 ⊢ (comp‘𝑋) = (comp‘𝑋)
5		catcoppccl.o	. . . . . 6 ⊢ 𝑂 = (oppCat‘𝑋)
6	2, 3, 4, 5	oppcval 17807	. . . . 5 ⊢ (𝑋 ∈ 𝐵 → 𝑂 = ((𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) sSet ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)))⟩))
7	1, 6	syl 18	. . . 4 ⊢ (𝜑 → 𝑂 = ((𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) sSet ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)))⟩))
8		catcoppccl.1	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ WUni)
9		catcoppccl.c	. . . . . . 7 ⊢ 𝐶 = (CatCat‘𝑈)
10		catcoppccl.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐶)
11	9, 10, 8, 1	catcbascl 18207	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝑈)
12		homid 17503	. . . . . . . 8 ⊢ Hom = Slot (Hom ‘ndx)
13		catcoppccl.2	. . . . . . . . 9 ⊢ (𝜑 → ω ∈ 𝑈)
14	8, 13	wunndx 17293	. . . . . . . 8 ⊢ (𝜑 → ndx ∈ 𝑈)
15	12, 8, 14	wunstr 17286	. . . . . . 7 ⊢ (𝜑 → (Hom ‘ndx) ∈ 𝑈)
16	9, 10, 8, 1	catchomcl 18210	. . . . . . . 8 ⊢ (𝜑 → (Hom ‘𝑋) ∈ 𝑈)
17	8, 16	wuntpos 10747	. . . . . . 7 ⊢ (𝜑 → tpos (Hom ‘𝑋) ∈ 𝑈)
18	8, 15, 17	wunop 10735	. . . . . 6 ⊢ (𝜑 → ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩ ∈ 𝑈)
19	8, 11, 18	wunsets 17275	. . . . 5 ⊢ (𝜑 → (𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) ∈ 𝑈)
20		ccoid 17505	. . . . . . 7 ⊢ comp = Slot (comp‘ndx)
21	20, 8, 14	wunstr 17286	. . . . . 6 ⊢ (𝜑 → (comp‘ndx) ∈ 𝑈)
22	9, 10, 8, 1	catcbaselcl 18209	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝑋) ∈ 𝑈)
23	8, 22, 22	wunxp 10737	. . . . . . . 8 ⊢ (𝜑 → ((Base‘𝑋) × (Base‘𝑋)) ∈ 𝑈)
24	8, 23, 22	wunxp 10737	. . . . . . 7 ⊢ (𝜑 → (((Base‘𝑋) × (Base‘𝑋)) × (Base‘𝑋)) ∈ 𝑈)
25	9, 10, 8, 1	catcccocl 18211	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (comp‘𝑋) ∈ 𝑈)
26	8, 25	wunrn 10742	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (comp‘𝑋) ∈ 𝑈)
27	8, 26	wununi 10719	. . . . . . . . . . . 12 ⊢ (𝜑 → ∪ ran (comp‘𝑋) ∈ 𝑈)
28	8, 27	wundm 10741	. . . . . . . . . . 11 ⊢ (𝜑 → dom ∪ ran (comp‘𝑋) ∈ 𝑈)
29	8, 28	wuncnv 10743	. . . . . . . . . 10 ⊢ (𝜑 → ◡dom ∪ ran (comp‘𝑋) ∈ 𝑈)
30	8	wun0 10731	. . . . . . . . . . 11 ⊢ (𝜑 → ∅ ∈ 𝑈)
31	8, 30	wunsn 10729	. . . . . . . . . 10 ⊢ (𝜑 → {∅} ∈ 𝑈)
32	8, 29, 31	wunun 10723	. . . . . . . . 9 ⊢ (𝜑 → (◡dom ∪ ran (comp‘𝑋) ∪ {∅}) ∈ 𝑈)
33	8, 27	wunrn 10742	. . . . . . . . 9 ⊢ (𝜑 → ran ∪ ran (comp‘𝑋) ∈ 𝑈)
34	8, 32, 33	wunxp 10737	. . . . . . . 8 ⊢ (𝜑 → ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈)
35	8, 34	wunpw 10720	. . . . . . 7 ⊢ (𝜑 → 𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈)
36		tposssxp 8232	. . . . . . . . . . . 12 ⊢ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ((◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)))
37		ovssunirn 7453	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ∪ ran (comp‘𝑋)
38		dmss 5890	. . . . . . . . . . . . . . 15 ⊢ ((⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ∪ ran (comp‘𝑋) → dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ dom ∪ ran (comp‘𝑋))
39	37, 38	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ dom ∪ ran (comp‘𝑋)
40		cnvss 5856	. . . . . . . . . . . . . 14 ⊢ (dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ dom ∪ ran (comp‘𝑋) → ◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ◡dom ∪ ran (comp‘𝑋))
41		unss1 4134	. . . . . . . . . . . . . 14 ⊢ (◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ◡dom ∪ ran (comp‘𝑋) → (◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∪ {∅}) ⊆ (◡dom ∪ ran (comp‘𝑋) ∪ {∅}))
42	39, 40, 41	mp2b 10	. . . . . . . . . . . . 13 ⊢ (◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∪ {∅}) ⊆ (◡dom ∪ ran (comp‘𝑋) ∪ {∅})
43	37	rnssi 5928	. . . . . . . . . . . . 13 ⊢ ran (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ran ∪ ran (comp‘𝑋)
44		xpss12 5674	. . . . . . . . . . . . 13 ⊢ (((◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∪ {∅}) ⊆ (◡dom ∪ ran (comp‘𝑋) ∪ {∅}) ∧ ran (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ran ∪ ran (comp‘𝑋)) → ((◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥))) ⊆ ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
45	42, 43, 44	mp2an 705	. . . . . . . . . . . 12 ⊢ ((◡dom (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥))) ⊆ ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))
46	36, 45	sstri 3943	. . . . . . . . . . 11 ⊢ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))
47		elpw2g 5302	. . . . . . . . . . . 12 ⊢ (((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈 → (tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∈ 𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ↔ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))))
48	34, 47	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∈ 𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ↔ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ⊆ ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))))
49	46, 48	mpbiri 261	. . . . . . . . . 10 ⊢ (𝜑 → tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∈ 𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
50	49	ralrimivw 3160	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∈ 𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
51	50	ralrimivw 3160	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋))∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∈ 𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
52		eqid 2762	. . . . . . . . 9 ⊢ (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥))) = (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)))
53	52	fmpo 8069	. . . . . . . 8 ⊢ (∀𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋))∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)) ∈ 𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ↔ (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥))):(((Base‘𝑋) × (Base‘𝑋)) × (Base‘𝑋))⟶𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
54	51, 53	sylib 221	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥))):(((Base‘𝑋) × (Base‘𝑋)) × (Base‘𝑋))⟶𝒫 ((◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
55	8, 24, 35, 54	wunf 10740	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥))) ∈ 𝑈)
56	8, 21, 55	wunop 10735	. . . . 5 ⊢ (𝜑 → ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)))⟩ ∈ 𝑈)
57	8, 19, 56	wunsets 17275	. . . 4 ⊢ (𝜑 → ((𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) sSet ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2nd ‘𝑥)⟩(comp‘𝑋)(1st ‘𝑥)))⟩) ∈ 𝑈)
58	7, 57	eqeltrd 2862	. . 3 ⊢ (𝜑 → 𝑂 ∈ 𝑈)
59	9, 10, 8	catcbas 18196	. . . . . 6 ⊢ (𝜑 → 𝐵 = (𝑈 ∩ Cat))
60	1, 59	eleqtrd 2864	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ (𝑈 ∩ Cat))
61	60	elin2d 4154	. . . 4 ⊢ (𝜑 → 𝑋 ∈ Cat)
62	5	oppccat 17816	. . . 4 ⊢ (𝑋 ∈ Cat → 𝑂 ∈ Cat)
63	61, 62	syl 18	. . 3 ⊢ (𝜑 → 𝑂 ∈ Cat)
64	58, 63	elind 4149	. 2 ⊢ (𝜑 → 𝑂 ∈ (𝑈 ∩ Cat))
65	64, 59	eleqtrrd 2865	1 ⊢ (𝜑 → 𝑂 ∈ 𝐵)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   = wceq 1570   ∈ wcel 2145  ∀wral 3078   ∪ cun 3900   ∩ cin 3901   ⊆ wss 3902  ∅c0 4282  𝒫 cpw 4560  {csn 4587  ⟨cop 4593  ∪ cuni 4870   × cxp 5657  ^◡ccnv 5658  dom cdm 5659  ran crn 5660  ⟶wf 6533  ‘cfv 6537  (class class class)co 7417   ∈ cmpo 7419  ωcom 7866  1^st c1st 7988  2^nd c2nd 7989  tpos ctpos 8227  WUnicwun 10713   sSet csts 17261  ndxcnx 17291  Basecbs 17307  Hom chom 17359  compcco 17360  Catccat 17758  oppCatcoppc 17805  CatCatccatc 18193

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 2215  ax-ext 2734  ax-rep 5236  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7740  ax-inf2 9624  ax-cnex 11184  ax-resscn 11185  ax-1cn 11186  ax-icn 11187  ax-addcl 11188  ax-addrcl 11189  ax-mulcl 11190  ax-mulrcl 11191  ax-mulcom 11192  ax-addass 11193  ax-mulass 11194  ax-distr 11195  ax-i2m1 11196  ax-1ne0 11197  ax-1rid 11198  ax-rnegex 11199  ax-rrecex 11200  ax-cnre 11201  ax-pre-lttri 11202  ax-pre-lttrn 11203  ax-pre-ltadd 11204  ax-pre-mulgt0 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 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-tp 4592  df-op 4594  df-uni 4871  df-int 4911  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7374  df-ov 7420  df-oprab 7421  df-mpo 7422  df-om 7867  df-1st 7990  df-2nd 7991  df-tpos 8228  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-oadd 8463  df-omul 8464  df-er 8700  df-ec 8702  df-qs 8706  df-map 8832  df-pm 8833  df-en 8957  df-dom 8958  df-sdom 8959  df-fin 8960  df-wun 10715  df-ni 10885  df-pli 10886  df-mi 10887  df-lti 10888  df-plpq 10921  df-mpq 10922  df-ltpq 10923  df-enq 10924  df-nq 10925  df-erq 10926  df-plq 10927  df-mq 10928  df-1nq 10929  df-rq 10930  df-ltnq 10931  df-np 10994  df-plp 10996  df-ltp 10998  df-enr 11068  df-nr 11069  df-c 11134  df-pnf 11273  df-mnf 11274  df-xr 11275  df-ltxr 11276  df-le 11277  df-sub 11471  df-neg 11472  df-nn 12262  df-2 12331  df-3 12332  df-4 12333  df-5 12334  df-6 12335  df-7 12336  df-8 12337  df-9 12338  df-n0 12533  df-z 12620  df-dec 12741  df-uz 12892  df-fz 13566  df-struct 17245  df-sets 17262  df-slot 17280  df-ndx 17292  df-base 17308  df-hom 17372  df-cco 17373  df-cat 17762  df-cid 17763  df-oppc 17806  df-catc 18194

This theorem is used by: (None)