Theorem funcres 17169

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 17165	. . 3 ⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩)
4	3	fveq2d 6677	. . . . 5 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) = (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩))
5		fvex 6686	. . . . . . 7 ⊢ (1st ‘𝐹) ∈ V
6	5	resex 5902	. . . . . 6 ⊢ ((1st ‘𝐹) ↾ dom dom 𝐻) ∈ V
7		dmexg 7616	. . . . . . 7 ⊢ (𝐻 ∈ (Subcat‘𝐶) → dom 𝐻 ∈ V)
8		mptexg 6987	. . . . . . 7 ⊢ (dom 𝐻 ∈ V → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V)
9	2, 7, 8	3syl 18	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V)
10		op2ndg 7705	. . . . . 6 ⊢ ((((1st ‘𝐹) ↾ dom dom 𝐻) ∈ V ∧ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) ∈ V) → (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
11	6, 9, 10	sylancr 589	. . . . 5 ⊢ (𝜑 → (2nd ‘⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
12	4, 11	eqtrd 2859	. . . 4 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))))
13	12	opeq2d 4813	. . 3 ⊢ (𝜑 → ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩ = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))⟩)
14	3, 13	eqtr4d 2862	. 2 ⊢ (𝜑 → (𝐹 ↾f 𝐻) = ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩)
15		eqid 2824	. . . 4 ⊢ (Base‘(𝐶 ↾cat 𝐻)) = (Base‘(𝐶 ↾cat 𝐻))
16		eqid 2824	. . . 4 ⊢ (Base‘𝐷) = (Base‘𝐷)
17		eqid 2824	. . . 4 ⊢ (Hom ‘(𝐶 ↾cat 𝐻)) = (Hom ‘(𝐶 ↾cat 𝐻))
18		eqid 2824	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
19		eqid 2824	. . . 4 ⊢ (Id‘(𝐶 ↾cat 𝐻)) = (Id‘(𝐶 ↾cat 𝐻))
20		eqid 2824	. . . 4 ⊢ (Id‘𝐷) = (Id‘𝐷)
21		eqid 2824	. . . 4 ⊢ (comp‘(𝐶 ↾cat 𝐻)) = (comp‘(𝐶 ↾cat 𝐻))
22		eqid 2824	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
23		eqid 2824	. . . . 5 ⊢ (𝐶 ↾cat 𝐻) = (𝐶 ↾cat 𝐻)
24	23, 2	subccat 17121	. . . 4 ⊢ (𝜑 → (𝐶 ↾cat 𝐻) ∈ Cat)
25		funcrcl 17136	. . . . . 6 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
26	1, 25	syl 17	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
27	26	simprd 498	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
28		eqid 2824	. . . . . . 7 ⊢ (Base‘𝐶) = (Base‘𝐶)
29		relfunc 17135	. . . . . . . 8 ⊢ Rel (𝐶 Func 𝐷)
30		1st2ndbr 7744	. . . . . . . 8 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
31	29, 1, 30	sylancr 589	. . . . . . 7 ⊢ (𝜑 → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
32	28, 16, 31	funcf1 17139	. . . . . 6 ⊢ (𝜑 → (1st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33		eqidd 2825	. . . . . . . 8 ⊢ (𝜑 → dom dom 𝐻 = dom dom 𝐻)
34	2, 33	subcfn 17114	. . . . . . 7 ⊢ (𝜑 → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
35	2, 34, 28	subcss1 17115	. . . . . 6 ⊢ (𝜑 → dom dom 𝐻 ⊆ (Base‘𝐶))
36	32, 35	fssresd 6548	. . . . 5 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻):dom dom 𝐻⟶(Base‘𝐷))
37	26	simpld 497	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ Cat)
38	23, 28, 37, 34, 35	rescbas 17102	. . . . . 6 ⊢ (𝜑 → dom dom 𝐻 = (Base‘(𝐶 ↾cat 𝐻)))
39	38	feq2d 6503	. . . . 5 ⊢ (𝜑 → (((1st ‘𝐹) ↾ dom dom 𝐻):dom dom 𝐻⟶(Base‘𝐷) ↔ ((1st ‘𝐹) ↾ dom dom 𝐻):(Base‘(𝐶 ↾cat 𝐻))⟶(Base‘𝐷)))
40	36, 39	mpbid 234	. . . 4 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻):(Base‘(𝐶 ↾cat 𝐻))⟶(Base‘𝐷))
41		fvex 6686	. . . . . . 7 ⊢ ((2nd ‘𝐹)‘𝑧) ∈ V
42	41	resex 5902	. . . . . 6 ⊢ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)) ∈ V
43		eqid 2824	. . . . . 6 ⊢ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) = (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧)))
44	42, 43	fnmpti 6494	. . . . 5 ⊢ (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) Fn dom 𝐻
45	12	eqcomd 2830	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) = (2nd ‘(𝐹 ↾f 𝐻)))
46		fndm 6458	. . . . . . . 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 5590	. . . . . . 7 ⊢ (𝜑 → (dom dom 𝐻 × dom dom 𝐻) = ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
49	47, 48	eqtrd 2859	. . . . . 6 ⊢ (𝜑 → dom 𝐻 = ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
50	45, 49	fneq12d 6451	. . . . 5 ⊢ (𝜑 → ((𝑧 ∈ dom 𝐻 ↦ (((2nd ‘𝐹)‘𝑧) ↾ (𝐻‘𝑧))) Fn dom 𝐻 ↔ (2nd ‘(𝐹 ↾f 𝐻)) Fn ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻)))))
51	44, 50	mpbii 235	. . . 4 ⊢ (𝜑 → (2nd ‘(𝐹 ↾f 𝐻)) Fn ((Base‘(𝐶 ↾cat 𝐻)) × (Base‘(𝐶 ↾cat 𝐻))))
52		eqid 2824	. . . . . . . 8 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
53	31	adantr 483	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
54	35	adantr 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → dom dom 𝐻 ⊆ (Base‘𝐶))
55		simprl 769	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)))
56	38	adantr 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → dom dom 𝐻 = (Base‘(𝐶 ↾cat 𝐻)))
57	55, 56	eleqtrrd 2919	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ dom dom 𝐻)
58	54, 57	sseldd 3971	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑥 ∈ (Base‘𝐶))
59		simprr 771	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))
60	59, 56	eleqtrrd 2919	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ dom dom 𝐻)
61	54, 60	sseldd 3971	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝑦 ∈ (Base‘𝐶))
62	28, 52, 18, 53, 58, 61	funcf2 17141	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
63	2	adantr 483	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐻 ∈ (Subcat‘𝐶))
64	34	adantr 483	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
65	63, 64, 52, 57, 60	subcss2 17116	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
66	62, 65	fssresd 6548	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
67	1	adantr 483	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐹 ∈ (𝐶 Func 𝐷))
68	67, 63, 64, 57, 60	resf2nd 17168	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦) = ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
69	68	feq1d 6502	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)) ↔ ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦))))
70	66, 69	mpbird 259	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
71	23, 28, 37, 34, 35	reschom 17103	. . . . . . . 8 ⊢ (𝜑 → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
72	71	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
73	72	oveqd 7176	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
74	57	fvresd 6693	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
75	60	fvresd 6693	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st ‘𝐹)‘𝑦))
76	74, 75	oveq12d 7177	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → ((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)) = (((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)))
77	76	eqcomd 2830	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (((1st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1st ‘𝐹)‘𝑦)) = ((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)))
78	73, 77	feq23d 6512	. . . . 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 234	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦):(𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦)⟶((((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)))
80	1	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝐹 ∈ (𝐶 Func 𝐷))
81	2	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝐻 ∈ (Subcat‘𝐶))
82	34	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
83	38	eleq2d 2901	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ dom dom 𝐻 ↔ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))))
84	83	biimpar 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝑥 ∈ dom dom 𝐻)
85	80, 81, 82, 84, 84	resf2nd 17168	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥) = ((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥)))
86		eqid 2824	. . . . . . . 8 ⊢ (Id‘𝐶) = (Id‘𝐶)
87	23, 81, 82, 86, 84	subcid 17120	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐶)‘𝑥) = ((Id‘(𝐶 ↾cat 𝐻))‘𝑥))
88	87	eqcomd 2830	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘(𝐶 ↾cat 𝐻))‘𝑥) = ((Id‘𝐶)‘𝑥))
89	85, 88	fveq12d 6680	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥)‘((Id‘(𝐶 ↾cat 𝐻))‘𝑥)) = (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)))
90	31	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
91	38, 35	eqsstrrd 4009	. . . . . . . 8 ⊢ (𝜑 → (Base‘(𝐶 ↾cat 𝐻)) ⊆ (Base‘𝐶))
92	91	sselda 3970	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → 𝑥 ∈ (Base‘𝐶))
93	28, 86, 20, 90, 92	funcid 17143	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘𝐹)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘((1st ‘𝐹)‘𝑥)))
94	81, 82, 84, 86	subcidcl 17117	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐶)‘𝑥) ∈ (𝑥𝐻𝑥))
95	94	fvresd 6693	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((𝑥(2nd ‘𝐹)𝑥)‘((Id‘𝐶)‘𝑥)))
96	84	fvresd 6693	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
97	96	fveq2d 6677	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)) = ((Id‘𝐷)‘((1st ‘𝐹)‘𝑥)))
98	93, 95, 97	3eqtr4d 2869	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → (((𝑥(2nd ‘𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)))
99	89, 98	eqtrd 2859	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑥)‘((Id‘(𝐶 ↾cat 𝐻))‘𝑥)) = ((Id‘𝐷)‘(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥)))
100	2	3ad2ant1 1129	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐻 ∈ (Subcat‘𝐶))
101	34	3ad2ant1 1129	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
102		simp21 1202	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)))
103	38	3ad2ant1 1129	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → dom dom 𝐻 = (Base‘(𝐶 ↾cat 𝐻)))
104	102, 103	eleqtrrd 2919	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ dom dom 𝐻)
105		eqid 2824	. . . . . . . 8 ⊢ (comp‘𝐶) = (comp‘𝐶)
106		simp22 1203	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)))
107	106, 103	eleqtrrd 2919	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ dom dom 𝐻)
108		simp23 1204	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻)))
109	108, 103	eleqtrrd 2919	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ dom dom 𝐻)
110		simp3l 1197	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
111	71	3ad2ant1 1129	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐻 = (Hom ‘(𝐶 ↾cat 𝐻)))
112	111	oveqd 7176	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦))
113	110, 112	eleqtrrd 2919	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥𝐻𝑦))
114		simp3r 1198	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))
115	111	oveqd 7176	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦𝐻𝑧) = (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))
116	114, 115	eleqtrrd 2919	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦𝐻𝑧))
117	100, 101, 104, 105, 107, 109, 113, 116	subccocl 17118	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐻𝑧))
118	117	fvresd 6693	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ((𝑥(2nd ‘𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)))
119	31	3ad2ant1 1129	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (1st ‘𝐹)(𝐶 Func 𝐷)(2nd ‘𝐹))
120	35	3ad2ant1 1129	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → dom dom 𝐻 ⊆ (Base‘𝐶))
121	120, 104	sseldd 3971	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑥 ∈ (Base‘𝐶))
122	120, 107	sseldd 3971	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘𝐶))
123	120, 109	sseldd 3971	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘𝐶))
124	100, 101, 52, 104, 107	subcss2 17116	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
125	124, 113	sseldd 3971	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
126	100, 101, 52, 107, 109	subcss2 17116	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦𝐻𝑧) ⊆ (𝑦(Hom ‘𝐶)𝑧))
127	126, 116	sseldd 3971	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
128	28, 52, 105, 22, 119, 121, 122, 123, 125, 127	funcco 17144	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd ‘𝐹)𝑧)‘𝑔)(⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1st ‘𝐹)‘𝑧))((𝑥(2nd ‘𝐹)𝑦)‘𝑓)))
129	118, 128	eqtrd 2859	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd ‘𝐹)𝑧)‘𝑔)(⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1st ‘𝐹)‘𝑧))((𝑥(2nd ‘𝐹)𝑦)‘𝑓)))
130	1	3ad2ant1 1129	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → 𝐹 ∈ (𝐶 Func 𝐷))
131	130, 100, 101, 104, 109	resf2nd 17168	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑧) = ((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧)))
132	23, 28, 37, 34, 35, 105	rescco 17105	. . . . . . . . . 10 ⊢ (𝜑 → (comp‘𝐶) = (comp‘(𝐶 ↾cat 𝐻)))
133	132	3ad2ant1 1129	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (comp‘𝐶) = (comp‘(𝐶 ↾cat 𝐻)))
134	133	eqcomd 2830	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (comp‘(𝐶 ↾cat 𝐻)) = (comp‘𝐶))
135	134	oveqd 7176	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧) = (⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧))
136	135	oveqd 7176	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
137	131, 136	fveq12d 6680	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶 ↾cat 𝐻))𝑧)𝑓)) = (((𝑥(2nd ‘𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)))
138	104	fvresd 6693	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st ‘𝐹)‘𝑥))
139	107	fvresd 6693	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st ‘𝐹)‘𝑦))
140	138, 139	opeq12d 4814	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ⟨(((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑥), (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑦)⟩ = ⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐹)‘𝑦)⟩)
141	109	fvresd 6693	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((1st ‘𝐹) ↾ dom dom 𝐻)‘𝑧) = ((1st ‘𝐹)‘𝑧))
142	140, 141	oveq12d 7177	. . . . . 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 17168	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧) = ((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧)))
144	143	fveq1d 6675	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔) = (((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔))
145	116	fvresd 6693	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑦(2nd ‘𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔) = ((𝑦(2nd ‘𝐹)𝑧)‘𝑔))
146	144, 145	eqtrd 2859	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹 ↾f 𝐻))𝑧)‘𝑔) = ((𝑦(2nd ‘𝐹)𝑧)‘𝑔))
147	130, 100, 101, 104, 107	resf2nd 17168	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦) = ((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
148	147	fveq1d 6675	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓) = (((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓))
149	113	fvresd 6693	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → (((𝑥(2nd ‘𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓) = ((𝑥(2nd ‘𝐹)𝑦)‘𝑓))
150	148, 149	eqtrd 2859	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶 ↾cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶 ↾cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶 ↾cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶 ↾cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹 ↾f 𝐻))𝑦)‘𝑓) = ((𝑥(2nd ‘𝐹)𝑦)‘𝑓))
151	142, 146, 150	oveq123d 7180	. . . . 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 2869	. . . 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 17138	. . 3 ⊢ (𝜑 → ((1st ‘𝐹) ↾ dom dom 𝐻)((𝐶 ↾cat 𝐻) Func 𝐷)(2nd ‘(𝐹 ↾f 𝐻)))
154		df-br 5070	. . 3 ⊢ (((1st ‘𝐹) ↾ dom dom 𝐻)((𝐶 ↾cat 𝐻) Func 𝐷)(2nd ‘(𝐹 ↾f 𝐻)) ↔ ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩ ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))
155	153, 154	sylib 220	. 2 ⊢ (𝜑 → ⟨((1st ‘𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹 ↾f 𝐻))⟩ ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))
156	14, 155	eqeltrd 2916	1 ⊢ (𝜑 → (𝐹 ↾f 𝐻) ∈ ((𝐶 ↾cat 𝐻) Func 𝐷))

Syntax hints:   → wi 4   ∧ wa 398   ∧ w3a 1083   = wceq 1536   ∈ wcel 2113  Vcvv 3497   ⊆ wss 3939  ⟨cop 4576   class class class wbr 5069   ↦ cmpt 5149   × cxp 5556  dom cdm 5558   ↾ cres 5560  Rel wrel 5563   Fn wfn 6353  ⟶wf 6354  ‘cfv 6358  (class class class)co 7159  1^st c1st 7690  2^nd c2nd 7691  Basecbs 16486  Hom chom 16579  compcco 16580  Catccat 16938  Idccid 16939   ↾_cat cresc 17081  Subcatcsubc 17082   Func cfunc 17127   ↾_f cresf 17130

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 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2796  ax-rep 5193  ax-sep 5206  ax-nul 5213  ax-pow 5269  ax-pr 5333  ax-un 7464  ax-cnex 10596  ax-resscn 10597  ax-1cn 10598  ax-icn 10599  ax-addcl 10600  ax-addrcl 10601  ax-mulcl 10602  ax-mulrcl 10603  ax-mulcom 10604  ax-addass 10605  ax-mulass 10606  ax-distr 10607  ax-i2m1 10608  ax-1ne0 10609  ax-1rid 10610  ax-rnegex 10611  ax-rrecex 10612  ax-cnre 10613  ax-pre-lttri 10614  ax-pre-lttrn 10615  ax-pre-ltadd 10616  ax-pre-mulgt0 10617

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1539  df-fal 1549  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2966  df-ne 3020  df-nel 3127  df-ral 3146  df-rex 3147  df-reu 3148  df-rmo 3149  df-rab 3150  df-v 3499  df-sbc 3776  df-csb 3887  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-pss 3957  df-nul 4295  df-if 4471  df-pw 4544  df-sn 4571  df-pr 4573  df-tp 4575  df-op 4577  df-uni 4842  df-iun 4924  df-br 5070  df-opab 5132  df-mpt 5150  df-tr 5176  df-id 5463  df-eprel 5468  df-po 5477  df-so 5478  df-fr 5517  df-we 5519  df-xp 5564  df-rel 5565  df-cnv 5566  df-co 5567  df-dm 5568  df-rn 5569  df-res 5570  df-ima 5571  df-pred 6151  df-ord 6197  df-on 6198  df-lim 6199  df-suc 6200  df-iota 6317  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-riota 7117  df-ov 7162  df-oprab 7163  df-mpo 7164  df-om 7584  df-1st 7692  df-2nd 7693  df-wrecs 7950  df-recs 8011  df-rdg 8049  df-er 8292  df-map 8411  df-pm 8412  df-ixp 8465  df-en 8513  df-dom 8514  df-sdom 8515  df-pnf 10680  df-mnf 10681  df-xr 10682  df-ltxr 10683  df-le 10684  df-sub 10875  df-neg 10876  df-nn 11642  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-ndx 16489  df-slot 16490  df-base 16492  df-sets 16493  df-ress 16494  df-hom 16592  df-cco 16593  df-cat 16942  df-cid 16943  df-homf 16944  df-ssc 17083  df-resc 17084  df-subc 17085  df-func 17131  df-resf 17134

This theorem is referenced by:  funcrngcsetc  44276  funcringcsetc  44313