Theorem funcf1 15110

Description: The object part of a functor is a function on objects. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
funcf1.b	|- B = ( Base ` D )
funcf1.c	|- C = ( Base ` E )
funcf1.f	|- ( ph -> F ( D Func E ) G )

Assertion

Ref	Expression
funcf1	|- ( ph -> F : B --> C )

Proof of Theorem funcf1

Dummy variables m n x y z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		funcf1.f	. . 3 |- ( ph -> F ( D Func E ) G )
2		funcf1.b	. . . 4 |- B = ( Base ` D )
3		funcf1.c	. . . 4 |- C = ( Base ` E )
4		eqid 2467	. . . 4 |- ( Hom ` D ) = ( Hom ` D )
5		eqid 2467	. . . 4 |- ( Hom ` E ) = ( Hom ` E )
6		eqid 2467	. . . 4 |- ( Id ` D ) = ( Id ` D )
7		eqid 2467	. . . 4 |- ( Id ` E ) = ( Id ` E )
8		eqid 2467	. . . 4 |- (comp ` D ) = (comp ` D )
9		eqid 2467	. . . 4 |- (comp ` E ) = (comp ` E )
10		df-br 4454	. . . . . . 7 |- ( F ( D Func E ) G <-> <. F , G >. e. ( D Func E ) )
11	1, 10	sylib 196	. . . . . 6 |- ( ph -> <. F , G >. e. ( D Func E ) )
12		funcrcl 15107	. . . . . 6 |- ( <. F , G >. e. ( D Func E ) -> ( D e. Cat /\ E e. Cat ) )
13	11, 12	syl 16	. . . . 5 |- ( ph -> ( D e. Cat /\ E e. Cat ) )
14	13	simpld 459	. . . 4 |- ( ph -> D e. Cat )
15	13	simprd 463	. . . 4 |- ( ph -> E e. Cat )
16	2, 3, 4, 5, 6, 7, 8, 9, 14, 15	isfunc 15108	. . 3 |- ( ph -> ( F ( D Func E ) G <-> ( F : B --> C /\ G e. X_ z e. ( B X. B ) ( ( ( F ` ( 1st ` z ) ) ( Hom ` E ) ( F ` ( 2nd ` z ) ) ) ^m ( ( Hom ` D ) ` z ) ) /\ A. x e. B ( ( ( x G x ) ` ( ( Id ` D ) ` x ) ) = ( ( Id ` E ) ` ( F ` x ) ) /\ A. y e. B A. z e. B A. m e. ( x ( Hom ` D ) y ) A. n e. ( y ( Hom ` D ) z ) ( ( x G z ) ` ( n ( <. x , y >. (comp ` D ) z ) m ) ) = ( ( ( y G z ) ` n ) ( <. ( F ` x ) , ( F ` y ) >. (comp ` E ) ( F ` z ) ) ( ( x G y ) ` m ) ) ) ) ) )
17	1, 16	mpbid 210	. 2 |- ( ph -> ( F : B --> C /\ G e. X_ z e. ( B X. B ) ( ( ( F ` ( 1st ` z ) ) ( Hom ` E ) ( F ` ( 2nd ` z ) ) ) ^m ( ( Hom ` D ) ` z ) ) /\ A. x e. B ( ( ( x G x ) ` ( ( Id ` D ) ` x ) ) = ( ( Id ` E ) ` ( F ` x ) ) /\ A. y e. B A. z e. B A. m e. ( x ( Hom ` D ) y ) A. n e. ( y ( Hom ` D ) z ) ( ( x G z ) ` ( n ( <. x , y >. (comp ` D ) z ) m ) ) = ( ( ( y G z ) ` n ) ( <. ( F ` x ) , ( F ` y ) >. (comp ` E ) ( F ` z ) ) ( ( x G y ) ` m ) ) ) ) )
18	17	simp1d 1008	1 |- ( ph -> F : B --> C )

Syntax hints:   -> wi 4   /\ wa 369   /\ w3a 973   = wceq 1379   e. wcel 1767   A.wral 2817   <.cop 4039   class class class wbr 4453   X. cxp 5003   -->wf 5590   ` cfv 5594  (class class class)co 6295   1stc1st 6793   2ndc2nd 6794   ^m cmap 7432   X_cixp 7481   Basecbs 14507   Hom chom 14583  compcco 14584   Catccat 14936   Idccid 14937   Func cfunc 15098

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1601  ax-4 1612  ax-5 1680  ax-6 1719  ax-7 1739  ax-8 1769  ax-9 1771  ax-10 1786  ax-11 1791  ax-12 1803  ax-13 1968  ax-ext 2445  ax-rep 4564  ax-sep 4574  ax-nul 4582  ax-pow 4631  ax-pr 4692  ax-un 6587

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 975  df-tru 1382  df-ex 1597  df-nf 1600  df-sb 1712  df-eu 2279  df-mo 2280  df-clab 2453  df-cleq 2459  df-clel 2462  df-nfc 2617  df-ne 2664  df-ral 2822  df-rex 2823  df-reu 2824  df-rab 2826  df-v 3120  df-sbc 3337  df-csb 3441  df-dif 3484  df-un 3486  df-in 3488  df-ss 3495  df-nul 3791  df-if 3946  df-pw 4018  df-sn 4034  df-pr 4036  df-op 4040  df-uni 4252  df-iun 4333  df-br 4454  df-opab 4512  df-mpt 4513  df-id 4801  df-xp 5011  df-rel 5012  df-cnv 5013  df-co 5014  df-dm 5015  df-rn 5016  df-res 5017  df-ima 5018  df-iota 5557  df-fun 5596  df-fn 5597  df-f 5598  df-f1 5599  df-fo 5600  df-f1o 5601  df-fv 5602  df-ov 6298  df-oprab 6299  df-mpt2 6300  df-map 7434  df-ixp 7482  df-func 15102

This theorem is referenced by:  funcsect  15116  funcinv  15117  funciso  15118  funcoppc  15119  cofu1  15128  cofucl  15132  cofuass  15133  cofulid  15134  cofurid  15135  funcres  15140  funcres2  15142  wunfunc  15143  funcres2c  15145  fullpropd  15164  fthsect  15169  fthinv  15170  fthmon  15171  ffthiso  15173  cofull  15178  cofth  15179  fuccocl  15208  fucidcl  15209  fuclid  15210  fucrid  15211  fucass  15212  fucsect  15216  fucinv  15217  invfuc  15218  fuciso  15219  natpropd  15220  fucpropd  15221  catciso  15309  prfval  15343  prfcl  15347  prf1st  15348  prf2nd  15349  1st2ndprf  15350  evlfcllem  15365  evlfcl  15366  curf1cl  15372  curfcl  15376  uncf1  15380  uncf2  15381  curfuncf  15382  uncfcurf  15383  diag1cl  15386  curf2ndf  15391  yon1cl  15407  oyon1cl  15415  yonedalem3a  15418  yonedalem4c  15421  yonedalem3b  15423  yonedalem3  15424  yonedainv  15425  yonffthlem  15426  yoniso  15429