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 18098

Description: Obsolete proof of catcoppccl 18097 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 2727	. . . . . 6 ⊢ (Base‘𝑋) = (Base‘𝑋)
3		eqid 2727	. . . . . 6 ⊢ (Hom ‘𝑋) = (Hom ‘𝑋)
4		eqid 2727	. . . . . 6 ⊢ (comp‘𝑋) = (comp‘𝑋)
5		catcoppccl.o	. . . . . 6 ⊢ 𝑂 = (oppCat‘𝑋)
6	2, 3, 4, 5	oppcval 17684	. . . . 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 18081	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (𝑈 ∩ Cat))
12	1, 11	eleqtrd 2830	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ (𝑈 ∩ Cat))
13	12	elin1d 4194	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝑈)
14		df-hom 17248	. . . . . . . 8 ⊢ Hom = Slot ;14
15		catcoppccl.2	. . . . . . . . 9 ⊢ (𝜑 → ω ∈ 𝑈)
16	8, 15	wunndx 17155	. . . . . . . 8 ⊢ (𝜑 → ndx ∈ 𝑈)
17	14, 8, 16	wunstr 17148	. . . . . . 7 ⊢ (𝜑 → (Hom ‘ndx) ∈ 𝑈)
18	14, 8, 13	wunstr 17148	. . . . . . . 8 ⊢ (𝜑 → (Hom ‘𝑋) ∈ 𝑈)
19	8, 18	wuntpos 10749	. . . . . . 7 ⊢ (𝜑 → tpos (Hom ‘𝑋) ∈ 𝑈)
20	8, 17, 19	wunop 10737	. . . . . 6 ⊢ (𝜑 → ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩ ∈ 𝑈)
21	8, 13, 20	wunsets 17137	. . . . 5 ⊢ (𝜑 → (𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) ∈ 𝑈)
22		df-cco 17249	. . . . . . 7 ⊢ comp = Slot ;15
23	22, 8, 16	wunstr 17148	. . . . . 6 ⊢ (𝜑 → (comp‘ndx) ∈ 𝑈)
24		df-base 17172	. . . . . . . . . 10 ⊢ Base = Slot 1
25	24, 8, 13	wunstr 17148	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝑋) ∈ 𝑈)
26	8, 25, 25	wunxp 10739	. . . . . . . 8 ⊢ (𝜑 → ((Base‘𝑋) × (Base‘𝑋)) ∈ 𝑈)
27	8, 26, 25	wunxp 10739	. . . . . . 7 ⊢ (𝜑 → (((Base‘𝑋) × (Base‘𝑋)) × (Base‘𝑋)) ∈ 𝑈)
28	22, 8, 13	wunstr 17148	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (comp‘𝑋) ∈ 𝑈)
29	8, 28	wunrn 10744	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (comp‘𝑋) ∈ 𝑈)
30	8, 29	wununi 10721	. . . . . . . . . . . 12 ⊢ (𝜑 → ∪ ran (comp‘𝑋) ∈ 𝑈)
31	8, 30	wundm 10743	. . . . . . . . . . 11 ⊢ (𝜑 → dom ∪ ran (comp‘𝑋) ∈ 𝑈)
32	8, 31	wuncnv 10745	. . . . . . . . . 10 ⊢ (𝜑 → ^◡dom ∪ ran (comp‘𝑋) ∈ 𝑈)
33	8	wun0 10733	. . . . . . . . . . 11 ⊢ (𝜑 → ∅ ∈ 𝑈)
34	8, 33	wunsn 10731	. . . . . . . . . 10 ⊢ (𝜑 → {∅} ∈ 𝑈)
35	8, 32, 34	wunun 10725	. . . . . . . . 9 ⊢ (𝜑 → (^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) ∈ 𝑈)
36	8, 30	wunrn 10744	. . . . . . . . 9 ⊢ (𝜑 → ran ∪ ran (comp‘𝑋) ∈ 𝑈)
37	8, 35, 36	wunxp 10739	. . . . . . . 8 ⊢ (𝜑 → ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈)
38	8, 37	wunpw 10722	. . . . . . 7 ⊢ (𝜑 → 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)) ∈ 𝑈)
39		tposssxp 8229	. . . . . . . . . . . 12 ⊢ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ((^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))
40		ovssunirn 7450	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ∪ ran (comp‘𝑋)
41		dmss 5899	. . . . . . . . . . . . . . 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 5869	. . . . . . . . . . . . . 14 ⊢ (dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ dom ∪ ran (comp‘𝑋) → ^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ^◡dom ∪ ran (comp‘𝑋))
44		unss1 4175	. . . . . . . . . . . . . 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 5936	. . . . . . . . . . . . 13 ⊢ ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ran ∪ ran (comp‘𝑋)
47		xpss12 5687	. . . . . . . . . . . . 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 691	. . . . . . . . . . . 12 ⊢ ((^◡dom (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∪ {∅}) × ran (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))) ⊆ ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))
49	39, 48	sstri 3987	. . . . . . . . . . 11 ⊢ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ⊆ ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋))
50		elpw2g 5340	. . . . . . . . . . . 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 3145	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
54	53	ralrimivw 3145	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋))∀𝑦 ∈ (Base‘𝑋)tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)) ∈ 𝒫 ((^◡dom ∪ ran (comp‘𝑋) ∪ {∅}) × ran ∪ ran (comp‘𝑋)))
55		eqid 2727	. . . . . . . . 9 ⊢ (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))) = (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))
56	55	fmpo 8066	. . . . . . . 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 10742	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥))) ∈ 𝑈)
59	8, 23, 58	wunop 10737	. . . . 5 ⊢ (𝜑 → ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))⟩ ∈ 𝑈)
60	8, 21, 59	wunsets 17137	. . . 4 ⊢ (𝜑 → ((𝑋 sSet ⟨(Hom ‘ndx), tpos (Hom ‘𝑋)⟩) sSet ⟨(comp‘ndx), (𝑥 ∈ ((Base‘𝑋) × (Base‘𝑋)), 𝑦 ∈ (Base‘𝑋) ↦ tpos (⟨𝑦, (2^nd ‘𝑥)⟩(comp‘𝑋)(1^st ‘𝑥)))⟩) ∈ 𝑈)
61	7, 60	eqeltrd 2828	. . 3 ⊢ (𝜑 → 𝑂 ∈ 𝑈)
62	12	elin2d 4195	. . . 4 ⊢ (𝜑 → 𝑋 ∈ Cat)
63	5	oppccat 17695	. . . 4 ⊢ (𝑋 ∈ Cat → 𝑂 ∈ Cat)
64	62, 63	syl 17	. . 3 ⊢ (𝜑 → 𝑂 ∈ Cat)
65	61, 64	elind 4190	. 2 ⊢ (𝜑 → 𝑂 ∈ (𝑈 ∩ Cat))
66	65, 11	eleqtrrd 2831	1 ⊢ (𝜑 → 𝑂 ∈ 𝐵)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 = wceq 1534 ∈ wcel 2099 ∀wral 3056 ∪ cun 3942 ∩ cin 3943 ⊆ wss 3944 ∅c0 4318 𝒫 cpw 4598 {csn 4624 ⟨cop 4630 ∪ cuni 4903 × cxp 5670 ^◡ccnv 5671 dom cdm 5672 ran crn 5673 ⟶wf 6538 ‘cfv 6542 (class class class)co 7414 ∈ cmpo 7416 ωcom 7864 1^st c1st 7985 2^nd c2nd 7986 tpos ctpos 8224 WUnicwun 10715 1c1 11131 4c4 12291 5c5 12292 cdc 12699 sSet csts 17123 ndxcnx 17153 Basecbs 17171 Hom chom 17235 compcco 17236 Catccat 17635 oppCatcoppc 17682 CatCatccatc 18078

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2164 ax-ext 2698 ax-rep 5279 ax-sep 5293 ax-nul 5300 ax-pow 5359 ax-pr 5423 ax-un 7734 ax-inf2 9656 ax-cnex 11186 ax-resscn 11187 ax-1cn 11188 ax-icn 11189 ax-addcl 11190 ax-addrcl 11191 ax-mulcl 11192 ax-mulrcl 11193 ax-mulcom 11194 ax-addass 11195 ax-mulass 11196 ax-distr 11197 ax-i2m1 11198 ax-1ne0 11199 ax-1rid 11200 ax-rnegex 11201 ax-rrecex 11202 ax-cnre 11203 ax-pre-lttri 11204 ax-pre-lttrn 11205 ax-pre-ltadd 11206 ax-pre-mulgt0 11207

This theorem depends on definitions: df-bi 206 df-an 396 df-or 847 df-3or 1086 df-3an 1087 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2529 df-eu 2558 df-clab 2705 df-cleq 2719 df-clel 2805 df-nfc 2880 df-ne 2936 df-nel 3042 df-ral 3057 df-rex 3066 df-rmo 3371 df-reu 3372 df-rab 3428 df-v 3471 df-sbc 3775 df-csb 3890 df-dif 3947 df-un 3949 df-in 3951 df-ss 3961 df-pss 3963 df-nul 4319 df-if 4525 df-pw 4600 df-sn 4625 df-pr 4627 df-tp 4629 df-op 4631 df-uni 4904 df-int 4945 df-iun 4993 df-br 5143 df-opab 5205 df-mpt 5226 df-tr 5260 df-id 5570 df-eprel 5576 df-po 5584 df-so 5585 df-fr 5627 df-we 5629 df-xp 5678 df-rel 5679 df-cnv 5680 df-co 5681 df-dm 5682 df-rn 5683 df-res 5684 df-ima 5685 df-pred 6299 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-riota 7370 df-ov 7417 df-oprab 7418 df-mpo 7419 df-om 7865 df-1st 7987 df-2nd 7988 df-tpos 8225 df-frecs 8280 df-wrecs 8311 df-recs 8385 df-rdg 8424 df-1o 8480 df-oadd 8484 df-omul 8485 df-er 8718 df-ec 8720 df-qs 8724 df-map 8838 df-pm 8839 df-en 8956 df-dom 8957 df-sdom 8958 df-fin 8959 df-wun 10717 df-ni 10887 df-pli 10888 df-mi 10889 df-lti 10890 df-plpq 10923 df-mpq 10924 df-ltpq 10925 df-enq 10926 df-nq 10927 df-erq 10928 df-plq 10929 df-mq 10930 df-1nq 10931 df-rq 10932 df-ltnq 10933 df-np 10996 df-plp 10998 df-ltp 11000 df-enr 11070 df-nr 11071 df-c 11136 df-pnf 11272 df-mnf 11273 df-xr 11274 df-ltxr 11275 df-le 11276 df-sub 11468 df-neg 11469 df-nn 12235 df-2 12297 df-3 12298 df-4 12299 df-5 12300 df-6 12301 df-7 12302 df-8 12303 df-9 12304 df-n0 12495 df-z 12581 df-dec 12700 df-uz 12845 df-fz 13509 df-struct 17107 df-sets 17124 df-slot 17142 df-ndx 17154 df-base 17172 df-hom 17248 df-cco 17249 df-cat 17639 df-cid 17640 df-oppc 17683 df-catc 18079

This theorem is referenced by: (None)

W3C validator