![]() |
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 17222 | . . 3 ⊢ (𝐶 Func 𝐷) = (Base‘𝑄) |
3 | 2 | a1i 11 | . 2 ⊢ (𝜑 → (𝐶 Func 𝐷) = (Base‘𝑄)) |
4 | eqid 2798 | . . . 4 ⊢ (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷) | |
5 | 1, 4 | fuchom 17223 | . . 3 ⊢ (𝐶 Nat 𝐷) = (Hom ‘𝑄) |
6 | 5 | a1i 11 | . 2 ⊢ (𝜑 → (𝐶 Nat 𝐷) = (Hom ‘𝑄)) |
7 | eqidd 2799 | . 2 ⊢ (𝜑 → (comp‘𝑄) = (comp‘𝑄)) | |
8 | 1 | ovexi 7169 | . . 3 ⊢ 𝑄 ∈ V |
9 | 8 | a1i 11 | . 2 ⊢ (𝜑 → 𝑄 ∈ V) |
10 | biid 264 | . 2 ⊢ (((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ))) ↔ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) | |
11 | fuccatid.1 | . . 3 ⊢ 1 = (Id‘𝐷) | |
12 | simpr 488 | . . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐶 Func 𝐷)) → 𝑓 ∈ (𝐶 Func 𝐷)) | |
13 | 1, 4, 11, 12 | fucidcl 17227 | . 2 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐶 Func 𝐷)) → ( 1 ∘ (1st ‘𝑓)) ∈ (𝑓(𝐶 Nat 𝐷)𝑓)) |
14 | eqid 2798 | . . 3 ⊢ (comp‘𝑄) = (comp‘𝑄) | |
15 | simpr31 1260 | . . 3 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → 𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓)) | |
16 | 1, 4, 14, 11, 15 | fuclid 17228 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → (( 1 ∘ (1st ‘𝑓))(〈𝑒, 𝑓〉(comp‘𝑄)𝑓)𝑟) = 𝑟) |
17 | simpr32 1261 | . . 3 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔)) | |
18 | 1, 4, 14, 11, 17 | fucrid 17229 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → (𝑠(〈𝑓, 𝑓〉(comp‘𝑄)𝑔)( 1 ∘ (1st ‘𝑓))) = 𝑠) |
19 | 1, 4, 14, 15, 17 | fuccocl 17226 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → (𝑠(〈𝑒, 𝑓〉(comp‘𝑄)𝑔)𝑟) ∈ (𝑒(𝐶 Nat 𝐷)𝑔)) |
20 | simpr33 1262 | . . 3 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)) | |
21 | 1, 4, 14, 15, 17, 20 | fucass 17230 | . 2 ⊢ ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ℎ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)ℎ)))) → ((𝑡(〈𝑓, 𝑔〉(comp‘𝑄)ℎ)𝑠)(〈𝑒, 𝑓〉(comp‘𝑄)ℎ)𝑟) = (𝑡(〈𝑒, 𝑔〉(comp‘𝑄)ℎ)(𝑠(〈𝑒, 𝑓〉(comp‘𝑄)𝑔)𝑟))) |
22 | 3, 6, 7, 9, 10, 13, 16, 18, 19, 21 | iscatd2 16944 | 1 ⊢ (𝜑 → (𝑄 ∈ Cat ∧ (Id‘𝑄) = (𝑓 ∈ (𝐶 Func 𝐷) ↦ ( 1 ∘ (1st ‘𝑓))))) |
Colors of variables: wff setvar class |
Syntax hints: → wi 4 ∧ wa 399 ∧ w3a 1084 = wceq 1538 ∈ wcel 2111 Vcvv 3441 ↦ cmpt 5110 ∘ ccom 5523 ‘cfv 6324 (class class class)co 7135 1st c1st 7669 Basecbs 16475 Hom chom 16568 compcco 16569 Catccat 16927 Idccid 16928 Func cfunc 17116 Nat cnat 17203 FuncCat cfuc 17204 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2113 ax-9 2121 ax-10 2142 ax-11 2158 ax-12 2175 ax-ext 2770 ax-rep 5154 ax-sep 5167 ax-nul 5174 ax-pow 5231 ax-pr 5295 ax-un 7441 ax-cnex 10582 ax-resscn 10583 ax-1cn 10584 ax-icn 10585 ax-addcl 10586 ax-addrcl 10587 ax-mulcl 10588 ax-mulrcl 10589 ax-mulcom 10590 ax-addass 10591 ax-mulass 10592 ax-distr 10593 ax-i2m1 10594 ax-1ne0 10595 ax-1rid 10596 ax-rnegex 10597 ax-rrecex 10598 ax-cnre 10599 ax-pre-lttri 10600 ax-pre-lttrn 10601 ax-pre-ltadd 10602 ax-pre-mulgt0 10603 |
This theorem depends on definitions: df-bi 210 df-an 400 df-or 845 df-3or 1085 df-3an 1086 df-tru 1541 df-fal 1551 df-ex 1782 df-nf 1786 df-sb 2070 df-mo 2598 df-eu 2629 df-clab 2777 df-cleq 2791 df-clel 2870 df-nfc 2938 df-ne 2988 df-nel 3092 df-ral 3111 df-rex 3112 df-reu 3113 df-rmo 3114 df-rab 3115 df-v 3443 df-sbc 3721 df-csb 3829 df-dif 3884 df-un 3886 df-in 3888 df-ss 3898 df-pss 3900 df-nul 4244 df-if 4426 df-pw 4499 df-sn 4526 df-pr 4528 df-tp 4530 df-op 4532 df-uni 4801 df-int 4839 df-iun 4883 df-br 5031 df-opab 5093 df-mpt 5111 df-tr 5137 df-id 5425 df-eprel 5430 df-po 5438 df-so 5439 df-fr 5478 df-we 5480 df-xp 5525 df-rel 5526 df-cnv 5527 df-co 5528 df-dm 5529 df-rn 5530 df-res 5531 df-ima 5532 df-pred 6116 df-ord 6162 df-on 6163 df-lim 6164 df-suc 6165 df-iota 6283 df-fun 6326 df-fn 6327 df-f 6328 df-f1 6329 df-fo 6330 df-f1o 6331 df-fv 6332 df-riota 7093 df-ov 7138 df-oprab 7139 df-mpo 7140 df-om 7561 df-1st 7671 df-2nd 7672 df-wrecs 7930 df-recs 7991 df-rdg 8029 df-1o 8085 df-oadd 8089 df-er 8272 df-map 8391 df-ixp 8445 df-en 8493 df-dom 8494 df-sdom 8495 df-fin 8496 df-pnf 10666 df-mnf 10667 df-xr 10668 df-ltxr 10669 df-le 10670 df-sub 10861 df-neg 10862 df-nn 11626 df-2 11688 df-3 11689 df-4 11690 df-5 11691 df-6 11692 df-7 11693 df-8 11694 df-9 11695 df-n0 11886 df-z 11970 df-dec 12087 df-uz 12232 df-fz 12886 df-struct 16477 df-ndx 16478 df-slot 16479 df-base 16481 df-hom 16581 df-cco 16582 df-cat 16931 df-cid 16932 df-func 17120 df-nat 17205 df-fuc 17206 |
This theorem is referenced by: fuccat 17232 fucid 17233 |
Copyright terms: Public domain | W3C validator |