Theorem funcres 17858

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 17854	. . 3 ⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩)
4	3	fveq2d 6862	. . . . 5 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) = (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩))
5		fvex 6871	. . . . . . 7 ⊢ (1st ‘𝐹) ∈ V
6	5	resex 6000	. . . . . 6 ⊢ ((1st ‘𝐹) ↾ dom dom 𝐻) ∈ V
7		dmexg 7877	. . . . . . 7 ⊢ (𝐻 ∈ (Subcat‘𝐶) → dom 𝐻 ∈ V)
8		mptexg 7195	. . . . . . 7 ⊢ (dom 𝐻 ∈ V → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V)
9	2, 7, 8	3syl 18	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V)
10		op2ndg 7981	. . . . . 6 ⊢ ((((1st ‘𝐹) ↾ dom dom 𝐻) ∈ V ∧ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V) → (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
11	6, 9, 10	sylancr 587	. . . . 5 ⊢ (𝜑 → (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
12	4, 11	eqtrd 2764	. . . 4 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
13	12	opeq2d 4844	. . 3 ⊢ (𝜑 → ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩ = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩)
14	3, 13	eqtr4d 2767	. 2 ⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩)
15		eqid 2729	. . . 4 ⊢ (Base‘(𝐶 ↾cat 𝐻)) = (Base‘(𝐶 ↾cat 𝐻))
16		eqid 2729	. . . 4 ⊢ (Base‘𝐷) = (Base‘𝐷)
17		eqid 2729	. . . 4 ⊢ (Hom ‘(𝐶 ↾cat 𝐻)) = (Hom ‘(𝐶 ↾cat 𝐻))
18		eqid 2729	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
19		eqid 2729	. . . 4 ⊢ (Id‘(𝐶 ↾cat 𝐻)) = (Id‘(𝐶 ↾cat 𝐻))
20		eqid 2729	. . . 4 ⊢ (Id‘𝐷) = (Id‘𝐷)
21		eqid 2729	. . . 4 ⊢ (comp‘(𝐶 ↾cat 𝐻)) = (comp‘(𝐶 ↾cat 𝐻))
22		eqid 2729	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
23		eqid 2729	. . . . 5 ⊢ (𝐶 ↾cat 𝐻) = (𝐶 ↾cat 𝐻)
24	23, 2	subccat 17810	. . . 4 ⊢ (𝜑 → (𝐶 ↾cat 𝐻) ∈ Cat)
25		funcrcl 17825	. . . . . 6 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
26	1, 25	syl 17	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
27	26	simprd 495	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
28		eqid 2729	. . . . . . 7 ⊢ (Base‘𝐶) = (Base‘𝐶)
29		relfunc 17824	. . . . . . . 8 ⊢ Rel (𝐶 Func 𝐷)
30		1st2ndbr 8021	. . . . . . . 8 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
31	29, 1, 30	sylancr 587	. . . . . . 7 ⊢ (𝜑 → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
32	28, 16, 31	funcf1 17828	. . . . . 6 ⊢ (𝜑 → (1st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33		eqidd 2730	. . . . . . . 8 ⊢ (𝜑 → dom dom 𝐻 = dom dom 𝐻)
34	2, 33	subcfn 17803	. . . . . . 7 ⊢ (𝜑 → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
35	2, 34, 28	subcss1 17804	. . . . . 6 ⊢ (𝜑 → dom dom 𝐻 ⊆ (Base‘𝐶))
36	32, 35	fssresd 6727	. . . . 5 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻):dom dom 𝐻⟶(Base‘𝐷))
37	26	simpld 494	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ Cat)
38	23, 28, 37, 34, 35	rescbas 17791	. . . . . 6 ⊢ (𝜑 → dom dom 𝐻 = (Base‘(𝐶 ↾cat 𝐻)))
39	38	feq2d 6672	. . . . 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 6871	. . . . . . 7 ⊢ ((2nd ‘𝐹)‘𝑧) ∈ V
42	41	resex 6000	. . . . . 6 ⊢ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)) ∈ V
43		eqid 2729	. . . . . 6 ⊢ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))
44	42, 43	fnmpti 6661	. . . . 5 ⊢ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) Fn dom 𝐻
45	12	eqcomd 2735	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) = (2nd ‘(𝐹 ↾f 𝐻)))
46		fndm 6621	. . . . . . . 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 5670	. . . . . . 7 ⊢ (𝜑 → (dom dom 𝐻 × dom dom 𝐻) = ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
49	47, 48	eqtrd 2764	. . . . . 6 ⊢ (𝜑 → dom 𝐻 = ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
50	45, 49	fneq12d 6613	. . . . 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 2729	. . . . . . . 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 2831	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ dom dom 𝐻)
58	54, 57	sseldd 3947	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ (Base‘𝐶))
59		simprr 772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))
60	59, 56	eleqtrrd 2831	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ dom dom 𝐻)
61	54, 60	sseldd 3947	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ (Base‘𝐶))
62	28, 52, 18, 53, 58, 61	funcf2 17830	. . . . . . 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 17805	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
66	62, 65	fssresd 6727	. . . . . 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 17857	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦) = ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
69	68	feq1d 6670	. . . . . 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 17792	. . . . . . . 8 ⊢ (𝜑 → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
72	71	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
73	72	oveqd 7404	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
74	57	fvresd 6878	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
75	60	fvresd 6878	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st ‘𝐹)‘𝑦))
76	74, 75	oveq12d 7405	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)) = (((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
77	76	eqcomd 2735	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)) = ((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)))
78	73, 77	feq23d 6683	. . . . 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 2814	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ dom dom 𝐻 ↔ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))))
84	83	biimpar 477	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝑥 ∈ dom dom 𝐻)
85	80, 81, 82, 84, 84	resf2nd 17857	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥) = ((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥)))
86		eqid 2729	. . . . . . . 8 ⊢ (Id‘𝐶) = (Id‘𝐶)
87	23, 81, 82, 86, 84	subcid 17809	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐶)‘𝑥) = ((Id‘(𝐶 ↾cat 𝐻))‘𝑥))
88	87	eqcomd 2735	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘(𝐶 ↾cat 𝐻))‘𝑥) = ((Id‘𝐶)‘𝑥))
89	85, 88	fveq12d 6865	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥)‘((Id‘(𝐶 ↾cat 𝐻))‘𝑥)) = (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)))
90	31	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
91	38, 35	eqsstrrd 3982	. . . . . . . 8 ⊢ (𝜑 → (Base‘(𝐶 ↾cat 𝐻)) ⊆ (Base‘𝐶))
92	91	sselda 3946	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝑥 ∈ (Base‘𝐶))
93	28, 86, 20, 90, 92	funcid 17832	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘𝐹)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘((1st ‘𝐹)‘𝑥)))
94	81, 82, 84, 86	subcidcl 17806	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐶)‘𝑥) ∈ (𝑥𝐻𝑥))
95	94	fvresd 6878	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((𝑥(2nd ‘𝐹)𝑥)‘((Id‘𝐶)‘𝑥)))
96	84	fvresd 6878	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
97	96	fveq2d 6862	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)) = ((Id‘𝐷)‘((1st ‘𝐹)‘𝑥)))
98	93, 95, 97	3eqtr4d 2774	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)))
99	89, 98	eqtrd 2764	. . . 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 1207	. . . . . . . . 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 2831	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ dom dom 𝐻)
105		eqid 2729	. . . . . . . 8 ⊢ (comp‘𝐶) = (comp‘𝐶)
106		simp22 1208	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))
107	106, 103	eleqtrrd 2831	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ dom dom 𝐻)
108		simp23 1209	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻)))
109	108, 103	eleqtrrd 2831	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ dom dom 𝐻)
110		simp3l 1202	. . . . . . . . 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 7404	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
113	110, 112	eleqtrrd 2831	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥𝐻𝑦))
114		simp3r 1203	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))
115	111	oveqd 7404	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦𝐻𝑧) = (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))
116	114, 115	eleqtrrd 2831	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦𝐻𝑧))
117	100, 101, 104, 105, 107, 109, 113, 116	subccocl 17807	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐻𝑧))
118	117	fvresd 6878	. . . . . 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 3947	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ (Base‘𝐶))
122	120, 107	sseldd 3947	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘𝐶))
123	120, 109	sseldd 3947	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘𝐶))
124	100, 101, 52, 104, 107	subcss2 17805	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
125	124, 113	sseldd 3947	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
126	100, 101, 52, 107, 109	subcss2 17805	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦𝐻𝑧) ⊆ (𝑦(Hom ‘𝐶)𝑧))
127	126, 116	sseldd 3947	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
128	28, 52, 105, 22, 119, 121, 122, 123, 125, 127	funcco 17833	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd ‘𝐹)𝑧)‘𝑔)(⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1st ‘𝐹)‘𝑧))((𝑥(2nd ‘𝐹)𝑦)‘𝑓)))
129	118, 128	eqtrd 2764	. . . . 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 17857	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑧) = ((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧)))
132	23, 28, 37, 34, 35, 105	rescco 17794	. . . . . . . . . 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 2735	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (comp‘(𝐶 ↾cat 𝐻)) = (comp‘𝐶))
135	134	oveqd 7404	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧) = (⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧))
136	135	oveqd 7404	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
137	131, 136	fveq12d 6865	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧)𝑓)) = (((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)))
138	104	fvresd 6878	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
139	107	fvresd 6878	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st ‘𝐹)‘𝑦))
140	138, 139	opeq12d 4845	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ⟨(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥), (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)⟩ = ⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩)
141	109	fvresd 6878	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑧) = ((1st ‘𝐹)‘𝑧))
142	140, 141	oveq12d 7405	. . . . . 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 17857	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧) = ((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧)))
144	143	fveq1d 6860	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔) = (((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔))
145	116	fvresd 6878	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔) = ((𝑦(2nd ‘𝐹)𝑧)‘𝑔))
146	144, 145	eqtrd 2764	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔) = ((𝑦(2nd ‘𝐹)𝑧)‘𝑔))
147	130, 100, 101, 104, 107	resf2nd 17857	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦) = ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
148	147	fveq1d 6860	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓) = (((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓))
149	113	fvresd 6878	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓) = ((𝑥(2nd ‘𝐹)𝑦)‘𝑓))
150	148, 149	eqtrd 2764	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓) = ((𝑥(2nd ‘𝐹)𝑦)‘𝑓))
151	142, 146, 150	oveq123d 7408	. . . . 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 2774	. . . 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 17827	. . 3 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻)((𝐶 ↾cat 𝐻) Func 𝐷)(2nd ‘(𝐹 ↾f 𝐻)))
154		df-br 5108	. . 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 2828	1 ⊢ (𝜑 → (𝐹 ↾f 𝐻) ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  Vcvv 3447   ⊆ wss 3914  ⟨cop 4595   class class class wbr 5107   ↦ cmpt 5188   × cxp 5636  dom cdm 5638   ↾ cres 5640  Rel wrel 5643   Fn wfn 6506  ⟶wf 6507  ‘cfv 6511  (class class class)co 7387  1^st c1st 7966  2^nd c2nd 7967  Basecbs 17179  Hom chom 17231  compcco 17232  Catccat 17625  Idccid 17626   ↾_cat cresc 17770  Subcatcsubc 17771   Func cfunc 17816   ↾_f cresf 17819

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-cnex 11124  ax-resscn 11125  ax-1cn 11126  ax-icn 11127  ax-addcl 11128  ax-addrcl 11129  ax-mulcl 11130  ax-mulrcl 11131  ax-mulcom 11132  ax-addass 11133  ax-mulass 11134  ax-distr 11135  ax-i2m1 11136  ax-1ne0 11137  ax-1rid 11138  ax-rnegex 11139  ax-rrecex 11140  ax-cnre 11141  ax-pre-lttri 11142  ax-pre-lttrn 11143  ax-pre-ltadd 11144  ax-pre-mulgt0 11145

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3354  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4872  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-riota 7344  df-ov 7390  df-oprab 7391  df-mpo 7392  df-om 7843  df-1st 7968  df-2nd 7969  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-er 8671  df-map 8801  df-pm 8802  df-ixp 8871  df-en 8919  df-dom 8920  df-sdom 8921  df-pnf 11210  df-mnf 11211  df-xr 11212  df-ltxr 11213  df-le 11214  df-sub 11407  df-neg 11408  df-nn 12187  df-2 12249  df-3 12250  df-4 12251  df-5 12252  df-6 12253  df-7 12254  df-8 12255  df-9 12256  df-n0 12443  df-z 12530  df-dec 12650  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-hom 17244  df-cco 17245  df-cat 17629  df-cid 17630  df-homf 17631  df-ssc 17772  df-resc 17773  df-subc 17774  df-func 17820  df-resf 17823

This theorem is referenced by:  funcrngcsetc  20549  funcringcsetc  20583