MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  funcres Structured version   Visualization version   GIF version

Theorem funcres 17681
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.
StepHypRef Expression
1 funcres.f . . . 4 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
2 funcres.h . . . 4 (𝜑𝐻 ∈ (Subcat‘𝐶))
31, 2resfval 17677 . . 3 (𝜑 → (𝐹f 𝐻) = ⟨((1st𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧)))⟩)
43fveq2d 6815 . . . . 5 (𝜑 → (2nd ‘(𝐹f 𝐻)) = (2nd ‘⟨((1st𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧)))⟩))
5 fvex 6824 . . . . . . 7 (1st𝐹) ∈ V
65resex 5958 . . . . . 6 ((1st𝐹) ↾ dom dom 𝐻) ∈ V
7 dmexg 7795 . . . . . . 7 (𝐻 ∈ (Subcat‘𝐶) → dom 𝐻 ∈ V)
8 mptexg 7136 . . . . . . 7 (dom 𝐻 ∈ V → (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))) ∈ V)
92, 7, 83syl 18 . . . . . 6 (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))) ∈ V)
10 op2ndg 7889 . . . . . 6 ((((1st𝐹) ↾ dom dom 𝐻) ∈ V ∧ (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))) ∈ V) → (2nd ‘⟨((1st𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))))
116, 9, 10sylancr 587 . . . . 5 (𝜑 → (2nd ‘⟨((1st𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧)))⟩) = (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))))
124, 11eqtrd 2777 . . . 4 (𝜑 → (2nd ‘(𝐹f 𝐻)) = (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))))
1312opeq2d 4822 . . 3 (𝜑 → ⟨((1st𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹f 𝐻))⟩ = ⟨((1st𝐹) ↾ dom dom 𝐻), (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧)))⟩)
143, 13eqtr4d 2780 . 2 (𝜑 → (𝐹f 𝐻) = ⟨((1st𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹f 𝐻))⟩)
15 eqid 2737 . . . 4 (Base‘(𝐶cat 𝐻)) = (Base‘(𝐶cat 𝐻))
16 eqid 2737 . . . 4 (Base‘𝐷) = (Base‘𝐷)
17 eqid 2737 . . . 4 (Hom ‘(𝐶cat 𝐻)) = (Hom ‘(𝐶cat 𝐻))
18 eqid 2737 . . . 4 (Hom ‘𝐷) = (Hom ‘𝐷)
19 eqid 2737 . . . 4 (Id‘(𝐶cat 𝐻)) = (Id‘(𝐶cat 𝐻))
20 eqid 2737 . . . 4 (Id‘𝐷) = (Id‘𝐷)
21 eqid 2737 . . . 4 (comp‘(𝐶cat 𝐻)) = (comp‘(𝐶cat 𝐻))
22 eqid 2737 . . . 4 (comp‘𝐷) = (comp‘𝐷)
23 eqid 2737 . . . . 5 (𝐶cat 𝐻) = (𝐶cat 𝐻)
2423, 2subccat 17633 . . . 4 (𝜑 → (𝐶cat 𝐻) ∈ Cat)
25 funcrcl 17648 . . . . . 6 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
261, 25syl 17 . . . . 5 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
2726simprd 496 . . . 4 (𝜑𝐷 ∈ Cat)
28 eqid 2737 . . . . . . 7 (Base‘𝐶) = (Base‘𝐶)
29 relfunc 17647 . . . . . . . 8 Rel (𝐶 Func 𝐷)
30 1st2ndbr 7928 . . . . . . . 8 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
3129, 1, 30sylancr 587 . . . . . . 7 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
3228, 16, 31funcf1 17651 . . . . . 6 (𝜑 → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33 eqidd 2738 . . . . . . . 8 (𝜑 → dom dom 𝐻 = dom dom 𝐻)
342, 33subcfn 17626 . . . . . . 7 (𝜑𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
352, 34, 28subcss1 17627 . . . . . 6 (𝜑 → dom dom 𝐻 ⊆ (Base‘𝐶))
3632, 35fssresd 6678 . . . . 5 (𝜑 → ((1st𝐹) ↾ dom dom 𝐻):dom dom 𝐻⟶(Base‘𝐷))
3726simpld 495 . . . . . . 7 (𝜑𝐶 ∈ Cat)
3823, 28, 37, 34, 35rescbas 17611 . . . . . 6 (𝜑 → dom dom 𝐻 = (Base‘(𝐶cat 𝐻)))
3938feq2d 6623 . . . . 5 (𝜑 → (((1st𝐹) ↾ dom dom 𝐻):dom dom 𝐻⟶(Base‘𝐷) ↔ ((1st𝐹) ↾ dom dom 𝐻):(Base‘(𝐶cat 𝐻))⟶(Base‘𝐷)))
4036, 39mpbid 231 . . . 4 (𝜑 → ((1st𝐹) ↾ dom dom 𝐻):(Base‘(𝐶cat 𝐻))⟶(Base‘𝐷))
41 fvex 6824 . . . . . . 7 ((2nd𝐹)‘𝑧) ∈ V
4241resex 5958 . . . . . 6 (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧)) ∈ V
43 eqid 2737 . . . . . 6 (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))) = (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧)))
4442, 43fnmpti 6613 . . . . 5 (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))) Fn dom 𝐻
4512eqcomd 2743 . . . . . 6 (𝜑 → (𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))) = (2nd ‘(𝐹f 𝐻)))
46 fndm 6574 . . . . . . . 8 (𝐻 Fn (dom dom 𝐻 × dom dom 𝐻) → dom 𝐻 = (dom dom 𝐻 × dom dom 𝐻))
4734, 46syl 17 . . . . . . 7 (𝜑 → dom 𝐻 = (dom dom 𝐻 × dom dom 𝐻))
4838sqxpeqd 5639 . . . . . . 7 (𝜑 → (dom dom 𝐻 × dom dom 𝐻) = ((Base‘(𝐶cat 𝐻)) × (Base‘(𝐶cat 𝐻))))
4947, 48eqtrd 2777 . . . . . 6 (𝜑 → dom 𝐻 = ((Base‘(𝐶cat 𝐻)) × (Base‘(𝐶cat 𝐻))))
5045, 49fneq12d 6566 . . . . 5 (𝜑 → ((𝑧 ∈ dom 𝐻 ↦ (((2nd𝐹)‘𝑧) ↾ (𝐻𝑧))) Fn dom 𝐻 ↔ (2nd ‘(𝐹f 𝐻)) Fn ((Base‘(𝐶cat 𝐻)) × (Base‘(𝐶cat 𝐻)))))
5144, 50mpbii 232 . . . 4 (𝜑 → (2nd ‘(𝐹f 𝐻)) Fn ((Base‘(𝐶cat 𝐻)) × (Base‘(𝐶cat 𝐻))))
52 eqid 2737 . . . . . . . 8 (Hom ‘𝐶) = (Hom ‘𝐶)
5331adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
5435adantr 481 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → dom dom 𝐻 ⊆ (Base‘𝐶))
55 simprl 768 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝑥 ∈ (Base‘(𝐶cat 𝐻)))
5638adantr 481 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → dom dom 𝐻 = (Base‘(𝐶cat 𝐻)))
5755, 56eleqtrrd 2841 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝑥 ∈ dom dom 𝐻)
5854, 57sseldd 3932 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝑥 ∈ (Base‘𝐶))
59 simprr 770 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝑦 ∈ (Base‘(𝐶cat 𝐻)))
6059, 56eleqtrrd 2841 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝑦 ∈ dom dom 𝐻)
6154, 60sseldd 3932 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝑦 ∈ (Base‘𝐶))
6228, 52, 18, 53, 58, 61funcf2 17653 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
632adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝐻 ∈ (Subcat‘𝐶))
6434adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
6563, 64, 52, 57, 60subcss2 17628 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
6662, 65fssresd 6678 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → ((𝑥(2nd𝐹)𝑦) ↾ (𝑥𝐻𝑦)):(𝑥𝐻𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
671adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝐹 ∈ (𝐶 Func 𝐷))
6867, 63, 64, 57, 60resf2nd 17680 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (𝑥(2nd ‘(𝐹f 𝐻))𝑦) = ((𝑥(2nd𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
6968feq1d 6622 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → ((𝑥(2nd ‘(𝐹f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) ↔ ((𝑥(2nd𝐹)𝑦) ↾ (𝑥𝐻𝑦)):(𝑥𝐻𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦))))
7066, 69mpbird 256 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (𝑥(2nd ‘(𝐹f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
7123, 28, 37, 34, 35reschom 17613 . . . . . . . 8 (𝜑𝐻 = (Hom ‘(𝐶cat 𝐻)))
7271adantr 481 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → 𝐻 = (Hom ‘(𝐶cat 𝐻)))
7372oveqd 7332 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶cat 𝐻))𝑦))
7457fvresd 6831 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (((1st𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st𝐹)‘𝑥))
7560fvresd 6831 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (((1st𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st𝐹)‘𝑦))
7674, 75oveq12d 7333 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → ((((1st𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st𝐹) ↾ dom dom 𝐻)‘𝑦)) = (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
7776eqcomd 2743 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) = ((((1st𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st𝐹) ↾ dom dom 𝐻)‘𝑦)))
7873, 77feq23d 6632 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → ((𝑥(2nd ‘(𝐹f 𝐻))𝑦):(𝑥𝐻𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) ↔ (𝑥(2nd ‘(𝐹f 𝐻))𝑦):(𝑥(Hom ‘(𝐶cat 𝐻))𝑦)⟶((((1st𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st𝐹) ↾ dom dom 𝐻)‘𝑦))))
7970, 78mpbid 231 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)))) → (𝑥(2nd ‘(𝐹f 𝐻))𝑦):(𝑥(Hom ‘(𝐶cat 𝐻))𝑦)⟶((((1st𝐹) ↾ dom dom 𝐻)‘𝑥)(Hom ‘𝐷)(((1st𝐹) ↾ dom dom 𝐻)‘𝑦)))
801adantr 481 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → 𝐹 ∈ (𝐶 Func 𝐷))
812adantr 481 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → 𝐻 ∈ (Subcat‘𝐶))
8234adantr 481 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
8338eleq2d 2823 . . . . . . . 8 (𝜑 → (𝑥 ∈ dom dom 𝐻𝑥 ∈ (Base‘(𝐶cat 𝐻))))
8483biimpar 478 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → 𝑥 ∈ dom dom 𝐻)
8580, 81, 82, 84, 84resf2nd 17680 . . . . . 6 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → (𝑥(2nd ‘(𝐹f 𝐻))𝑥) = ((𝑥(2nd𝐹)𝑥) ↾ (𝑥𝐻𝑥)))
86 eqid 2737 . . . . . . . 8 (Id‘𝐶) = (Id‘𝐶)
8723, 81, 82, 86, 84subcid 17632 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → ((Id‘𝐶)‘𝑥) = ((Id‘(𝐶cat 𝐻))‘𝑥))
8887eqcomd 2743 . . . . . 6 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → ((Id‘(𝐶cat 𝐻))‘𝑥) = ((Id‘𝐶)‘𝑥))
8985, 88fveq12d 6818 . . . . 5 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → ((𝑥(2nd ‘(𝐹f 𝐻))𝑥)‘((Id‘(𝐶cat 𝐻))‘𝑥)) = (((𝑥(2nd𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)))
9031adantr 481 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
9138, 35eqsstrrd 3970 . . . . . . . 8 (𝜑 → (Base‘(𝐶cat 𝐻)) ⊆ (Base‘𝐶))
9291sselda 3931 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → 𝑥 ∈ (Base‘𝐶))
9328, 86, 20, 90, 92funcid 17655 . . . . . 6 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → ((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘((1st𝐹)‘𝑥)))
9481, 82, 84, 86subcidcl 17629 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → ((Id‘𝐶)‘𝑥) ∈ (𝑥𝐻𝑥))
9594fvresd 6831 . . . . . 6 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → (((𝑥(2nd𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)))
9684fvresd 6831 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → (((1st𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st𝐹)‘𝑥))
9796fveq2d 6815 . . . . . 6 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → ((Id‘𝐷)‘(((1st𝐹) ↾ dom dom 𝐻)‘𝑥)) = ((Id‘𝐷)‘((1st𝐹)‘𝑥)))
9893, 95, 973eqtr4d 2787 . . . . 5 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → (((𝑥(2nd𝐹)𝑥) ↾ (𝑥𝐻𝑥))‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘(((1st𝐹) ↾ dom dom 𝐻)‘𝑥)))
9989, 98eqtrd 2777 . . . 4 ((𝜑𝑥 ∈ (Base‘(𝐶cat 𝐻))) → ((𝑥(2nd ‘(𝐹f 𝐻))𝑥)‘((Id‘(𝐶cat 𝐻))‘𝑥)) = ((Id‘𝐷)‘(((1st𝐹) ↾ dom dom 𝐻)‘𝑥)))
10023ad2ant1 1132 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝐻 ∈ (Subcat‘𝐶))
101343ad2ant1 1132 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝐻 Fn (dom dom 𝐻 × dom dom 𝐻))
102 simp21 1205 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑥 ∈ (Base‘(𝐶cat 𝐻)))
103383ad2ant1 1132 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → dom dom 𝐻 = (Base‘(𝐶cat 𝐻)))
104102, 103eleqtrrd 2841 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑥 ∈ dom dom 𝐻)
105 eqid 2737 . . . . . . . 8 (comp‘𝐶) = (comp‘𝐶)
106 simp22 1206 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘(𝐶cat 𝐻)))
107106, 103eleqtrrd 2841 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑦 ∈ dom dom 𝐻)
108 simp23 1207 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘(𝐶cat 𝐻)))
109108, 103eleqtrrd 2841 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑧 ∈ dom dom 𝐻)
110 simp3l 1200 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦))
111713ad2ant1 1132 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝐻 = (Hom ‘(𝐶cat 𝐻)))
112111oveqd 7332 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑥𝐻𝑦) = (𝑥(Hom ‘(𝐶cat 𝐻))𝑦))
113110, 112eleqtrrd 2841 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥𝐻𝑦))
114 simp3r 1201 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))
115111oveqd 7332 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑦𝐻𝑧) = (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))
116114, 115eleqtrrd 2841 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦𝐻𝑧))
117100, 101, 104, 105, 107, 109, 113, 116subccocl 17630 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐻𝑧))
118117fvresd 6831 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (((𝑥(2nd𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)))
119313ad2ant1 1132 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
120353ad2ant1 1132 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → dom dom 𝐻 ⊆ (Base‘𝐶))
121120, 104sseldd 3932 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑥 ∈ (Base‘𝐶))
122120, 107sseldd 3932 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑦 ∈ (Base‘𝐶))
123120, 109sseldd 3932 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑧 ∈ (Base‘𝐶))
124100, 101, 52, 104, 107subcss2 17628 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑥𝐻𝑦) ⊆ (𝑥(Hom ‘𝐶)𝑦))
125124, 113sseldd 3932 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
126100, 101, 52, 107, 109subcss2 17628 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑦𝐻𝑧) ⊆ (𝑦(Hom ‘𝐶)𝑧))
127126, 116sseldd 3932 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
12828, 52, 105, 22, 119, 121, 122, 123, 125, 127funcco 17656 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → ((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)))
129118, 128eqtrd 2777 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (((𝑥(2nd𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)))
13013ad2ant1 1132 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → 𝐹 ∈ (𝐶 Func 𝐷))
131130, 100, 101, 104, 109resf2nd 17680 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹f 𝐻))𝑧) = ((𝑥(2nd𝐹)𝑧) ↾ (𝑥𝐻𝑧)))
13223, 28, 37, 34, 35, 105rescco 17615 . . . . . . . . . 10 (𝜑 → (comp‘𝐶) = (comp‘(𝐶cat 𝐻)))
1331323ad2ant1 1132 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (comp‘𝐶) = (comp‘(𝐶cat 𝐻)))
134133eqcomd 2743 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (comp‘(𝐶cat 𝐻)) = (comp‘𝐶))
135134oveqd 7332 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝐶cat 𝐻))𝑧) = (⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧))
136135oveqd 7332 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶cat 𝐻))𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
137131, 136fveq12d 6818 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹f 𝐻))𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝐶cat 𝐻))𝑧)𝑓)) = (((𝑥(2nd𝐹)𝑧) ↾ (𝑥𝐻𝑧))‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)))
138104fvresd 6831 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (((1st𝐹) ↾ dom dom 𝐻)‘𝑥) = ((1st𝐹)‘𝑥))
139107fvresd 6831 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (((1st𝐹) ↾ dom dom 𝐻)‘𝑦) = ((1st𝐹)‘𝑦))
140138, 139opeq12d 4823 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → ⟨(((1st𝐹) ↾ dom dom 𝐻)‘𝑥), (((1st𝐹) ↾ dom dom 𝐻)‘𝑦)⟩ = ⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩)
141109fvresd 6831 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (((1st𝐹) ↾ dom dom 𝐻)‘𝑧) = ((1st𝐹)‘𝑧))
142140, 141oveq12d 7333 . . . . . 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𝐹)‘𝑧)))
143130, 100, 101, 107, 109resf2nd 17680 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑦(2nd ‘(𝐹f 𝐻))𝑧) = ((𝑦(2nd𝐹)𝑧) ↾ (𝑦𝐻𝑧)))
144143fveq1d 6813 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹f 𝐻))𝑧)‘𝑔) = (((𝑦(2nd𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔))
145116fvresd 6831 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (((𝑦(2nd𝐹)𝑧) ↾ (𝑦𝐻𝑧))‘𝑔) = ((𝑦(2nd𝐹)𝑧)‘𝑔))
146144, 145eqtrd 2777 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → ((𝑦(2nd ‘(𝐹f 𝐻))𝑧)‘𝑔) = ((𝑦(2nd𝐹)𝑧)‘𝑔))
147130, 100, 101, 104, 107resf2nd 17680 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (𝑥(2nd ‘(𝐹f 𝐻))𝑦) = ((𝑥(2nd𝐹)𝑦) ↾ (𝑥𝐻𝑦)))
148147fveq1d 6813 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹f 𝐻))𝑦)‘𝑓) = (((𝑥(2nd𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓))
149113fvresd 6831 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → (((𝑥(2nd𝐹)𝑦) ↾ (𝑥𝐻𝑦))‘𝑓) = ((𝑥(2nd𝐹)𝑦)‘𝑓))
150148, 149eqtrd 2777 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑦 ∈ (Base‘(𝐶cat 𝐻)) ∧ 𝑧 ∈ (Base‘(𝐶cat 𝐻))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝐶cat 𝐻))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝐶cat 𝐻))𝑧))) → ((𝑥(2nd ‘(𝐹f 𝐻))𝑦)‘𝑓) = ((𝑥(2nd𝐹)𝑦)‘𝑓))
151142, 146, 150oveq123d 7336 . . . . 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𝐹)𝑦)‘𝑓)))
152129, 137, 1513eqtr4d 2787 . . . 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 𝐻))𝑦)‘𝑓)))
15315, 16, 17, 18, 19, 20, 21, 22, 24, 27, 40, 51, 79, 99, 152isfuncd 17650 . . 3 (𝜑 → ((1st𝐹) ↾ dom dom 𝐻)((𝐶cat 𝐻) Func 𝐷)(2nd ‘(𝐹f 𝐻)))
154 df-br 5088 . . 3 (((1st𝐹) ↾ dom dom 𝐻)((𝐶cat 𝐻) Func 𝐷)(2nd ‘(𝐹f 𝐻)) ↔ ⟨((1st𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹f 𝐻))⟩ ∈ ((𝐶cat 𝐻) Func 𝐷))
155153, 154sylib 217 . 2 (𝜑 → ⟨((1st𝐹) ↾ dom dom 𝐻), (2nd ‘(𝐹f 𝐻))⟩ ∈ ((𝐶cat 𝐻) Func 𝐷))
15614, 155eqeltrd 2838 1 (𝜑 → (𝐹f 𝐻) ∈ ((𝐶cat 𝐻) Func 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1086   = wceq 1540  wcel 2105  Vcvv 3441  wss 3897  cop 4577   class class class wbr 5087  cmpt 5170   × cxp 5605  dom cdm 5607  cres 5609  Rel wrel 5612   Fn wfn 6460  wf 6461  cfv 6465  (class class class)co 7315  1st c1st 7874  2nd c2nd 7875  Basecbs 16982  Hom chom 17043  compcco 17044  Catccat 17443  Idccid 17444  cat cresc 17590  Subcatcsubc 17591   Func cfunc 17639  f cresf 17642
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2708  ax-rep 5224  ax-sep 5238  ax-nul 5245  ax-pow 5303  ax-pr 5367  ax-un 7628  ax-cnex 11000  ax-resscn 11001  ax-1cn 11002  ax-icn 11003  ax-addcl 11004  ax-addrcl 11005  ax-mulcl 11006  ax-mulrcl 11007  ax-mulcom 11008  ax-addass 11009  ax-mulass 11010  ax-distr 11011  ax-i2m1 11012  ax-1ne0 11013  ax-1rid 11014  ax-rnegex 11015  ax-rrecex 11016  ax-cnre 11017  ax-pre-lttri 11018  ax-pre-lttrn 11019  ax-pre-ltadd 11020  ax-pre-mulgt0 11021
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3443  df-sbc 3727  df-csb 3843  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-pss 3916  df-nul 4268  df-if 4472  df-pw 4547  df-sn 4572  df-pr 4574  df-op 4578  df-uni 4851  df-iun 4939  df-br 5088  df-opab 5150  df-mpt 5171  df-tr 5205  df-id 5507  df-eprel 5513  df-po 5521  df-so 5522  df-fr 5562  df-we 5564  df-xp 5613  df-rel 5614  df-cnv 5615  df-co 5616  df-dm 5617  df-rn 5618  df-res 5619  df-ima 5620  df-pred 6224  df-ord 6291  df-on 6292  df-lim 6293  df-suc 6294  df-iota 6417  df-fun 6467  df-fn 6468  df-f 6469  df-f1 6470  df-fo 6471  df-f1o 6472  df-fv 6473  df-riota 7272  df-ov 7318  df-oprab 7319  df-mpo 7320  df-om 7758  df-1st 7876  df-2nd 7877  df-frecs 8144  df-wrecs 8175  df-recs 8249  df-rdg 8288  df-er 8546  df-map 8665  df-pm 8666  df-ixp 8734  df-en 8782  df-dom 8783  df-sdom 8784  df-pnf 11084  df-mnf 11085  df-xr 11086  df-ltxr 11087  df-le 11088  df-sub 11280  df-neg 11281  df-nn 12047  df-2 12109  df-3 12110  df-4 12111  df-5 12112  df-6 12113  df-7 12114  df-8 12115  df-9 12116  df-n0 12307  df-z 12393  df-dec 12511  df-sets 16935  df-slot 16953  df-ndx 16965  df-base 16983  df-ress 17012  df-hom 17056  df-cco 17057  df-cat 17447  df-cid 17448  df-homf 17449  df-ssc 17592  df-resc 17593  df-subc 17594  df-func 17643  df-resf 17646
This theorem is referenced by:  funcrngcsetc  45808  funcringcsetc  45845
  Copyright terms: Public domain W3C validator