catcoppcclOLD - Metamath Proof Explorer

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

Theorem catcoppcclOLD 18070

Description: Obsolete proof of catcoppccl 18069 as of 13-Oct-2024. (Contributed by Mario Carneiro, 12-Jan-2017.) (Proof modification is discouraged.) (New usage is discouraged.)

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

**Assertion**
Ref	Expression
catcoppcclOLD	⊢ (𝜑 → 𝑂 ∈ 𝐵)

Proof of Theorem catcoppcclOLD Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		catcoppccl.3	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
2		eqid 2724	. . . . . 6 ⊢ (Base‘𝑋) = (Base‘𝑋)
3		eqid 2724	. . . . . 6 ⊢ (Hom ‘𝑋) = (Hom ‘𝑋)
4		eqid 2724	. . . . . 6 ⊢ (comp‘𝑋) = (comp‘𝑋)
5		catcoppccl.o	. . . . . 6 ⊢ 𝑂 = (oppCat‘𝑋)
6	2, 3, 4, 5	oppcval 17656	. . . . 5 ⊢ (𝑋 ∈ 𝐵 → 𝑂 = ((𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) sSet ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))⟩))
7	1, 6	syl 17	. . . 4 ⊢ (𝜑 → 𝑂 = ((𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) sSet ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))⟩))
8		catcoppccl.1	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ WUni)
9		catcoppccl.c	. . . . . . . . 9 ⊢ 𝐶 = (CatCat‘𝑈)
10		catcoppccl.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐶)
11	9, 10, 8	catcbas 18053	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (𝑈 ∩ Cat))
12	1, 11	eleqtrd 2827	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ (𝑈 ∩ Cat))
13	12	elin1d 4190	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝑈)
14		df-hom 17220	. . . . . . . 8 ⊢ Hom = Slot ;14
15		catcoppccl.2	. . . . . . . . 9 ⊢ (𝜑 → ω ∈ 𝑈)
16	8, 15	wunndx 17127	. . . . . . . 8 ⊢ (𝜑 → ndx ∈ 𝑈)
17	14, 8, 16	wunstr 17120	. . . . . . 7 ⊢ (𝜑 → (Hom ‘ndx) ∈ 𝑈)
18	14, 8, 13	wunstr 17120	. . . . . . . 8 ⊢ (𝜑 → (Hom ‘𝑋) ∈ 𝑈)
19	8, 18	wuntpos 10725	. . . . . . 7 ⊢ (𝜑 → tpos (Hom ‘𝑋) ∈ 𝑈)
20	8, 17, 19	wunop 10713	. . . . . 6 ⊢ (𝜑 → ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩ ∈ 𝑈)
21	8, 13, 20	wunsets 17109	. . . . 5 ⊢ (𝜑 → (𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) ∈ 𝑈)
22		df-cco 17221	. . . . . . 7 ⊢ comp = Slot ;15
23	22, 8, 16	wunstr 17120	. . . . . 6 ⊢ (𝜑 → (comp‘ndx) ∈ 𝑈)
24		df-base 17144	. . . . . . . . . 10 ⊢ Base = Slot 1
25	24, 8, 13	wunstr 17120	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝑋) ∈ 𝑈)
26	8, 25, 25	wunxp 10715	. . . . . . . 8 ⊢ (𝜑 → ((Base‘𝑋) × (Base‘𝑋)) ∈ 𝑈)
27	8, 26, 25	wunxp 10715	. . . . . . 7 ⊢ (𝜑 → (((Base‘𝑋) × (Base‘𝑋)) × (Base‘𝑋)) ∈ 𝑈)
28	22, 8, 13	wunstr 17120	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (comp‘𝑋) ∈ 𝑈)
29	8, 28	wunrn 10720	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (comp‘𝑋) ∈ 𝑈)
30	8, 29	wununi 10697	. . . . . . . . . . . 12 ⊢ (𝜑 → ∪ ran (comp‘𝑋) ∈ 𝑈)
31	8, 30	wundm 10719	. . . . . . . . . . 11 ⊢ (𝜑 → dom ∪ ran (comp‘𝑋) ∈ 𝑈)
32	8, 31	wuncnv 10721	. . . . . . . . . 10 ⊢ (𝜑 → ^◡dom ∪ ran (comp‘𝑋) ∈ 𝑈)
33	8	wun0 10709	. . . . . . . . . . 11 ⊢ (𝜑 → ∅ ∈ 𝑈)
34	8, 33	wunsn 10707	. . . . . . . . . 10 ⊢ (𝜑 → {∅} ∈ 𝑈)
35	8, 32, 34	wunun 10701	. . . . . . . . 9 ⊢ (𝜑 → (^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) ∈ 𝑈)
36	8, 30	wunrn 10720	. . . . . . . . 9 ⊢ (𝜑 → ran ∪ ran (comp‘𝑋) ∈ 𝑈)
37	8, 35, 36	wunxp 10715	. . . . . . . 8 ⊢ (𝜑 → ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈)
38	8, 37	wunpw 10698	. . . . . . 7 ⊢ (𝜑 → 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈)
39		tposssxp 8210	. . . . . . . . . . . 12 ⊢ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ((^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))
40		ovssunirn 7437	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ∪ ran (comp‘𝑋)
41		dmss 5892	. . . . . . . . . . . . . . 15 ⊢ ((⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ∪ ran (comp‘𝑋) → dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ dom ∪ ran (comp‘𝑋))
42	40, 41	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ dom ∪ ran (comp‘𝑋)
43		cnvss 5862	. . . . . . . . . . . . . 14 ⊢ (dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ dom ∪ ran (comp‘𝑋) → ^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ^◡dom ∪ ran (comp‘𝑋))
44		unss1 4171	. . . . . . . . . . . . . 14 ⊢ (^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ^◡dom ∪ ran (comp‘𝑋) → (^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) ⊆ (^◡dom ∪ ran (comp‘𝑋) ∪ {∅}))
45	42, 43, 44	mp2b 10	. . . . . . . . . . . . 13 ⊢ (^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) ⊆ (^◡dom ∪ ran (comp‘𝑋) ∪ {∅})
46	40	rnssi 5929	. . . . . . . . . . . . 13 ⊢ ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ran ∪ ran (comp‘𝑋)
47		xpss12 5681	. . . . . . . . . . . . 13 ⊢ (((^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) ⊆ (^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) ∧ ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ran ∪ ran (comp‘𝑋)) → ((^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))) ⊆ ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
48	45, 46, 47	mp2an 689	. . . . . . . . . . . 12 ⊢ ((^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))) ⊆ ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))
49	39, 48	sstri 3983	. . . . . . . . . . 11 ⊢ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))
50		elpw2g 5334	. . . . . . . . . . . 12 ⊢ (((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈 → (tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ↔ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))))
51	37, 50	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ↔ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))))
52	49, 51	mpbiri 258	. . . . . . . . . 10 ⊢ (𝜑 → tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
53	52	ralrimivw 3142	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
54	53	ralrimivw 3142	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋))∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
55		eqid 2724	. . . . . . . . 9 ⊢ (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))) = (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))
56	55	fmpo 8047	. . . . . . . 8 ⊢ (∀𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋))∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ↔ (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))):(((Base‘𝑋) × (Base‘𝑋)) × (Base‘𝑋))⟶𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
57	54, 56	sylib 217	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))):(((Base‘𝑋) × (Base‘𝑋)) × (Base‘𝑋))⟶𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
58	8, 27, 38, 57	wunf 10718	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))) ∈ 𝑈)
59	8, 23, 58	wunop 10713	. . . . 5 ⊢ (𝜑 → ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))⟩ ∈ 𝑈)
60	8, 21, 59	wunsets 17109	. . . 4 ⊢ (𝜑 → ((𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) sSet ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))⟩) ∈ 𝑈)
61	7, 60	eqeltrd 2825	. . 3 ⊢ (𝜑 → 𝑂 ∈ 𝑈)
62	12	elin2d 4191	. . . 4 ⊢ (𝜑 → 𝑋 ∈ Cat)
63	5	oppccat 17667	. . . 4 ⊢ (𝑋 ∈ Cat → 𝑂 ∈ Cat)
64	62, 63	syl 17	. . 3 ⊢ (𝜑 → 𝑂 ∈ Cat)
65	61, 64	elind 4186	. 2 ⊢ (𝜑 → 𝑂 ∈ (𝑈 ∩ Cat))
66	65, 11	eleqtrrd 2828	1 ⊢ (𝜑 → 𝑂 ∈ 𝐵)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 = wceq 1533 ∈ wcel 2098 ∀wral 3053 ∪ cun 3938 ∩ cin 3939 ⊆ wss 3940 ∅c0 4314 𝒫 cpw 4594 {csn 4620 ⟨cop 4626 ∪ cuni 4899 × cxp 5664 ^◡ccnv 5665 dom cdm 5666 ran crn 5667 ⟶wf 6529 ‘cfv 6533 (class class class)co 7401 ∈ cmpo 7403 ωcom 7848 1^st c1st 7966 2^nd c2nd 7967 tpos ctpos 8205 WUnicwun 10691 1c1 11107 4c4 12266 5c5 12267 cdc 12674 sSet csts 17095 ndxcnx 17125 Basecbs 17143 Hom chom 17207 compcco 17208 Catccat 17607 oppCatcoppc 17654 CatCatccatc 18050

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2163 ax-ext 2695 ax-rep 5275 ax-sep 5289 ax-nul 5296 ax-pow 5353 ax-pr 5417 ax-un 7718 ax-inf2 9632 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2526 df-eu 2555 df-clab 2702 df-cleq 2716 df-clel 2802 df-nfc 2877 df-ne 2933 df-nel 3039 df-ral 3054 df-rex 3063 df-rmo 3368 df-reu 3369 df-rab 3425 df-v 3468 df-sbc 3770 df-csb 3886 df-dif 3943 df-un 3945 df-in 3947 df-ss 3957 df-pss 3959 df-nul 4315 df-if 4521 df-pw 4596 df-sn 4621 df-pr 4623 df-tp 4625 df-op 4627 df-uni 4900 df-int 4941 df-iun 4989 df-br 5139 df-opab 5201 df-mpt 5222 df-tr 5256 df-id 5564 df-eprel 5570 df-po 5578 df-so 5579 df-fr 5621 df-we 5623 df-xp 5672 df-rel 5673 df-cnv 5674 df-co 5675 df-dm 5676 df-rn 5677 df-res 5678 df-ima 5679 df-pred 6290 df-ord 6357 df-on 6358 df-lim 6359 df-suc 6360 df-iota 6485 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-riota 7357 df-ov 7404 df-oprab 7405 df-mpo 7406 df-om 7849 df-1st 7968 df-2nd 7969 df-tpos 8206 df-frecs 8261 df-wrecs 8292 df-recs 8366 df-rdg 8405 df-1o 8461 df-oadd 8465 df-omul 8466 df-er 8699 df-ec 8701 df-qs 8705 df-map 8818 df-pm 8819 df-en 8936 df-dom 8937 df-sdom 8938 df-fin 8939 df-wun 10693 df-ni 10863 df-pli 10864 df-mi 10865 df-lti 10866 df-plpq 10899 df-mpq 10900 df-ltpq 10901 df-enq 10902 df-nq 10903 df-erq 10904 df-plq 10905 df-mq 10906 df-1nq 10907 df-rq 10908 df-ltnq 10909 df-np 10972 df-plp 10974 df-ltp 10976 df-enr 11046 df-nr 11047 df-c 11112 df-pnf 11247 df-mnf 11248 df-xr 11249 df-ltxr 11250 df-le 11251 df-sub 11443 df-neg 11444 df-nn 12210 df-2 12272 df-3 12273 df-4 12274 df-5 12275 df-6 12276 df-7 12277 df-8 12278 df-9 12279 df-n0 12470 df-z 12556 df-dec 12675 df-uz 12820 df-fz 13482 df-struct 17079 df-sets 17096 df-slot 17114 df-ndx 17126 df-base 17144 df-hom 17220 df-cco 17221 df-cat 17611 df-cid 17612 df-oppc 17655 df-catc 18051

This theorem is referenced by: (None)

W3C validator