Metamath Proof Explorer |
< Previous
Next >
Nearby theorems |
||
Mirrors > Home > MPE Home > Th. List > fuccatid | Structured version Visualization version GIF version |
Description: The functor category is a category. (Contributed by Mario Carneiro, 6-Jan-2017.) |
Ref | Expression |
---|---|
fuccat.q | ⊢ 𝑄 = (𝐶 FuncCat 𝐷) |
fuccat.r | ⊢ (𝜑 → 𝐶 ∈ Cat) |
fuccat.s | ⊢ (𝜑 → 𝐷 ∈ Cat) |
fuccatid.1 | ⊢ 1 = (Id‘𝐷) |
Ref | Expression |
---|---|
fuccatid | ⊢ (𝜑 → (𝑄 ∈ Cat ∧ (Id‘𝑄) = (𝑓 ∈ (𝐶 Func 𝐷) ↦ ( 1 ∘ (1st ‘𝑓))))) |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | fuccat.q | . . . 4 ⊢ 𝑄 = (𝐶 FuncCat 𝐷) | |
2 | 1 | fucbas 17233 | . . 3 ⊢ (𝐶 Func 𝐷) = (Base‘𝑄) |
3 | 2 | a1i 11 | . 2 ⊢ (𝜑 → (𝐶 Func 𝐷) = (Base‘𝑄)) |
4 | eqid 2824 | . . . 4 ⊢ (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷) | |
5 | 1, 4 | fuchom 17234 | . . 3 ⊢ (𝐶 Nat 𝐷) = (Hom ‘𝑄) |
6 | 5 | a1i 11 | . 2 ⊢ (𝜑 → (𝐶 Nat 𝐷) = (Hom ‘𝑄)) |
7 | eqidd 2825 | . 2 ⊢ (𝜑 → (comp‘𝑄) = (comp‘𝑄)) | |
8 | 1 | ovexi 7193 | . . 3 ⊢ 𝑄 ∈ V |
9 | 8 | a1i 11 | . 2 ⊢ (𝜑 → 𝑄 ∈ V) |
10 | biid 263 | . 2 ⊢ (((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ))) ↔ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) | |
11 | fuccatid.1 | . . 3 ⊢ 1 = (Id‘𝐷) | |
12 | simpr 487 | . . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐶 Func 𝐷)) → 𝑓 ∈ (𝐶 Func 𝐷)) | |
13 | 1, 4, 11, 12 | fucidcl 17238 | . 2 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐶 Func 𝐷)) → ( 1 ∘ (1st ‘𝑓)) ∈ (𝑓(𝐶 Nat 𝐷)𝑓)) |
14 | eqid 2824 | . . 3 ⊢ (comp‘𝑄) = (comp‘𝑄) | |
15 | simpr31 1259 | . . 3 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → 𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓)) | |
16 | 1, 4, 14, 11, 15 | fuclid 17239 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → (( 1 ∘ (1st ‘𝑓))(〈𝑒, 𝑓〉(comp‘𝑄)𝑓)𝑟) = 𝑟) |
17 | simpr32 1260 | . . 3 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔)) | |
18 | 1, 4, 14, 11, 17 | fucrid 17240 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → (𝑠(〈𝑓, 𝑓〉(comp‘𝑄)𝑔)( 1 ∘ (1st ‘𝑓))) = 𝑠) |
19 | 1, 4, 14, 15, 17 | fuccocl 17237 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → (𝑠(〈𝑒, 𝑓〉(comp‘𝑄)𝑔)𝑟) ∈ (𝑒(𝐶 Nat 𝐷)𝑔)) |
20 | simpr33 1261 | . . 3 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)) | |
21 | 1, 4, 14, 15, 17, 20 | fucass 17241 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → ((𝑡(〈𝑓, 𝑔〉(comp‘𝑄)ℎ)𝑠)(〈𝑒, 𝑓〉(comp‘𝑄)ℎ)𝑟) = (𝑡(〈𝑒, 𝑔〉(comp‘𝑄)ℎ)(𝑠(〈𝑒, 𝑓〉(comp‘𝑄)𝑔)𝑟))) |
22 | 3, 6, 7, 9, 10, 13, 16, 18, 19, 21 | iscatd2 16955 | 1 ⊢ (𝜑 → (𝑄 ∈ Cat ∧ (Id‘𝑄) = (𝑓 ∈ (𝐶 Func 𝐷) ↦ ( 1 ∘ (1st ‘𝑓))))) |
Colors of variables: wff setvar class |
Syntax hints: → wi 4 ∧ wa 398 ∧ w3a 1083 = wceq 1536 ∈ wcel 2113 Vcvv 3497 ↦ cmpt 5149 ∘ ccom 5562 ‘cfv 6358 (class class class)co 7159 1st c1st 7690 Basecbs 16486 Hom chom 16579 compcco 16580 Catccat 16938 Idccid 16939 Func cfunc 17127 Nat cnat 17214 FuncCat cfuc 17215 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1969 ax-7 2014 ax-8 2115 ax-9 2123 ax-10 2144 ax-11 2160 ax-12 2176 ax-ext 2796 ax-rep 5193 ax-sep 5206 ax-nul 5213 ax-pow 5269 ax-pr 5333 ax-un 7464 ax-cnex 10596 ax-resscn 10597 ax-1cn 10598 ax-icn 10599 ax-addcl 10600 ax-addrcl 10601 ax-mulcl 10602 ax-mulrcl 10603 ax-mulcom 10604 ax-addass 10605 ax-mulass 10606 ax-distr 10607 ax-i2m1 10608 ax-1ne0 10609 ax-1rid 10610 ax-rnegex 10611 ax-rrecex 10612 ax-cnre 10613 ax-pre-lttri 10614 ax-pre-lttrn 10615 ax-pre-ltadd 10616 ax-pre-mulgt0 10617 |
This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1539 df-fal 1549 df-ex 1780 df-nf 1784 df-sb 2069 df-mo 2621 df-eu 2653 df-clab 2803 df-cleq 2817 df-clel 2896 df-nfc 2966 df-ne 3020 df-nel 3127 df-ral 3146 df-rex 3147 df-reu 3148 df-rmo 3149 df-rab 3150 df-v 3499 df-sbc 3776 df-csb 3887 df-dif 3942 df-un 3944 df-in 3946 df-ss 3955 df-pss 3957 df-nul 4295 df-if 4471 df-pw 4544 df-sn 4571 df-pr 4573 df-tp 4575 df-op 4577 df-uni 4842 df-int 4880 df-iun 4924 df-br 5070 df-opab 5132 df-mpt 5150 df-tr 5176 df-id 5463 df-eprel 5468 df-po 5477 df-so 5478 df-fr 5517 df-we 5519 df-xp 5564 df-rel 5565 df-cnv 5566 df-co 5567 df-dm 5568 df-rn 5569 df-res 5570 df-ima 5571 df-pred 6151 df-ord 6197 df-on 6198 df-lim 6199 df-suc 6200 df-iota 6317 df-fun 6360 df-fn 6361 df-f 6362 df-f1 6363 df-fo 6364 df-f1o 6365 df-fv 6366 df-riota 7117 df-ov 7162 df-oprab 7163 df-mpo 7164 df-om 7584 df-1st 7692 df-2nd 7693 df-wrecs 7950 df-recs 8011 df-rdg 8049 df-1o 8105 df-oadd 8109 df-er 8292 df-map 8411 df-ixp 8465 df-en 8513 df-dom 8514 df-sdom 8515 df-fin 8516 df-pnf 10680 df-mnf 10681 df-xr 10682 df-ltxr 10683 df-le 10684 df-sub 10875 df-neg 10876 df-nn 11642 df-2 11703 df-3 11704 df-4 11705 df-5 11706 df-6 11707 df-7 11708 df-8 11709 df-9 11710 df-n0 11901 df-z 11985 df-dec 12102 df-uz 12247 df-fz 12896 df-struct 16488 df-ndx 16489 df-slot 16490 df-base 16492 df-hom 16592 df-cco 16593 df-cat 16942 df-cid 16943 df-func 17131 df-nat 17216 df-fuc 17217 |
This theorem is referenced by: fuccat 17243 fucid 17244 |
Copyright terms: Public domain | W3C validator |