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

Theorem fuccocl 16846
Description: The composition of two natural transformations is a natural transformation. Remark 6.14(a) in [Adamek] p. 87. (Contributed by Mario Carneiro, 6-Jan-2017.)
Hypotheses
Ref Expression
fuccocl.q 𝑄 = (𝐶 FuncCat 𝐷)
fuccocl.n 𝑁 = (𝐶 Nat 𝐷)
fuccocl.x = (comp‘𝑄)
fuccocl.r (𝜑𝑅 ∈ (𝐹𝑁𝐺))
fuccocl.s (𝜑𝑆 ∈ (𝐺𝑁𝐻))
Assertion
Ref Expression
fuccocl (𝜑 → (𝑆(⟨𝐹, 𝐺 𝐻)𝑅) ∈ (𝐹𝑁𝐻))

Proof of Theorem fuccocl
Dummy variables 𝑥 𝑓 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fuccocl.q . . . 4 𝑄 = (𝐶 FuncCat 𝐷)
2 fuccocl.n . . . 4 𝑁 = (𝐶 Nat 𝐷)
3 eqid 2761 . . . 4 (Base‘𝐶) = (Base‘𝐶)
4 eqid 2761 . . . 4 (comp‘𝐷) = (comp‘𝐷)
5 fuccocl.x . . . 4 = (comp‘𝑄)
6 fuccocl.r . . . 4 (𝜑𝑅 ∈ (𝐹𝑁𝐺))
7 fuccocl.s . . . 4 (𝜑𝑆 ∈ (𝐺𝑁𝐻))
81, 2, 3, 4, 5, 6, 7fucco 16844 . . 3 (𝜑 → (𝑆(⟨𝐹, 𝐺 𝐻)𝑅) = (𝑥 ∈ (Base‘𝐶) ↦ ((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥))))
9 eqid 2761 . . . . . 6 (Base‘𝐷) = (Base‘𝐷)
10 eqid 2761 . . . . . 6 (Hom ‘𝐷) = (Hom ‘𝐷)
112natrcl 16832 . . . . . . . . . . 11 (𝑅 ∈ (𝐹𝑁𝐺) → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)))
126, 11syl 17 . . . . . . . . . 10 (𝜑 → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)))
1312simpld 477 . . . . . . . . 9 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
14 funcrcl 16745 . . . . . . . . 9 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
1513, 14syl 17 . . . . . . . 8 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
1615simprd 482 . . . . . . 7 (𝜑𝐷 ∈ Cat)
1716adantr 472 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
18 relfunc 16744 . . . . . . . . 9 Rel (𝐶 Func 𝐷)
19 1st2ndbr 7386 . . . . . . . . 9 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
2018, 13, 19sylancr 698 . . . . . . . 8 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
213, 9, 20funcf1 16748 . . . . . . 7 (𝜑 → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
2221ffvelrnda 6524 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
232natrcl 16832 . . . . . . . . . . 11 (𝑆 ∈ (𝐺𝑁𝐻) → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝐻 ∈ (𝐶 Func 𝐷)))
247, 23syl 17 . . . . . . . . . 10 (𝜑 → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝐻 ∈ (𝐶 Func 𝐷)))
2524simpld 477 . . . . . . . . 9 (𝜑𝐺 ∈ (𝐶 Func 𝐷))
26 1st2ndbr 7386 . . . . . . . . 9 ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
2718, 25, 26sylancr 698 . . . . . . . 8 (𝜑 → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
283, 9, 27funcf1 16748 . . . . . . 7 (𝜑 → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐷))
2928ffvelrnda 6524 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐷))
3024simprd 482 . . . . . . . . 9 (𝜑𝐻 ∈ (𝐶 Func 𝐷))
31 1st2ndbr 7386 . . . . . . . . 9 ((Rel (𝐶 Func 𝐷) ∧ 𝐻 ∈ (𝐶 Func 𝐷)) → (1st𝐻)(𝐶 Func 𝐷)(2nd𝐻))
3218, 30, 31sylancr 698 . . . . . . . 8 (𝜑 → (1st𝐻)(𝐶 Func 𝐷)(2nd𝐻))
333, 9, 32funcf1 16748 . . . . . . 7 (𝜑 → (1st𝐻):(Base‘𝐶)⟶(Base‘𝐷))
3433ffvelrnda 6524 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐻)‘𝑥) ∈ (Base‘𝐷))
352, 6nat1st2nd 16833 . . . . . . . 8 (𝜑𝑅 ∈ (⟨(1st𝐹), (2nd𝐹)⟩𝑁⟨(1st𝐺), (2nd𝐺)⟩))
3635adantr 472 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝑅 ∈ (⟨(1st𝐹), (2nd𝐹)⟩𝑁⟨(1st𝐺), (2nd𝐺)⟩))
37 simpr 479 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
382, 36, 3, 10, 37natcl 16835 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → (𝑅𝑥) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐺)‘𝑥)))
392, 7nat1st2nd 16833 . . . . . . . 8 (𝜑𝑆 ∈ (⟨(1st𝐺), (2nd𝐺)⟩𝑁⟨(1st𝐻), (2nd𝐻)⟩))
4039adantr 472 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝑆 ∈ (⟨(1st𝐺), (2nd𝐺)⟩𝑁⟨(1st𝐻), (2nd𝐻)⟩))
412, 40, 3, 10, 37natcl 16835 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → (𝑆𝑥) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)))
429, 10, 4, 17, 22, 29, 34, 38, 41catcocl 16568 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)))
4342ralrimiva 3105 . . . 4 (𝜑 → ∀𝑥 ∈ (Base‘𝐶)((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)))
44 fvex 6364 . . . . 5 (Base‘𝐶) ∈ V
45 mptelixpg 8114 . . . . 5 ((Base‘𝐶) ∈ V → ((𝑥 ∈ (Base‘𝐶) ↦ ((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐶)((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥))))
4644, 45ax-mp 5 . . . 4 ((𝑥 ∈ (Base‘𝐶) ↦ ((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐶)((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)))
4743, 46sylibr 224 . . 3 (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)))
488, 47eqeltrd 2840 . 2 (𝜑 → (𝑆(⟨𝐹, 𝐺 𝐻)𝑅) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)))
4916adantr 472 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝐷 ∈ Cat)
5021adantr 472 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
51 simpr1 1234 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑥 ∈ (Base‘𝐶))
5250, 51ffvelrnd 6525 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
53 simpr2 1236 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑦 ∈ (Base‘𝐶))
5450, 53ffvelrnd 6525 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
5528adantr 472 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐷))
5655, 53ffvelrnd 6525 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐷))
57 eqid 2761 . . . . . . . 8 (Hom ‘𝐶) = (Hom ‘𝐶)
5820adantr 472 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
593, 57, 10, 58, 51, 53funcf2 16750 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
60 simpr3 1238 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
6159, 60ffvelrnd 6525 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2nd𝐹)𝑦)‘𝑓) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
6235adantr 472 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑅 ∈ (⟨(1st𝐹), (2nd𝐹)⟩𝑁⟨(1st𝐺), (2nd𝐺)⟩))
632, 62, 3, 10, 53natcl 16835 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑅𝑦) ∈ (((1st𝐹)‘𝑦)(Hom ‘𝐷)((1st𝐺)‘𝑦)))
6433adantr 472 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐻):(Base‘𝐶)⟶(Base‘𝐷))
6564, 53ffvelrnd 6525 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐻)‘𝑦) ∈ (Base‘𝐷))
6639adantr 472 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑆 ∈ (⟨(1st𝐺), (2nd𝐺)⟩𝑁⟨(1st𝐻), (2nd𝐻)⟩))
672, 66, 3, 10, 53natcl 16835 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑆𝑦) ∈ (((1st𝐺)‘𝑦)(Hom ‘𝐷)((1st𝐻)‘𝑦)))
689, 10, 4, 49, 52, 54, 56, 61, 63, 65, 67catass 16569 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑆𝑦)(⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑦))(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = ((𝑆𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑅𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐺)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓))))
692, 62, 3, 57, 4, 51, 53, 60nati 16837 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑅𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐺)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐺)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐺)‘𝑦))(𝑅𝑥)))
7069oveq2d 6831 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑆𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑅𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐺)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓))) = ((𝑆𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(((𝑥(2nd𝐺)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐺)‘𝑦))(𝑅𝑥))))
7155, 51ffvelrnd 6525 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐷))
722, 62, 3, 10, 51natcl 16835 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑅𝑥) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐺)‘𝑥)))
7327adantr 472 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
743, 57, 10, 73, 51, 53funcf2 16750 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2nd𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐺)‘𝑥)(Hom ‘𝐷)((1st𝐺)‘𝑦)))
7574, 60ffvelrnd 6525 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2nd𝐺)𝑦)‘𝑓) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐷)((1st𝐺)‘𝑦)))
769, 10, 4, 49, 52, 71, 56, 72, 75, 65, 67catass 16569 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑆𝑦)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐺)𝑦)‘𝑓))(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑥)) = ((𝑆𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(((𝑥(2nd𝐺)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐺)‘𝑦))(𝑅𝑥))))
772, 66, 3, 57, 4, 51, 53, 60nati 16837 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑆𝑦)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐺)𝑦)‘𝑓)) = (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐺)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑆𝑥)))
7877oveq1d 6830 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑆𝑦)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐺)𝑦)‘𝑓))(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑥)) = ((((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐺)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑆𝑥))(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑥)))
7970, 76, 783eqtr2d 2801 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑆𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑅𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐺)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓))) = ((((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐺)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑆𝑥))(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑥)))
8064, 51ffvelrnd 6525 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐻)‘𝑥) ∈ (Base‘𝐷))
812, 66, 3, 10, 51natcl 16835 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑆𝑥) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)))
8232adantr 472 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐻)(𝐶 Func 𝐷)(2nd𝐻))
833, 57, 10, 82, 51, 53funcf2 16750 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2nd𝐻)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐻)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑦)))
8483, 60ffvelrnd 6525 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2nd𝐻)𝑦)‘𝑓) ∈ (((1st𝐻)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑦)))
859, 10, 4, 49, 52, 71, 80, 72, 81, 65, 84catass 16569 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐺)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑆𝑥))(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑥)) = (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥))))
8668, 79, 853eqtrd 2799 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑆𝑦)(⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑦))(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥))))
876adantr 472 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑅 ∈ (𝐹𝑁𝐺))
887adantr 472 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑆 ∈ (𝐺𝑁𝐻))
891, 2, 3, 4, 5, 87, 88, 53fuccoval 16845 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑦) = ((𝑆𝑦)(⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑦)))
9089oveq1d 6830 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑆𝑦)(⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))(𝑅𝑦))(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)))
911, 2, 3, 4, 5, 87, 88, 51fuccoval 16845 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑥) = ((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥)))
9291oveq2d 6831 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑥)) = (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑆𝑥)(⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑥))(𝑅𝑥))))
9386, 90, 923eqtr4d 2805 . . 3 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑥)))
9493ralrimivvva 3111 . 2 (𝜑 → ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑥)))
952, 3, 57, 10, 4, 13, 30isnat2 16830 . 2 (𝜑 → ((𝑆(⟨𝐹, 𝐺 𝐻)𝑅) ∈ (𝐹𝑁𝐻) ↔ ((𝑆(⟨𝐹, 𝐺 𝐻)𝑅) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐻)‘𝑥)) ∧ ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐻)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐻)‘𝑥)⟩(comp‘𝐷)((1st𝐻)‘𝑦))((𝑆(⟨𝐹, 𝐺 𝐻)𝑅)‘𝑥)))))
9648, 94, 95mpbir2and 995 1 (𝜑 → (𝑆(⟨𝐹, 𝐺 𝐻)𝑅) ∈ (𝐹𝑁𝐻))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  w3a 1072   = wceq 1632  wcel 2140  wral 3051  Vcvv 3341  cop 4328   class class class wbr 4805  cmpt 4882  Rel wrel 5272  wf 6046  cfv 6050  (class class class)co 6815  1st c1st 7333  2nd c2nd 7334  Xcixp 8077  Basecbs 16080  Hom chom 16175  compcco 16176  Catccat 16547   Func cfunc 16736   Nat cnat 16823   FuncCat cfuc 16824
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1989  ax-6 2055  ax-7 2091  ax-8 2142  ax-9 2149  ax-10 2169  ax-11 2184  ax-12 2197  ax-13 2392  ax-ext 2741  ax-rep 4924  ax-sep 4934  ax-nul 4942  ax-pow 4993  ax-pr 5056  ax-un 7116  ax-cnex 10205  ax-resscn 10206  ax-1cn 10207  ax-icn 10208  ax-addcl 10209  ax-addrcl 10210  ax-mulcl 10211  ax-mulrcl 10212  ax-mulcom 10213  ax-addass 10214  ax-mulass 10215  ax-distr 10216  ax-i2m1 10217  ax-1ne0 10218  ax-1rid 10219  ax-rnegex 10220  ax-rrecex 10221  ax-cnre 10222  ax-pre-lttri 10223  ax-pre-lttrn 10224  ax-pre-ltadd 10225  ax-pre-mulgt0 10226
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2048  df-eu 2612  df-mo 2613  df-clab 2748  df-cleq 2754  df-clel 2757  df-nfc 2892  df-ne 2934  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rab 3060  df-v 3343  df-sbc 3578  df-csb 3676  df-dif 3719  df-un 3721  df-in 3723  df-ss 3730  df-pss 3732  df-nul 4060  df-if 4232  df-pw 4305  df-sn 4323  df-pr 4325  df-tp 4327  df-op 4329  df-uni 4590  df-int 4629  df-iun 4675  df-br 4806  df-opab 4866  df-mpt 4883  df-tr 4906  df-id 5175  df-eprel 5180  df-po 5188  df-so 5189  df-fr 5226  df-we 5228  df-xp 5273  df-rel 5274  df-cnv 5275  df-co 5276  df-dm 5277  df-rn 5278  df-res 5279  df-ima 5280  df-pred 5842  df-ord 5888  df-on 5889  df-lim 5890  df-suc 5891  df-iota 6013  df-fun 6052  df-fn 6053  df-f 6054  df-f1 6055  df-fo 6056  df-f1o 6057  df-fv 6058  df-riota 6776  df-ov 6818  df-oprab 6819  df-mpt2 6820  df-om 7233  df-1st 7335  df-2nd 7336  df-wrecs 7578  df-recs 7639  df-rdg 7677  df-1o 7731  df-oadd 7735  df-er 7914  df-map 8028  df-ixp 8078  df-en 8125  df-dom 8126  df-sdom 8127  df-fin 8128  df-pnf 10289  df-mnf 10290  df-xr 10291  df-ltxr 10292  df-le 10293  df-sub 10481  df-neg 10482  df-nn 11234  df-2 11292  df-3 11293  df-4 11294  df-5 11295  df-6 11296  df-7 11297  df-8 11298  df-9 11299  df-n0 11506  df-z 11591  df-dec 11707  df-uz 11901  df-fz 12541  df-struct 16082  df-ndx 16083  df-slot 16084  df-base 16086  df-hom 16189  df-cco 16190  df-cat 16551  df-func 16740  df-nat 16825  df-fuc 16826
This theorem is referenced by:  fucass  16850  fuccatid  16851  evlfcllem  17083  yonedalem3b  17141
  Copyright terms: Public domain W3C validator