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

Theorem yonedalem22 17357
Description: Lemma for yoneda 17362. (Contributed by Mario Carneiro, 29-Jan-2017.)
Hypotheses
Ref Expression
yoneda.y 𝑌 = (Yon‘𝐶)
yoneda.b 𝐵 = (Base‘𝐶)
yoneda.1 1 = (Id‘𝐶)
yoneda.o 𝑂 = (oppCat‘𝐶)
yoneda.s 𝑆 = (SetCat‘𝑈)
yoneda.t 𝑇 = (SetCat‘𝑉)
yoneda.q 𝑄 = (𝑂 FuncCat 𝑆)
yoneda.h 𝐻 = (HomF𝑄)
yoneda.r 𝑅 = ((𝑄 ×c 𝑂) FuncCat 𝑇)
yoneda.e 𝐸 = (𝑂 evalF 𝑆)
yoneda.z 𝑍 = (𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))
yoneda.c (𝜑𝐶 ∈ Cat)
yoneda.w (𝜑𝑉𝑊)
yoneda.u (𝜑 → ran (Homf𝐶) ⊆ 𝑈)
yoneda.v (𝜑 → (ran (Homf𝑄) ∪ 𝑈) ⊆ 𝑉)
yonedalem21.f (𝜑𝐹 ∈ (𝑂 Func 𝑆))
yonedalem21.x (𝜑𝑋𝐵)
yonedalem22.g (𝜑𝐺 ∈ (𝑂 Func 𝑆))
yonedalem22.p (𝜑𝑃𝐵)
yonedalem22.a (𝜑𝐴 ∈ (𝐹(𝑂 Nat 𝑆)𝐺))
yonedalem22.k (𝜑𝐾 ∈ (𝑃(Hom ‘𝐶)𝑋))
Assertion
Ref Expression
yonedalem22 (𝜑 → (𝐴(⟨𝐹, 𝑋⟩(2nd𝑍)⟨𝐺, 𝑃⟩)𝐾) = (((𝑃(2nd𝑌)𝑋)‘𝐾)(⟨((1st𝑌)‘𝑋), 𝐹⟩(2nd𝐻)⟨((1st𝑌)‘𝑃), 𝐺⟩)𝐴))

Proof of Theorem yonedalem22
StepHypRef Expression
1 yoneda.z . . . . . . 7 𝑍 = (𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))
21fveq2i 6541 . . . . . 6 (2nd𝑍) = (2nd ‘(𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))))
32oveqi 7029 . . . . 5 (⟨𝐹, 𝑋⟩(2nd𝑍)⟨𝐺, 𝑃⟩) = (⟨𝐹, 𝑋⟩(2nd ‘(𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))))⟨𝐺, 𝑃⟩)
43oveqi 7029 . . . 4 (𝐴(⟨𝐹, 𝑋⟩(2nd𝑍)⟨𝐺, 𝑃⟩)𝐾) = (𝐴(⟨𝐹, 𝑋⟩(2nd ‘(𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))))⟨𝐺, 𝑃⟩)𝐾)
5 df-ov 7019 . . . 4 (𝐴(⟨𝐹, 𝑋⟩(2nd ‘(𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))))⟨𝐺, 𝑃⟩)𝐾) = ((⟨𝐹, 𝑋⟩(2nd ‘(𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)
64, 5eqtri 2819 . . 3 (𝐴(⟨𝐹, 𝑋⟩(2nd𝑍)⟨𝐺, 𝑃⟩)𝐾) = ((⟨𝐹, 𝑋⟩(2nd ‘(𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)
7 eqid 2795 . . . . 5 (𝑄 ×c 𝑂) = (𝑄 ×c 𝑂)
8 yoneda.q . . . . . 6 𝑄 = (𝑂 FuncCat 𝑆)
98fucbas 17059 . . . . 5 (𝑂 Func 𝑆) = (Base‘𝑄)
10 yoneda.o . . . . . 6 𝑂 = (oppCat‘𝐶)
11 yoneda.b . . . . . 6 𝐵 = (Base‘𝐶)
1210, 11oppcbas 16817 . . . . 5 𝐵 = (Base‘𝑂)
137, 9, 12xpcbas 17257 . . . 4 ((𝑂 Func 𝑆) × 𝐵) = (Base‘(𝑄 ×c 𝑂))
14 eqid 2795 . . . . 5 ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)) = ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))
15 eqid 2795 . . . . 5 ((oppCat‘𝑄) ×c 𝑄) = ((oppCat‘𝑄) ×c 𝑄)
16 yoneda.c . . . . . . . . 9 (𝜑𝐶 ∈ Cat)
1710oppccat 16821 . . . . . . . . 9 (𝐶 ∈ Cat → 𝑂 ∈ Cat)
1816, 17syl 17 . . . . . . . 8 (𝜑𝑂 ∈ Cat)
19 yoneda.w . . . . . . . . . 10 (𝜑𝑉𝑊)
20 yoneda.v . . . . . . . . . . 11 (𝜑 → (ran (Homf𝑄) ∪ 𝑈) ⊆ 𝑉)
2120unssbd 4085 . . . . . . . . . 10 (𝜑𝑈𝑉)
2219, 21ssexd 5119 . . . . . . . . 9 (𝜑𝑈 ∈ V)
23 yoneda.s . . . . . . . . . 10 𝑆 = (SetCat‘𝑈)
2423setccat 17174 . . . . . . . . 9 (𝑈 ∈ V → 𝑆 ∈ Cat)
2522, 24syl 17 . . . . . . . 8 (𝜑𝑆 ∈ Cat)
268, 18, 25fuccat 17069 . . . . . . 7 (𝜑𝑄 ∈ Cat)
27 eqid 2795 . . . . . . 7 (𝑄 2ndF 𝑂) = (𝑄 2ndF 𝑂)
287, 26, 18, 272ndfcl 17277 . . . . . 6 (𝜑 → (𝑄 2ndF 𝑂) ∈ ((𝑄 ×c 𝑂) Func 𝑂))
29 eqid 2795 . . . . . . . 8 (oppCat‘𝑄) = (oppCat‘𝑄)
30 relfunc 16961 . . . . . . . . 9 Rel (𝐶 Func 𝑄)
31 yoneda.y . . . . . . . . . 10 𝑌 = (Yon‘𝐶)
32 yoneda.u . . . . . . . . . 10 (𝜑 → ran (Homf𝐶) ⊆ 𝑈)
3331, 16, 10, 23, 8, 22, 32yoncl 17341 . . . . . . . . 9 (𝜑𝑌 ∈ (𝐶 Func 𝑄))
34 1st2ndbr 7597 . . . . . . . . 9 ((Rel (𝐶 Func 𝑄) ∧ 𝑌 ∈ (𝐶 Func 𝑄)) → (1st𝑌)(𝐶 Func 𝑄)(2nd𝑌))
3530, 33, 34sylancr 587 . . . . . . . 8 (𝜑 → (1st𝑌)(𝐶 Func 𝑄)(2nd𝑌))
3610, 29, 35funcoppc 16974 . . . . . . 7 (𝜑 → (1st𝑌)(𝑂 Func (oppCat‘𝑄))tpos (2nd𝑌))
37 df-br 4963 . . . . . . 7 ((1st𝑌)(𝑂 Func (oppCat‘𝑄))tpos (2nd𝑌) ↔ ⟨(1st𝑌), tpos (2nd𝑌)⟩ ∈ (𝑂 Func (oppCat‘𝑄)))
3836, 37sylib 219 . . . . . 6 (𝜑 → ⟨(1st𝑌), tpos (2nd𝑌)⟩ ∈ (𝑂 Func (oppCat‘𝑄)))
3928, 38cofucl 16987 . . . . 5 (𝜑 → (⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ∈ ((𝑄 ×c 𝑂) Func (oppCat‘𝑄)))
40 eqid 2795 . . . . . 6 (𝑄 1stF 𝑂) = (𝑄 1stF 𝑂)
417, 26, 18, 401stfcl 17276 . . . . 5 (𝜑 → (𝑄 1stF 𝑂) ∈ ((𝑄 ×c 𝑂) Func 𝑄))
4214, 15, 39, 41prfcl 17282 . . . 4 (𝜑 → ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)) ∈ ((𝑄 ×c 𝑂) Func ((oppCat‘𝑄) ×c 𝑄)))
43 yoneda.h . . . . 5 𝐻 = (HomF𝑄)
44 yoneda.t . . . . 5 𝑇 = (SetCat‘𝑉)
4520unssad 4084 . . . . 5 (𝜑 → ran (Homf𝑄) ⊆ 𝑉)
4643, 29, 44, 26, 19, 45hofcl 17338 . . . 4 (𝜑𝐻 ∈ (((oppCat‘𝑄) ×c 𝑄) Func 𝑇))
47 yonedalem21.f . . . . 5 (𝜑𝐹 ∈ (𝑂 Func 𝑆))
48 yonedalem21.x . . . . 5 (𝜑𝑋𝐵)
4947, 48opelxpd 5481 . . . 4 (𝜑 → ⟨𝐹, 𝑋⟩ ∈ ((𝑂 Func 𝑆) × 𝐵))
50 yonedalem22.g . . . . 5 (𝜑𝐺 ∈ (𝑂 Func 𝑆))
51 yonedalem22.p . . . . 5 (𝜑𝑃𝐵)
5250, 51opelxpd 5481 . . . 4 (𝜑 → ⟨𝐺, 𝑃⟩ ∈ ((𝑂 Func 𝑆) × 𝐵))
53 eqid 2795 . . . 4 (Hom ‘(𝑄 ×c 𝑂)) = (Hom ‘(𝑄 ×c 𝑂))
54 yonedalem22.a . . . . . 6 (𝜑𝐴 ∈ (𝐹(𝑂 Nat 𝑆)𝐺))
55 yonedalem22.k . . . . . . 7 (𝜑𝐾 ∈ (𝑃(Hom ‘𝐶)𝑋))
56 eqid 2795 . . . . . . . 8 (Hom ‘𝐶) = (Hom ‘𝐶)
5756, 10oppchom 16814 . . . . . . 7 (𝑋(Hom ‘𝑂)𝑃) = (𝑃(Hom ‘𝐶)𝑋)
5855, 57syl6eleqr 2894 . . . . . 6 (𝜑𝐾 ∈ (𝑋(Hom ‘𝑂)𝑃))
5954, 58opelxpd 5481 . . . . 5 (𝜑 → ⟨𝐴, 𝐾⟩ ∈ ((𝐹(𝑂 Nat 𝑆)𝐺) × (𝑋(Hom ‘𝑂)𝑃)))
60 eqid 2795 . . . . . . 7 (𝑂 Nat 𝑆) = (𝑂 Nat 𝑆)
618, 60fuchom 17060 . . . . . 6 (𝑂 Nat 𝑆) = (Hom ‘𝑄)
62 eqid 2795 . . . . . 6 (Hom ‘𝑂) = (Hom ‘𝑂)
637, 9, 12, 61, 62, 47, 48, 50, 51, 53xpchom2 17265 . . . . 5 (𝜑 → (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩) = ((𝐹(𝑂 Nat 𝑆)𝐺) × (𝑋(Hom ‘𝑂)𝑃)))
6459, 63eleqtrrd 2886 . . . 4 (𝜑 → ⟨𝐴, 𝐾⟩ ∈ (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩))
6513, 42, 46, 49, 52, 53, 64cofu2 16985 . . 3 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘(𝐻func ((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂))))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = ((((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐹, 𝑋⟩)(2nd𝐻)((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐺, 𝑃⟩))‘((⟨𝐹, 𝑋⟩(2nd ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)))
666, 65syl5eq 2843 . 2 (𝜑 → (𝐴(⟨𝐹, 𝑋⟩(2nd𝑍)⟨𝐺, 𝑃⟩)𝐾) = ((((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐹, 𝑋⟩)(2nd𝐻)((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐺, 𝑃⟩))‘((⟨𝐹, 𝑋⟩(2nd ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)))
6714, 13, 53, 39, 41, 49prf1 17279 . . . . . 6 (𝜑 → ((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐹, 𝑋⟩) = ⟨((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐹, 𝑋⟩), ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐹, 𝑋⟩)⟩)
6813, 28, 38, 49cofu1 16983 . . . . . . . 8 (𝜑 → ((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐹, 𝑋⟩) = ((1st ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)‘((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)))
69 fvex 6551 . . . . . . . . . . 11 (1st𝑌) ∈ V
70 fvex 6551 . . . . . . . . . . . 12 (2nd𝑌) ∈ V
7170tposex 7777 . . . . . . . . . . 11 tpos (2nd𝑌) ∈ V
7269, 71op1st 7553 . . . . . . . . . 10 (1st ‘⟨(1st𝑌), tpos (2nd𝑌)⟩) = (1st𝑌)
7372a1i 11 . . . . . . . . 9 (𝜑 → (1st ‘⟨(1st𝑌), tpos (2nd𝑌)⟩) = (1st𝑌))
747, 13, 53, 26, 18, 27, 492ndf1 17274 . . . . . . . . . 10 (𝜑 → ((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩) = (2nd ‘⟨𝐹, 𝑋⟩))
75 op2ndg 7558 . . . . . . . . . . 11 ((𝐹 ∈ (𝑂 Func 𝑆) ∧ 𝑋𝐵) → (2nd ‘⟨𝐹, 𝑋⟩) = 𝑋)
7647, 48, 75syl2anc 584 . . . . . . . . . 10 (𝜑 → (2nd ‘⟨𝐹, 𝑋⟩) = 𝑋)
7774, 76eqtrd 2831 . . . . . . . . 9 (𝜑 → ((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩) = 𝑋)
7873, 77fveq12d 6545 . . . . . . . 8 (𝜑 → ((1st ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)‘((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)) = ((1st𝑌)‘𝑋))
7968, 78eqtrd 2831 . . . . . . 7 (𝜑 → ((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐹, 𝑋⟩) = ((1st𝑌)‘𝑋))
807, 13, 53, 26, 18, 40, 491stf1 17271 . . . . . . . 8 (𝜑 → ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐹, 𝑋⟩) = (1st ‘⟨𝐹, 𝑋⟩))
81 op1stg 7557 . . . . . . . . 9 ((𝐹 ∈ (𝑂 Func 𝑆) ∧ 𝑋𝐵) → (1st ‘⟨𝐹, 𝑋⟩) = 𝐹)
8247, 48, 81syl2anc 584 . . . . . . . 8 (𝜑 → (1st ‘⟨𝐹, 𝑋⟩) = 𝐹)
8380, 82eqtrd 2831 . . . . . . 7 (𝜑 → ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐹, 𝑋⟩) = 𝐹)
8479, 83opeq12d 4718 . . . . . 6 (𝜑 → ⟨((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐹, 𝑋⟩), ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐹, 𝑋⟩)⟩ = ⟨((1st𝑌)‘𝑋), 𝐹⟩)
8567, 84eqtrd 2831 . . . . 5 (𝜑 → ((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐹, 𝑋⟩) = ⟨((1st𝑌)‘𝑋), 𝐹⟩)
8614, 13, 53, 39, 41, 52prf1 17279 . . . . . 6 (𝜑 → ((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐺, 𝑃⟩) = ⟨((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐺, 𝑃⟩), ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐺, 𝑃⟩)⟩)
8713, 28, 38, 52cofu1 16983 . . . . . . . 8 (𝜑 → ((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐺, 𝑃⟩) = ((1st ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)‘((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)))
887, 13, 53, 26, 18, 27, 522ndf1 17274 . . . . . . . . . 10 (𝜑 → ((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩) = (2nd ‘⟨𝐺, 𝑃⟩))
89 op2ndg 7558 . . . . . . . . . . 11 ((𝐺 ∈ (𝑂 Func 𝑆) ∧ 𝑃𝐵) → (2nd ‘⟨𝐺, 𝑃⟩) = 𝑃)
9050, 51, 89syl2anc 584 . . . . . . . . . 10 (𝜑 → (2nd ‘⟨𝐺, 𝑃⟩) = 𝑃)
9188, 90eqtrd 2831 . . . . . . . . 9 (𝜑 → ((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩) = 𝑃)
9273, 91fveq12d 6545 . . . . . . . 8 (𝜑 → ((1st ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)‘((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)) = ((1st𝑌)‘𝑃))
9387, 92eqtrd 2831 . . . . . . 7 (𝜑 → ((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐺, 𝑃⟩) = ((1st𝑌)‘𝑃))
947, 13, 53, 26, 18, 40, 521stf1 17271 . . . . . . . 8 (𝜑 → ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐺, 𝑃⟩) = (1st ‘⟨𝐺, 𝑃⟩))
95 op1stg 7557 . . . . . . . . 9 ((𝐺 ∈ (𝑂 Func 𝑆) ∧ 𝑃𝐵) → (1st ‘⟨𝐺, 𝑃⟩) = 𝐺)
9650, 51, 95syl2anc 584 . . . . . . . 8 (𝜑 → (1st ‘⟨𝐺, 𝑃⟩) = 𝐺)
9794, 96eqtrd 2831 . . . . . . 7 (𝜑 → ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐺, 𝑃⟩) = 𝐺)
9893, 97opeq12d 4718 . . . . . 6 (𝜑 → ⟨((1st ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))‘⟨𝐺, 𝑃⟩), ((1st ‘(𝑄 1stF 𝑂))‘⟨𝐺, 𝑃⟩)⟩ = ⟨((1st𝑌)‘𝑃), 𝐺⟩)
9986, 98eqtrd 2831 . . . . 5 (𝜑 → ((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐺, 𝑃⟩) = ⟨((1st𝑌)‘𝑃), 𝐺⟩)
10085, 99oveq12d 7034 . . . 4 (𝜑 → (((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐹, 𝑋⟩)(2nd𝐻)((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐺, 𝑃⟩)) = (⟨((1st𝑌)‘𝑋), 𝐹⟩(2nd𝐻)⟨((1st𝑌)‘𝑃), 𝐺⟩))
10114, 13, 53, 39, 41, 49, 52, 64prf2 17281 . . . . 5 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = ⟨((⟨𝐹, 𝑋⟩(2nd ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩), ((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 1stF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)⟩)
10213, 28, 38, 49, 52, 53, 64cofu2 16985 . . . . . . 7 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = ((((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)(2nd ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩))‘((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 2ndF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)))
10369, 71op2nd 7554 . . . . . . . . . . 11 (2nd ‘⟨(1st𝑌), tpos (2nd𝑌)⟩) = tpos (2nd𝑌)
104103oveqi 7029 . . . . . . . . . 10 (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)(2nd ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)) = (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)tpos (2nd𝑌)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩))
105 ovtpos 7758 . . . . . . . . . 10 (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)tpos (2nd𝑌)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)) = (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)(2nd𝑌)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩))
106104, 105eqtri 2819 . . . . . . . . 9 (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)(2nd ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)) = (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)(2nd𝑌)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩))
10791, 77oveq12d 7034 . . . . . . . . 9 (𝜑 → (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)(2nd𝑌)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)) = (𝑃(2nd𝑌)𝑋))
108106, 107syl5eq 2843 . . . . . . . 8 (𝜑 → (((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)(2nd ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩)) = (𝑃(2nd𝑌)𝑋))
1097, 13, 53, 26, 18, 27, 49, 522ndf2 17275 . . . . . . . . . 10 (𝜑 → (⟨𝐹, 𝑋⟩(2nd ‘(𝑄 2ndF 𝑂))⟨𝐺, 𝑃⟩) = (2nd ↾ (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩)))
110109fveq1d 6540 . . . . . . . . 9 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 2ndF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = ((2nd ↾ (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩))‘⟨𝐴, 𝐾⟩))
11164fvresd 6558 . . . . . . . . 9 (𝜑 → ((2nd ↾ (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩))‘⟨𝐴, 𝐾⟩) = (2nd ‘⟨𝐴, 𝐾⟩))
112 op2ndg 7558 . . . . . . . . . 10 ((𝐴 ∈ (𝐹(𝑂 Nat 𝑆)𝐺) ∧ 𝐾 ∈ (𝑃(Hom ‘𝐶)𝑋)) → (2nd ‘⟨𝐴, 𝐾⟩) = 𝐾)
11354, 55, 112syl2anc 584 . . . . . . . . 9 (𝜑 → (2nd ‘⟨𝐴, 𝐾⟩) = 𝐾)
114110, 111, 1133eqtrd 2835 . . . . . . . 8 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 2ndF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = 𝐾)
115108, 114fveq12d 6545 . . . . . . 7 (𝜑 → ((((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐹, 𝑋⟩)(2nd ‘⟨(1st𝑌), tpos (2nd𝑌)⟩)((1st ‘(𝑄 2ndF 𝑂))‘⟨𝐺, 𝑃⟩))‘((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 2ndF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)) = ((𝑃(2nd𝑌)𝑋)‘𝐾))
116102, 115eqtrd 2831 . . . . . 6 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = ((𝑃(2nd𝑌)𝑋)‘𝐾))
1177, 13, 53, 26, 18, 40, 49, 521stf2 17272 . . . . . . . 8 (𝜑 → (⟨𝐹, 𝑋⟩(2nd ‘(𝑄 1stF 𝑂))⟨𝐺, 𝑃⟩) = (1st ↾ (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩)))
118117fveq1d 6540 . . . . . . 7 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 1stF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = ((1st ↾ (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩))‘⟨𝐴, 𝐾⟩))
11964fvresd 6558 . . . . . . 7 (𝜑 → ((1st ↾ (⟨𝐹, 𝑋⟩(Hom ‘(𝑄 ×c 𝑂))⟨𝐺, 𝑃⟩))‘⟨𝐴, 𝐾⟩) = (1st ‘⟨𝐴, 𝐾⟩))
120 op1stg 7557 . . . . . . . 8 ((𝐴 ∈ (𝐹(𝑂 Nat 𝑆)𝐺) ∧ 𝐾 ∈ (𝑃(Hom ‘𝐶)𝑋)) → (1st ‘⟨𝐴, 𝐾⟩) = 𝐴)
12154, 55, 120syl2anc 584 . . . . . . 7 (𝜑 → (1st ‘⟨𝐴, 𝐾⟩) = 𝐴)
122118, 119, 1213eqtrd 2835 . . . . . 6 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 1stF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = 𝐴)
123116, 122opeq12d 4718 . . . . 5 (𝜑 → ⟨((⟨𝐹, 𝑋⟩(2nd ‘(⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩), ((⟨𝐹, 𝑋⟩(2nd ‘(𝑄 1stF 𝑂))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)⟩ = ⟨((𝑃(2nd𝑌)𝑋)‘𝐾), 𝐴⟩)
124101, 123eqtrd 2831 . . . 4 (𝜑 → ((⟨𝐹, 𝑋⟩(2nd ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩) = ⟨((𝑃(2nd𝑌)𝑋)‘𝐾), 𝐴⟩)
125100, 124fveq12d 6545 . . 3 (𝜑 → ((((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐹, 𝑋⟩)(2nd𝐻)((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐺, 𝑃⟩))‘((⟨𝐹, 𝑋⟩(2nd ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)) = ((⟨((1st𝑌)‘𝑋), 𝐹⟩(2nd𝐻)⟨((1st𝑌)‘𝑃), 𝐺⟩)‘⟨((𝑃(2nd𝑌)𝑋)‘𝐾), 𝐴⟩))
126 df-ov 7019 . . 3 (((𝑃(2nd𝑌)𝑋)‘𝐾)(⟨((1st𝑌)‘𝑋), 𝐹⟩(2nd𝐻)⟨((1st𝑌)‘𝑃), 𝐺⟩)𝐴) = ((⟨((1st𝑌)‘𝑋), 𝐹⟩(2nd𝐻)⟨((1st𝑌)‘𝑃), 𝐺⟩)‘⟨((𝑃(2nd𝑌)𝑋)‘𝐾), 𝐴⟩)
127125, 126syl6eqr 2849 . 2 (𝜑 → ((((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐹, 𝑋⟩)(2nd𝐻)((1st ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))‘⟨𝐺, 𝑃⟩))‘((⟨𝐹, 𝑋⟩(2nd ‘((⟨(1st𝑌), tpos (2nd𝑌)⟩ ∘func (𝑄 2ndF 𝑂)) ⟨,⟩F (𝑄 1stF 𝑂)))⟨𝐺, 𝑃⟩)‘⟨𝐴, 𝐾⟩)) = (((𝑃(2nd𝑌)𝑋)‘𝐾)(⟨((1st𝑌)‘𝑋), 𝐹⟩(2nd𝐻)⟨((1st𝑌)‘𝑃), 𝐺⟩)𝐴))
12866, 127eqtrd 2831 1 (𝜑 → (𝐴(⟨𝐹, 𝑋⟩(2nd𝑍)⟨𝐺, 𝑃⟩)𝐾) = (((𝑃(2nd𝑌)𝑋)‘𝐾)(⟨((1st𝑌)‘𝑋), 𝐹⟩(2nd𝐻)⟨((1st𝑌)‘𝑃), 𝐺⟩)𝐴))
Colors of variables: wff setvar class
Syntax hints:  wi 4   = wceq 1522  wcel 2081  Vcvv 3437  cun 3857  wss 3859  cop 4478   class class class wbr 4962   × cxp 5441  ran crn 5444  cres 5445  Rel wrel 5448  cfv 6225  (class class class)co 7016  1st c1st 7543  2nd c2nd 7544  tpos ctpos 7742  Basecbs 16312  Hom chom 16405  Catccat 16764  Idccid 16765  Homf chomf 16766  oppCatcoppc 16810   Func cfunc 16953  func ccofu 16955   Nat cnat 17040   FuncCat cfuc 17041  SetCatcsetc 17164   ×c cxpc 17247   1stF c1stf 17248   2ndF c2ndf 17249   ⟨,⟩F cprf 17250   evalF cevlf 17288  HomFchof 17327  Yoncyon 17328
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-cnex 10439  ax-resscn 10440  ax-1cn 10441  ax-icn 10442  ax-addcl 10443  ax-addrcl 10444  ax-mulcl 10445  ax-mulrcl 10446  ax-mulcom 10447  ax-addass 10448  ax-mulass 10449  ax-distr 10450  ax-i2m1 10451  ax-1ne0 10452  ax-1rid 10453  ax-rnegex 10454  ax-rrecex 10455  ax-cnre 10456  ax-pre-lttri 10457  ax-pre-lttrn 10458  ax-pre-ltadd 10459  ax-pre-mulgt0 10460
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-fal 1535  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-nel 3091  df-ral 3110  df-rex 3111  df-reu 3112  df-rmo 3113  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-pss 3876  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-tp 4477  df-op 4479  df-uni 4746  df-int 4783  df-iun 4827  df-br 4963  df-opab 5025  df-mpt 5042  df-tr 5064  df-id 5348  df-eprel 5353  df-po 5362  df-so 5363  df-fr 5402  df-we 5404  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-pred 6023  df-ord 6069  df-on 6070  df-lim 6071  df-suc 6072  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-om 7437  df-1st 7545  df-2nd 7546  df-tpos 7743  df-wrecs 7798  df-recs 7860  df-rdg 7898  df-1o 7953  df-oadd 7957  df-er 8139  df-map 8258  df-ixp 8311  df-en 8358  df-dom 8359  df-sdom 8360  df-fin 8361  df-pnf 10523  df-mnf 10524  df-xr 10525  df-ltxr 10526  df-le 10527  df-sub 10719  df-neg 10720  df-nn 11487  df-2 11548  df-3 11549  df-4 11550  df-5 11551  df-6 11552  df-7 11553  df-8 11554  df-9 11555  df-n0 11746  df-z 11830  df-dec 11948  df-uz 12094  df-fz 12743  df-struct 16314  df-ndx 16315  df-slot 16316  df-base 16318  df-sets 16319  df-hom 16418  df-cco 16419  df-cat 16768  df-cid 16769  df-homf 16770  df-comf 16771  df-oppc 16811  df-func 16957  df-cofu 16959  df-nat 17042  df-fuc 17043  df-setc 17165  df-xpc 17251  df-1stf 17252  df-2ndf 17253  df-prf 17254  df-curf 17293  df-hof 17329  df-yon 17330
This theorem is referenced by:  yonedalem3b  17358
  Copyright terms: Public domain W3C validator