Theorem fucbas 17928

Description: The objects of the functor category are functors from 𝐶 to 𝐷. (Contributed by Mario Carneiro, 6-Jan-2017.) (Revised by Mario Carneiro, 12-Jan-2017.)

Hypothesis

Ref	Expression
fucbas.q	⊢ 𝑄 = (𝐶 FuncCat 𝐷)

Assertion

Ref	Expression
fucbas	⊢ (𝐶 Func 𝐷) = (Base‘𝑄)

Proof of Theorem fucbas

Dummy variables 𝑎 𝑏 𝑓 𝑔 ℎ 𝑣 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fucbas.q	. . . . 5 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
2		eqid 2740	. . . . 5 ⊢ (𝐶 Func 𝐷) = (𝐶 Func 𝐷)
3		eqid 2740	. . . . 5 ⊢ (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
4		eqid 2740	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝐶)
5		eqid 2740	. . . . 5 ⊢ (comp‘𝐷) = (comp‘𝐷)
6		simpl 483	. . . . 5 ⊢ ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐶 ∈ Cat)
7		simpr 485	. . . . 5 ⊢ ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐷 ∈ Cat)
8		eqid 2740	. . . . . 6 ⊢ (comp‘𝑄) = (comp‘𝑄)
9	1, 2, 3, 4, 5, 6, 7, 8	fuccofval 17927	. . . . 5 ⊢ ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (comp‘𝑄) = (𝑣 ∈ ((𝐶 Func 𝐷) × (𝐶 Func 𝐷)), ℎ ∈ (𝐶 Func 𝐷) ↦ ⦋(1st ‘𝑣) / 𝑓⦌⦋(2nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐶 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘𝑥)(⟨((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)⟩(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))))
10	1, 2, 3, 4, 5, 6, 7, 9	fucval 17926	. . . 4 ⊢ ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝑄 = {⟨(Base‘ndx), (𝐶 Func 𝐷)⟩, ⟨(Hom ‘ndx), (𝐶 Nat 𝐷)⟩, ⟨(comp‘ndx), (comp‘𝑄)⟩})
11		catstr 17925	. . . 4 ⊢ {⟨(Base‘ndx), (𝐶 Func 𝐷)⟩, ⟨(Hom ‘ndx), (𝐶 Nat 𝐷)⟩, ⟨(comp‘ndx), (comp‘𝑄)⟩} Struct ⟨1, ;15⟩
12		baseid 17180	. . . 4 ⊢ Base = Slot (Base‘ndx)
13		snsstp1 4754	. . . 4 ⊢ {⟨(Base‘ndx), (𝐶 Func 𝐷)⟩} ⊆ {⟨(Base‘ndx), (𝐶 Func 𝐷)⟩, ⟨(Hom ‘ndx), (𝐶 Nat 𝐷)⟩, ⟨(comp‘ndx), (comp‘𝑄)⟩}
14		ovexd 7398	. . . 4 ⊢ ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝐶 Func 𝐷) ∈ V)
15		eqid 2740	. . . 4 ⊢ (Base‘𝑄) = (Base‘𝑄)
16	10, 11, 12, 13, 14, 15	strfv3 17172	. . 3 ⊢ ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (Base‘𝑄) = (𝐶 Func 𝐷))
17	16	eqcomd 2746	. 2 ⊢ ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝐶 Func 𝐷) = (Base‘𝑄))
18		base0 17182	. . 3 ⊢ ∅ = (Base‘∅)
19		funcrcl 17828	. . . . 5 ⊢ (𝑓 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
20	19	con3i 154	. . . 4 ⊢ (¬ (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → ¬ 𝑓 ∈ (𝐶 Func 𝐷))
21	20	eq0rdv 4342	. . 3 ⊢ (¬ (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝐶 Func 𝐷) = ∅)
22		fnfuc 17913	. . . . . . 7 ⊢ FuncCat Fn (Cat × Cat)
23	22	fndmi 6596	. . . . . 6 ⊢ dom FuncCat = (Cat × Cat)
24	23	ndmov 7547	. . . . 5 ⊢ (¬ (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝐶 FuncCat 𝐷) = ∅)
25	1, 24	eqtrid 2787	. . . 4 ⊢ (¬ (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝑄 = ∅)
26	25	fveq2d 6838	. . 3 ⊢ (¬ (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (Base‘𝑄) = (Base‘∅))
27	18, 21, 26	3eqtr4a 2801	. 2 ⊢ (¬ (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝐶 Func 𝐷) = (Base‘𝑄))
28	17, 27	pm2.61i 183	1 ⊢ (𝐶 Func 𝐷) = (Base‘𝑄)

Syntax hints:  ¬ wn 3   ∧ wa 396   = wceq 1547   ∈ wcel 2119  Vcvv 3432  ∅c0 4268  {ctp 4566  ⟨cop 4568   × cxp 5623  ‘cfv 6492  (class class class)co 7363  1c1 11037  5c5 12237  ;cdc 12642  ndxcnx 17161  Basecbs 17177  Hom chom 17229  compcco 17230  Catccat 17628   Func cfunc 17819   Nat cnat 17909   FuncCat cfuc 17910

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4846  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-om 7814  df-1st 7938  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-er 8640  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-nn 12173  df-2 12242  df-3 12243  df-4 12244  df-5 12245  df-6 12246  df-7 12247  df-8 12248  df-9 12249  df-n0 12436  df-z 12523  df-dec 12643  df-uz 12787  df-fz 13460  df-struct 17115  df-slot 17150  df-ndx 17162  df-base 17178  df-hom 17242  df-cco 17243  df-func 17823  df-fuc 17912

This theorem is referenced by:  fuccatid  17937  fucsect  17940  fucinv  17941  fuciso  17943  evlfcllem  18185  evlfcl  18186  curfcl  18196  uncf1  18200  uncf2  18201  curfuncf  18202  diag1cl  18206  curf2ndf  18211  yon1cl  18227  oyon1cl  18235  yonedalem21  18237  yonedalem22  18242  yonedalem3b  18243  yonedalem3  18244  yonedainv  18245  yonffthlem  18246  yoneda  18247  yoniso  18249  xpcfucbas  49749  xpcfuchom2  49752  xpcfucco2  49753  diag1f1  49804  fucoid  49845  fucofunc  49856  postcofval  49861  postcofcl  49862  precofval  49864  precofvalALT  49865  precofcl  49867  fucoppcco  49906  fucoppc  49907  oppfdiag1  49911  oppfdiag  49913  diagciso  50036  funcsn  50038  0fucterm  50040  termfucterm  50041  cofuterm  50042  lanval2  50124  ranval2  50127  ranval3  50128  lanrcl4  50131  ranrcl4  50136  lanup  50138  ranup  50139  lmdfval2  50152  cmdfval2  50153  islmd  50162  iscmd  50163  lmddu  50164  cmddu  50165  initocmd  50166  lmdran  50168  cmdlan  50169