Theorem funcf2 17915

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

Hypotheses

Ref	Expression
funcixp.b	⊢ 𝐵 = (Base‘𝐷)
funcixp.h	⊢ 𝐻 = (Hom ‘𝐷)
funcixp.j	⊢ 𝐽 = (Hom ‘𝐸)
funcixp.f	⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
funcf2.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
funcf2.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)

Assertion

Ref	Expression
funcf2	⊢ (𝜑 → (𝑋𝐺𝑌):(𝑋𝐻𝑌)⟶((𝐹‘𝑋)𝐽(𝐹‘𝑌)))

Proof of Theorem funcf2

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-ov 7403	. . . 4 ⊢ (𝑋𝐺𝑌) = (𝐺‘⟨𝑋, 𝑌⟩)
2		funcixp.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐷)
3		funcixp.h	. . . . . 6 ⊢ 𝐻 = (Hom ‘𝐷)
4		funcixp.j	. . . . . 6 ⊢ 𝐽 = (Hom ‘𝐸)
5		funcixp.f	. . . . . 6 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
6	2, 3, 4, 5	funcixp 17914	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1st ‘𝑧))𝐽(𝐹‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)))
7		funcf2.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
8		funcf2.y	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
9	7, 8	opelxpd 5691	. . . . 5 ⊢ (𝜑 → ⟨𝑋, 𝑌⟩ ∈ (𝐵 × 𝐵))
10		2fveq3 6876	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑋, 𝑌⟩ → (𝐹‘(1st ‘𝑧)) = (𝐹‘(1st ‘⟨𝑋, 𝑌⟩)))
11		2fveq3 6876	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑋, 𝑌⟩ → (𝐹‘(2nd ‘𝑧)) = (𝐹‘(2nd ‘⟨𝑋, 𝑌⟩)))
12	10, 11	oveq12d 7418	. . . . . . 7 ⊢ (𝑧 = ⟨𝑋, 𝑌⟩ → ((𝐹‘(1st ‘𝑧))𝐽(𝐹‘(2nd ‘𝑧))) = ((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))))
13		fveq2 6871	. . . . . . . 8 ⊢ (𝑧 = ⟨𝑋, 𝑌⟩ → (𝐻‘𝑧) = (𝐻‘⟨𝑋, 𝑌⟩))
14		df-ov 7403	. . . . . . . 8 ⊢ (𝑋𝐻𝑌) = (𝐻‘⟨𝑋, 𝑌⟩)
15	13, 14	eqtr4di 2818	. . . . . . 7 ⊢ (𝑧 = ⟨𝑋, 𝑌⟩ → (𝐻‘𝑧) = (𝑋𝐻𝑌))
16	12, 15	oveq12d 7418	. . . . . 6 ⊢ (𝑧 = ⟨𝑋, 𝑌⟩ → (((𝐹‘(1st ‘𝑧))𝐽(𝐹‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) = (((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))) ↑m (𝑋𝐻𝑌)))
17	16	fvixp 8888	. . . . 5 ⊢ ((𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1st ‘𝑧))𝐽(𝐹‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ⟨𝑋, 𝑌⟩ ∈ (𝐵 × 𝐵)) → (𝐺‘⟨𝑋, 𝑌⟩) ∈ (((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))) ↑m (𝑋𝐻𝑌)))
18	6, 9, 17	syl2anc 595	. . . 4 ⊢ (𝜑 → (𝐺‘⟨𝑋, 𝑌⟩) ∈ (((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))) ↑m (𝑋𝐻𝑌)))
19	1, 18	eqeltrid 2869	. . 3 ⊢ (𝜑 → (𝑋𝐺𝑌) ∈ (((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))) ↑m (𝑋𝐻𝑌)))
20		op1stg 7986	. . . . . . 7 ⊢ ((𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (1st ‘⟨𝑋, 𝑌⟩) = 𝑋)
21	20	fveq2d 6875	. . . . . 6 ⊢ ((𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝐹‘(1st ‘⟨𝑋, 𝑌⟩)) = (𝐹‘𝑋))
22		op2ndg 7987	. . . . . . 7 ⊢ ((𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (2nd ‘⟨𝑋, 𝑌⟩) = 𝑌)
23	22	fveq2d 6875	. . . . . 6 ⊢ ((𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝐹‘(2nd ‘⟨𝑋, 𝑌⟩)) = (𝐹‘𝑌))
24	21, 23	oveq12d 7418	. . . . 5 ⊢ ((𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))) = ((𝐹‘𝑋)𝐽(𝐹‘𝑌)))
25	7, 8, 24	syl2anc 595	. . . 4 ⊢ (𝜑 → ((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))) = ((𝐹‘𝑋)𝐽(𝐹‘𝑌)))
26	25	oveq1d 7415	. . 3 ⊢ (𝜑 → (((𝐹‘(1st ‘⟨𝑋, 𝑌⟩))𝐽(𝐹‘(2nd ‘⟨𝑋, 𝑌⟩))) ↑m (𝑋𝐻𝑌)) = (((𝐹‘𝑋)𝐽(𝐹‘𝑌)) ↑m (𝑋𝐻𝑌)))
27	19, 26	eleqtrd 2867	. 2 ⊢ (𝜑 → (𝑋𝐺𝑌) ∈ (((𝐹‘𝑋)𝐽(𝐹‘𝑌)) ↑m (𝑋𝐻𝑌)))
28		elmapi 8834	. 2 ⊢ ((𝑋𝐺𝑌) ∈ (((𝐹‘𝑋)𝐽(𝐹‘𝑌)) ↑m (𝑋𝐻𝑌)) → (𝑋𝐺𝑌):(𝑋𝐻𝑌)⟶((𝐹‘𝑋)𝐽(𝐹‘𝑌)))
29	27, 28	syl 18	1 ⊢ (𝜑 → (𝑋𝐺𝑌):(𝑋𝐻𝑌)⟶((𝐹‘𝑋)𝐽(𝐹‘𝑌)))

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1563   ∈ wcel 2145  ⟨cop 4591   class class class wbr 5105   × cxp 5650  ⟶wf 6521  ‘cfv 6525  (class class class)co 7400  1^st c1st 7972  2^nd c2nd 7973   ↑_m cmap 8812  Xcixp 8883  Basecbs 17259  Hom chom 17311   Func cfunc 17901

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-rep 5232  ax-sep 5251  ax-nul 5261  ax-pow 5327  ax-pr 5395  ax-un 7722

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3080  df-rex 3090  df-rab 3418  df-v 3459  df-sbc 3748  df-csb 3856  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-nul 4289  df-if 4484  df-pw 4560  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4869  df-iun 4954  df-br 5106  df-opab 5168  df-mpt 5187  df-id 5547  df-xp 5658  df-rel 5659  df-cnv 5660  df-co 5661  df-dm 5662  df-rn 5663  df-res 5664  df-ima 5665  df-iota 6481  df-fun 6527  df-fn 6528  df-f 6529  df-fv 6533  df-ov 7403  df-oprab 7404  df-mpo 7405  df-1st 7974  df-2nd 7975  df-map 8814  df-ixp 8884  df-func 17905

This theorem is referenced by:  funcsect  17919  funcoppc  17922  cofu2  17933  cofucl  17935  cofulid  17937  cofurid  17938  funcres  17943  funcres2  17945  funcres2c  17950  isfull2  17960  isfth2  17964  fthsect  17974  fthmon  17976  fuccocl  18014  fucidcl  18015  invfuc  18024  natpropd  18026  catciso  18158  prfval  18245  prfcl  18249  prf1st  18250  prf2nd  18251  1st2ndprf  18252  evlfcllem  18267  evlfcl  18268  curf1cl  18274  curf2cl  18277  uncf2  18283  curfuncf  18284  uncfcurf  18285  diag2cl  18292  curf2ndf  18293  yonedalem4c  18323  yonedalem3b  18325  yonedainv  18327  yonffthlem  18328  funchomf  49726  cofidf2a  49746  imassc  49782  imaid  49783  imaf1co  49784  upciclem2  49796  upeu2  49801  uppropd  49810  uptrlem1  49839  uptrlem3  49841  diag1  49933  diag2f1  49938  fuco112xa  49962  fuco22natlem1  49971  fuco22natlem2  49972  fuco22natlem3  49973  fuco22natlem  49974  fucocolem1  49982  fucocolem3  49984  fucoco  49986  fucolid  49990  prcofdiag1  50022  prcofdiag  50023  oppfdiag1  50043  oppfdiag  50045  functhincfun  50078  fullthinc  50079  fullthinc2  50080  thincfth  50081  thincciso  50082  termcfuncval  50161