Theorem funcres 17960

Description: A functor restricted to a subcategory is a functor. (Contributed by Mario Carneiro, 6-Jan-2017.)

Hypotheses

Ref	Expression
funcres.f	⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
funcres.h	⊢ (𝜑 → 𝐻 ∈ (Subcat‘𝐶))

Assertion

Ref	Expression
funcres	⊢ (𝜑 → (𝐹 ↾f 𝐻) ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))

Proof of Theorem funcres

Dummy variables 𝑓 𝑔 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		funcres.f	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
2		funcres.h	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (Subcat‘𝐶))
3	1, 2	resfval 17956	. . 3 ⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩)
4	3	fveq2d 6924	. . . . 5 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) = (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩))
5		fvex 6933	. . . . . . 7 ⊢ (1st ‘𝐹) ∈ V
6	5	resex 6058	. . . . . 6 ⊢ ((1st ‘𝐹) ↾ dom dom 𝐻) ∈ V
7		dmexg 7941	. . . . . . 7 ⊢ (𝐻 ∈ (Subcat‘𝐶) → dom 𝐻 ∈ V)
8		mptexg 7258	. . . . . . 7 ⊢ (dom 𝐻 ∈ V → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V)
9	2, 7, 8	3syl 18	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V)
10		op2ndg 8043	. . . . . 6 ⊢ ((((1st ‘𝐹) ↾ dom dom 𝐻) ∈ V ∧ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V) → (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
11	6, 9, 10	sylancr 586	. . . . 5 ⊢ (𝜑 → (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
12	4, 11	eqtrd 2780	. . . 4 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
13	12	opeq2d 4904	. . 3 ⊢ (𝜑 → ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩ = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩)
14	3, 13	eqtr4d 2783	. 2 ⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩)
15		eqid 2740	. . . 4 ⊢ (Base‘(𝐶 ↾cat 𝐻)) = (Base‘(𝐶 ↾cat 𝐻))
16		eqid 2740	. . . 4 ⊢ (Base‘𝐷) = (Base‘𝐷)
17		eqid 2740	. . . 4 ⊢ (Hom ‘(𝐶 ↾cat 𝐻)) = (Hom ‘(𝐶 ↾cat 𝐻))
18		eqid 2740	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
19		eqid 2740	. . . 4 ⊢ (Id‘(𝐶 ↾cat 𝐻)) = (Id‘(𝐶 ↾cat 𝐻))
20		eqid 2740	. . . 4 ⊢ (Id‘𝐷) = (Id‘𝐷)
21		eqid 2740	. . . 4 ⊢ (comp‘(𝐶 ↾cat 𝐻)) = (comp‘(𝐶 ↾cat 𝐻))
22		eqid 2740	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
23		eqid 2740	. . . . 5 ⊢ (𝐶 ↾cat 𝐻) = (𝐶 ↾cat 𝐻)
24	23, 2	subccat 17912	. . . 4 ⊢ (𝜑 → (𝐶 ↾cat 𝐻) ∈ Cat)
25		funcrcl 17927	. . . . . 6 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
26	1, 25	syl 17	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
27	26	simprd 495	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
28		eqid 2740	. . . . . . 7 ⊢ (Base‘𝐶) = (Base‘𝐶)
29		relfunc 17926	. . . . . . . 8 ⊢ Rel (𝐶 Func 𝐷)
30		1st2ndbr 8083	. . . . . . . 8 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
31	29, 1, 30	sylancr 586	. . . . . . 7 ⊢ (𝜑 → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
32	28, 16, 31	funcf1 17930	. . . . . 6 ⊢ (𝜑 → (1st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33		eqidd 2741	. . . . . . . 8 ⊢ (𝜑 → dom dom 𝐻 = dom dom 𝐻)
34	2, 33	subcfn 17905	. . . . . . 7 ⊢ (𝜑 → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
35	2, 34, 28	subcss1 17906	. . . . . 6 ⊢ (𝜑 → dom dom 𝐻 ⊆ (Base‘𝐶))
36	32, 35	fssresd 6788	. . . . 5 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻):dom dom 𝐻⟶(Base‘𝐷))
37	26	simpld 494	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ Cat)
38	23, 28, 37, 34, 35	rescbas 17890	. . . . . 6 ⊢ (𝜑 → dom dom 𝐻 = (Base‘(𝐶 ↾cat 𝐻)))
39	38	feq2d 6733	. . . . 5 ⊢ (𝜑 → (((1st ‘𝐹) ↾ dom dom 𝐻):dom dom 𝐻⟶(Base‘𝐷) ↔ ((1st ‘𝐹) ↾ dom dom 𝐻):(Base‘(𝐶 ↾cat 𝐻))⟶(Base‘𝐷)))
40	36, 39	mpbid 232	. . . 4 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻):(Base‘(𝐶 ↾cat 𝐻))⟶(Base‘𝐷))
41		fvex 6933	. . . . . . 7 ⊢ ((2nd ‘𝐹)‘𝑧) ∈ V
42	41	resex 6058	. . . . . 6 ⊢ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)) ∈ V
43		eqid 2740	. . . . . 6 ⊢ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))
44	42, 43	fnmpti 6723	. . . . 5 ⊢ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) Fn dom 𝐻
45	12	eqcomd 2746	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) = (2nd ‘(𝐹 ↾f 𝐻)))
46		fndm 6682	. . . . . . . 8 ⊢ (𝐻 Fn (dom dom 𝐻 × dom dom 𝐻) → dom 𝐻 = (dom dom 𝐻 × dom dom 𝐻))
47	34, 46	syl 17	. . . . . . 7 ⊢ (𝜑 → dom 𝐻 = (dom dom 𝐻 × dom dom 𝐻))
48	38	sqxpeqd 5732	. . . . . . 7 ⊢ (𝜑 → (dom dom 𝐻 × dom dom 𝐻) = ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
49	47, 48	eqtrd 2780	. . . . . 6 ⊢ (𝜑 → dom 𝐻 = ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
50	45, 49	fneq12d 6674	. . . . 5 ⊢ (𝜑 → ((𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) Fn dom 𝐻 ↔ (2nd ‘(𝐹 ↾f 𝐻)) Fn ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻)))))
51	44, 50	mpbii 233	. . . 4 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) Fn ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
52		eqid 2740	. . . . . . . 8 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
53	31	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
54	35	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → dom dom 𝐻 ⊆ (Base‘𝐶))
55		simprl 770	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)))
56	38	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → dom dom 𝐻 = (Base‘(𝐶 ↾cat 𝐻)))
57	55, 56	eleqtrrd 2847	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ dom dom 𝐻)
58	54, 57	sseldd 4009	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ (Base‘𝐶))
59		simprr 772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))
60	59, 56	eleqtrrd 2847	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ dom dom 𝐻)
61	54, 60	sseldd 4009	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ (Base‘𝐶))
62	28, 52, 18, 53, 58, 61	funcf2 17932	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
63	2	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐻 ∈ (Subcat‘𝐶))
64	34	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
65	63, 64, 52, 57, 60	subcss2 17907	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
66	62, 65	fssresd 6788	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
67	1	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐹 ∈ (𝐶 Func 𝐷))
68	67, 63, 64, 57, 60	resf2nd 17959	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦) = ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
69	68	feq1d 6732	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)) ↔ ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦))))
70	66, 69	mpbird 257	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
71	23, 28, 37, 34, 35	reschom 17892	. . . . . . . 8 ⊢ (𝜑 → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
72	71	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
73	72	oveqd 7465	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
74	57	fvresd 6940	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
75	60	fvresd 6940	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st ‘𝐹)‘𝑦))
76	74, 75	oveq12d 7466	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)) = (((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
77	76	eqcomd 2746	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)) = ((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)))
78	73, 77	feq23d 6742	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)) ↔ (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦)⟶((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦))))
79	70, 78	mpbid 232	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦)⟶((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)))
80	1	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝐹 ∈ (𝐶 Func 𝐷))
81	2	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝐻 ∈ (Subcat‘𝐶))
82	34	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
83	38	eleq2d 2830	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ dom dom 𝐻 ↔ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))))
84	83	biimpar 477	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝑥 ∈ dom dom 𝐻)
85	80, 81, 82, 84, 84	resf2nd 17959	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥) = ((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥)))
86		eqid 2740	. . . . . . . 8 ⊢ (Id‘𝐶) = (Id‘𝐶)
87	23, 81, 82, 86, 84	subcid 17911	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐶)‘𝑥) = ((Id‘(𝐶 ↾cat 𝐻))‘𝑥))
88	87	eqcomd 2746	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘(𝐶 ↾cat 𝐻))‘𝑥) = ((Id‘𝐶)‘𝑥))
89	85, 88	fveq12d 6927	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥)‘((Id‘(𝐶 ↾cat 𝐻))‘𝑥)) = (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)))
90	31	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
91	38, 35	eqsstrrd 4048	. . . . . . . 8 ⊢ (𝜑 → (Base‘(𝐶 ↾cat 𝐻)) ⊆ (Base‘𝐶))
92	91	sselda 4008	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝑥 ∈ (Base‘𝐶))
93	28, 86, 20, 90, 92	funcid 17934	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘𝐹)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘((1st ‘𝐹)‘𝑥)))
94	81, 82, 84, 86	subcidcl 17908	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐶)‘𝑥) ∈ (𝑥𝐻𝑥))
95	94	fvresd 6940	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((𝑥(2nd ‘𝐹)𝑥)‘((Id‘𝐶)‘𝑥)))
96	84	fvresd 6940	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
97	96	fveq2d 6924	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)) = ((Id‘𝐷)‘((1st ‘𝐹)‘𝑥)))
98	93, 95, 97	3eqtr4d 2790	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)))
99	89, 98	eqtrd 2780	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥)‘((Id‘(𝐶 ↾cat 𝐻))‘𝑥)) = ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)))
100	2	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐻 ∈ (Subcat‘𝐶))
101	34	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
102		simp21 1206	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)))
103	38	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → dom dom 𝐻 = (Base‘(𝐶 ↾cat 𝐻)))
104	102, 103	eleqtrrd 2847	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ dom dom 𝐻)
105		eqid 2740	. . . . . . . 8 ⊢ (comp‘𝐶) = (comp‘𝐶)
106		simp22 1207	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))
107	106, 103	eleqtrrd 2847	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ dom dom 𝐻)
108		simp23 1208	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻)))
109	108, 103	eleqtrrd 2847	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ dom dom 𝐻)
110		simp3l 1201	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
111	71	3ad2ant1 1133	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
112	111	oveqd 7465	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
113	110, 112	eleqtrrd 2847	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥𝐻𝑦))
114		simp3r 1202	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))
115	111	oveqd 7465	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦𝐻𝑧) = (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))
116	114, 115	eleqtrrd 2847	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦𝐻𝑧))
117	100, 101, 104, 105, 107, 109, 113, 116	subccocl 17909	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐻𝑧))
118	117	fvresd 6940	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ((𝑥(2nd ‘𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)))
119	31	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
120	35	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → dom dom 𝐻 ⊆ (Base‘𝐶))
121	120, 104	sseldd 4009	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ (Base‘𝐶))
122	120, 107	sseldd 4009	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘𝐶))
123	120, 109	sseldd 4009	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘𝐶))
124	100, 101, 52, 104, 107	subcss2 17907	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
125	124, 113	sseldd 4009	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
126	100, 101, 52, 107, 109	subcss2 17907	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦𝐻𝑧) ⊆ (𝑦(Hom ‘𝐶)𝑧))
127	126, 116	sseldd 4009	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
128	28, 52, 105, 22, 119, 121, 122, 123, 125, 127	funcco 17935	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd ‘𝐹)𝑧)‘𝑔)(⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1st ‘𝐹)‘𝑧))((𝑥(2nd ‘𝐹)𝑦)‘𝑓)))
129	118, 128	eqtrd 2780	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd ‘𝐹)𝑧)‘𝑔)(⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1st ‘𝐹)‘𝑧))((𝑥(2nd ‘𝐹)𝑦)‘𝑓)))
130	1	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐹 ∈ (𝐶 Func 𝐷))
131	130, 100, 101, 104, 109	resf2nd 17959	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑧) = ((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧)))
132	23, 28, 37, 34, 35, 105	rescco 17894	. . . . . . . . . 10 ⊢ (𝜑 → (comp‘𝐶) = (comp‘(𝐶 ↾cat 𝐻)))
133	132	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (comp‘𝐶) = (comp‘(𝐶 ↾cat 𝐻)))
134	133	eqcomd 2746	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (comp‘(𝐶 ↾cat 𝐻)) = (comp‘𝐶))
135	134	oveqd 7465	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧) = (⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧))
136	135	oveqd 7465	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
137	131, 136	fveq12d 6927	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧)𝑓)) = (((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)))
138	104	fvresd 6940	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
139	107	fvresd 6940	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st ‘𝐹)‘𝑦))
140	138, 139	opeq12d 4905	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ⟨(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥), (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)⟩ = ⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩)
141	109	fvresd 6940	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑧) = ((1st ‘𝐹)‘𝑧))
142	140, 141	oveq12d 7466	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (⟨(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥), (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)⟩(comp‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑧)) = (⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1st ‘𝐹)‘𝑧)))
143	130, 100, 101, 107, 109	resf2nd 17959	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧) = ((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧)))
144	143	fveq1d 6922	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔) = (((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔))
145	116	fvresd 6940	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔) = ((𝑦(2nd ‘𝐹)𝑧)‘𝑔))
146	144, 145	eqtrd 2780	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔) = ((𝑦(2nd ‘𝐹)𝑧)‘𝑔))
147	130, 100, 101, 104, 107	resf2nd 17959	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦) = ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
148	147	fveq1d 6922	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓) = (((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓))
149	113	fvresd 6940	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓) = ((𝑥(2nd ‘𝐹)𝑦)‘𝑓))
150	148, 149	eqtrd 2780	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓) = ((𝑥(2nd ‘𝐹)𝑦)‘𝑓))
151	142, 146, 150	oveq123d 7469	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔)(⟨(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥), (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)⟩(comp‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑧))((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓)) = (((𝑦(2nd ‘𝐹)𝑧)‘𝑔)(⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1st ‘𝐹)‘𝑧))((𝑥(2nd ‘𝐹)𝑦)‘𝑓)))
152	129, 137, 151	3eqtr4d 2790	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧)𝑓)) = (((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔)(⟨(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥), (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)⟩(comp‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑧))((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓)))
153	15, 16, 17, 18, 19, 20, 21, 22, 24, 27, 40, 51, 79, 99, 152	isfuncd 17929	. . 3 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻)((𝐶 ↾cat 𝐻) Func 𝐷)(2nd ‘(𝐹 ↾f 𝐻)))
154		df-br 5167	. . 3 ⊢ (((1st ‘𝐹) ↾ dom dom 𝐻)((𝐶 ↾cat 𝐻) Func 𝐷)(2nd ‘(𝐹 ↾f 𝐻)) ↔ ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩ ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))
155	153, 154	sylib 218	. 2 ⊢ (𝜑 → ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩ ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))
156	14, 155	eqeltrd 2844	1 ⊢ (𝜑 → (𝐹 ↾f 𝐻) ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108  Vcvv 3488   ⊆ wss 3976  ⟨cop 4654   class class class wbr 5166   ↦ cmpt 5249   × cxp 5698  dom cdm 5700   ↾ cres 5702  Rel wrel 5705   Fn wfn 6568  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448  1^st c1st 8028  2^nd c2nd 8029  Basecbs 17258  Hom chom 17322  compcco 17323  Catccat 17722  Idccid 17723   ↾_cat cresc 17869  Subcatcsubc 17870   Func cfunc 17918   ↾_f cresf 17921

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-er 8763  df-map 8886  df-pm 8887  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-z 12640  df-dec 12759  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-hom 17335  df-cco 17336  df-cat 17726  df-cid 17727  df-homf 17728  df-ssc 17871  df-resc 17872  df-subc 17873  df-func 17922  df-resf 17925

This theorem is referenced by:  funcrngcsetc  20662  funcringcsetc  20696