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

Theorem fuccatid 16856
Description: The functor category is a category. (Contributed by Mario Carneiro, 6-Jan-2017.)
Hypotheses
Ref Expression
fuccat.q 𝑄 = (𝐶 FuncCat 𝐷)
fuccat.r (𝜑𝐶 ∈ Cat)
fuccat.s (𝜑𝐷 ∈ Cat)
fuccatid.1 1 = (Id‘𝐷)
Assertion
Ref Expression
fuccatid (𝜑 → (𝑄 ∈ Cat ∧ (Id‘𝑄) = (𝑓 ∈ (𝐶 Func 𝐷) ↦ ( 1 ∘ (1st𝑓)))))
Distinct variable groups:   𝐶,𝑓   𝜑,𝑓   𝐷,𝑓   𝑄,𝑓
Allowed substitution hint:   1 (𝑓)

Proof of Theorem fuccatid
Dummy variables 𝑒 𝑔 𝑟 𝑠 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fuccat.q . . . 4 𝑄 = (𝐶 FuncCat 𝐷)
21fucbas 16847 . . 3 (𝐶 Func 𝐷) = (Base‘𝑄)
32a1i 11 . 2 (𝜑 → (𝐶 Func 𝐷) = (Base‘𝑄))
4 eqid 2774 . . . 4 (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
51, 4fuchom 16848 . . 3 (𝐶 Nat 𝐷) = (Hom ‘𝑄)
65a1i 11 . 2 (𝜑 → (𝐶 Nat 𝐷) = (Hom ‘𝑄))
7 eqidd 2775 . 2 (𝜑 → (comp‘𝑄) = (comp‘𝑄))
8 ovex 6844 . . . 4 (𝐶 FuncCat 𝐷) ∈ V
91, 8eqeltri 2849 . . 3 𝑄 ∈ V
109a1i 11 . 2 (𝜑𝑄 ∈ V)
11 biid 252 . 2 (((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)))) ↔ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)))))
12 fuccatid.1 . . 3 1 = (Id‘𝐷)
13 simpr 472 . . 3 ((𝜑𝑓 ∈ (𝐶 Func 𝐷)) → 𝑓 ∈ (𝐶 Func 𝐷))
141, 4, 12, 13fucidcl 16852 . 2 ((𝜑𝑓 ∈ (𝐶 Func 𝐷)) → ( 1 ∘ (1st𝑓)) ∈ (𝑓(𝐶 Nat 𝐷)𝑓))
15 eqid 2774 . . 3 (comp‘𝑄) = (comp‘𝑄)
16 simpr31 1350 . . 3 ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷))))) → 𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓))
171, 4, 15, 12, 16fuclid 16853 . 2 ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷))))) → (( 1 ∘ (1st𝑓))(⟨𝑒, 𝑓⟩(comp‘𝑄)𝑓)𝑟) = 𝑟)
18 simpr32 1352 . . 3 ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷))))) → 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔))
191, 4, 15, 12, 18fucrid 16854 . 2 ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷))))) → (𝑠(⟨𝑓, 𝑓⟩(comp‘𝑄)𝑔)( 1 ∘ (1st𝑓))) = 𝑠)
201, 4, 15, 16, 18fuccocl 16851 . 2 ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷))))) → (𝑠(⟨𝑒, 𝑓⟩(comp‘𝑄)𝑔)𝑟) ∈ (𝑒(𝐶 Nat 𝐷)𝑔))
21 simpr33 1354 . . 3 ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷))))) → 𝑡 ∈ (𝑔(𝐶 Nat 𝐷)))
221, 4, 15, 16, 18, 21fucass 16855 . 2 ((𝜑 ∧ ((𝑒 ∈ (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ ∈ (𝐶 Func 𝐷)) ∧ (𝑟 ∈ (𝑒(𝐶 Nat 𝐷)𝑓) ∧ 𝑠 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ 𝑡 ∈ (𝑔(𝐶 Nat 𝐷))))) → ((𝑡(⟨𝑓, 𝑔⟩(comp‘𝑄))𝑠)(⟨𝑒, 𝑓⟩(comp‘𝑄))𝑟) = (𝑡(⟨𝑒, 𝑔⟩(comp‘𝑄))(𝑠(⟨𝑒, 𝑓⟩(comp‘𝑄)𝑔)𝑟)))
233, 6, 7, 10, 11, 14, 17, 19, 20, 22iscatd2 16569 1 (𝜑 → (𝑄 ∈ Cat ∧ (Id‘𝑄) = (𝑓 ∈ (𝐶 Func 𝐷) ↦ ( 1 ∘ (1st𝑓)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383  w3a 1098   = wceq 1634  wcel 2148  Vcvv 3355  cmpt 4876  ccom 5267  cfv 6042  (class class class)co 6812  1st c1st 7334  Basecbs 16084  Hom chom 16180  compcco 16181  Catccat 16552  Idccid 16553   Func cfunc 16741   Nat cnat 16828   FuncCat cfuc 16829
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1873  ax-4 1888  ax-5 1994  ax-6 2060  ax-7 2096  ax-8 2150  ax-9 2157  ax-10 2177  ax-11 2193  ax-12 2206  ax-13 2411  ax-ext 2754  ax-rep 4917  ax-sep 4928  ax-nul 4936  ax-pow 4988  ax-pr 5048  ax-un 7117  ax-cnex 10215  ax-resscn 10216  ax-1cn 10217  ax-icn 10218  ax-addcl 10219  ax-addrcl 10220  ax-mulcl 10221  ax-mulrcl 10222  ax-mulcom 10223  ax-addass 10224  ax-mulass 10225  ax-distr 10226  ax-i2m1 10227  ax-1ne0 10228  ax-1rid 10229  ax-rnegex 10230  ax-rrecex 10231  ax-cnre 10232  ax-pre-lttri 10233  ax-pre-lttrn 10234  ax-pre-ltadd 10235  ax-pre-mulgt0 10236
This theorem depends on definitions:  df-bi 198  df-an 384  df-or 864  df-3or 1099  df-3an 1100  df-tru 1637  df-fal 1640  df-ex 1856  df-nf 1861  df-sb 2053  df-eu 2625  df-mo 2626  df-clab 2761  df-cleq 2767  df-clel 2770  df-nfc 2905  df-ne 2947  df-nel 3050  df-ral 3069  df-rex 3070  df-reu 3071  df-rmo 3072  df-rab 3073  df-v 3357  df-sbc 3594  df-csb 3689  df-dif 3732  df-un 3734  df-in 3736  df-ss 3743  df-pss 3745  df-nul 4074  df-if 4236  df-pw 4309  df-sn 4327  df-pr 4329  df-tp 4331  df-op 4333  df-uni 4586  df-int 4623  df-iun 4667  df-br 4798  df-opab 4860  df-mpt 4877  df-tr 4900  df-id 5171  df-eprel 5176  df-po 5184  df-so 5185  df-fr 5222  df-we 5224  df-xp 5269  df-rel 5270  df-cnv 5271  df-co 5272  df-dm 5273  df-rn 5274  df-res 5275  df-ima 5276  df-pred 5834  df-ord 5880  df-on 5881  df-lim 5882  df-suc 5883  df-iota 6005  df-fun 6044  df-fn 6045  df-f 6046  df-f1 6047  df-fo 6048  df-f1o 6049  df-fv 6050  df-riota 6773  df-ov 6815  df-oprab 6816  df-mpt2 6817  df-om 7234  df-1st 7336  df-2nd 7337  df-wrecs 7580  df-recs 7642  df-rdg 7680  df-1o 7734  df-oadd 7738  df-er 7917  df-map 8032  df-ixp 8084  df-en 8131  df-dom 8132  df-sdom 8133  df-fin 8134  df-pnf 10299  df-mnf 10300  df-xr 10301  df-ltxr 10302  df-le 10303  df-sub 10491  df-neg 10492  df-nn 11244  df-2 11302  df-3 11303  df-4 11304  df-5 11305  df-6 11306  df-7 11307  df-8 11308  df-9 11309  df-n0 11517  df-z 11602  df-dec 11718  df-uz 11911  df-fz 12556  df-struct 16086  df-ndx 16087  df-slot 16088  df-base 16090  df-hom 16194  df-cco 16195  df-cat 16556  df-cid 16557  df-func 16745  df-nat 16830  df-fuc 16831
This theorem is referenced by:  fuccat  16857  fucid  16858
  Copyright terms: Public domain W3C validator