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

Theorem curfcl 17184
Description: The curry functor of a functor 𝐹:𝐶 × 𝐷𝐸 is a functor curryF (𝐹):𝐶⟶(𝐷𝐸). (Contributed by Mario Carneiro, 13-Jan-2017.)
Hypotheses
Ref Expression
curfcl.g 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
curfcl.q 𝑄 = (𝐷 FuncCat 𝐸)
curfcl.c (𝜑𝐶 ∈ Cat)
curfcl.d (𝜑𝐷 ∈ Cat)
curfcl.f (𝜑𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
Assertion
Ref Expression
curfcl (𝜑𝐺 ∈ (𝐶 Func 𝑄))

Proof of Theorem curfcl
Dummy variables 𝑤 𝑔 𝑥 𝑦 𝑧 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 curfcl.g . . . 4 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
2 eqid 2797 . . . 4 (Base‘𝐶) = (Base‘𝐶)
3 curfcl.c . . . 4 (𝜑𝐶 ∈ Cat)
4 curfcl.d . . . 4 (𝜑𝐷 ∈ Cat)
5 curfcl.f . . . 4 (𝜑𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
6 eqid 2797 . . . 4 (Base‘𝐷) = (Base‘𝐷)
7 eqid 2797 . . . 4 (Hom ‘𝐷) = (Hom ‘𝐷)
8 eqid 2797 . . . 4 (Id‘𝐶) = (Id‘𝐶)
9 eqid 2797 . . . 4 (Hom ‘𝐶) = (Hom ‘𝐶)
10 eqid 2797 . . . 4 (Id‘𝐷) = (Id‘𝐷)
111, 2, 3, 4, 5, 6, 7, 8, 9, 10curfval 17175 . . 3 (𝜑𝐺 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩)
12 fvex 6422 . . . . . . 7 (Base‘𝐶) ∈ V
1312mptex 6713 . . . . . 6 (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩) ∈ V
1412, 12mpt2ex 7481 . . . . . 6 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) ∈ V
1513, 14op1std 7409 . . . . 5 (𝐺 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩ → (1st𝐺) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩))
1611, 15syl 17 . . . 4 (𝜑 → (1st𝐺) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩))
1713, 14op2ndd 7410 . . . . 5 (𝐺 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩ → (2nd𝐺) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))))
1811, 17syl 17 . . . 4 (𝜑 → (2nd𝐺) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))))
1916, 18opeq12d 4599 . . 3 (𝜑 → ⟨(1st𝐺), (2nd𝐺)⟩ = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩)
2011, 19eqtr4d 2834 . 2 (𝜑𝐺 = ⟨(1st𝐺), (2nd𝐺)⟩)
21 curfcl.q . . . . 5 𝑄 = (𝐷 FuncCat 𝐸)
2221fucbas 16931 . . . 4 (𝐷 Func 𝐸) = (Base‘𝑄)
23 eqid 2797 . . . . 5 (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
2421, 23fuchom 16932 . . . 4 (𝐷 Nat 𝐸) = (Hom ‘𝑄)
25 eqid 2797 . . . 4 (Id‘𝑄) = (Id‘𝑄)
26 eqid 2797 . . . 4 (comp‘𝐶) = (comp‘𝐶)
27 eqid 2797 . . . 4 (comp‘𝑄) = (comp‘𝑄)
28 funcrcl 16834 . . . . . . 7 (𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸) → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
295, 28syl 17 . . . . . 6 (𝜑 → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
3029simprd 490 . . . . 5 (𝜑𝐸 ∈ Cat)
3121, 4, 30fuccat 16941 . . . 4 (𝜑𝑄 ∈ Cat)
32 opex 5121 . . . . . 6 ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩ ∈ V
3332a1i 11 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩ ∈ V)
343adantr 473 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐶 ∈ Cat)
354adantr 473 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
365adantr 473 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
37 simpr 478 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
38 eqid 2797 . . . . . 6 ((1st𝐺)‘𝑥) = ((1st𝐺)‘𝑥)
391, 2, 34, 35, 36, 6, 37, 38curf1cl 17180 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐺)‘𝑥) ∈ (𝐷 Func 𝐸))
4033, 16, 39fmpt2d 6617 . . . 4 (𝜑 → (1st𝐺):(Base‘𝐶)⟶(𝐷 Func 𝐸))
41 eqid 2797 . . . . . 6 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
42 ovex 6908 . . . . . . 7 (𝑥(Hom ‘𝐶)𝑦) ∈ V
4342mptex 6713 . . . . . 6 (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))) ∈ V
4441, 43fnmpt2i 7473 . . . . 5 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) Fn ((Base‘𝐶) × (Base‘𝐶))
4518fneq1d 6190 . . . . 5 (𝜑 → ((2nd𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) Fn ((Base‘𝐶) × (Base‘𝐶))))
4644, 45mpbiri 250 . . . 4 (𝜑 → (2nd𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)))
47 fvex 6422 . . . . . . 7 (Base‘𝐷) ∈ V
4847mptex 6713 . . . . . 6 (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) ∈ V
4948a1i 11 . . . . 5 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) ∈ V)
5018oveqd 6893 . . . . . 6 (𝜑 → (𝑥(2nd𝐺)𝑦) = (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦))
5141ovmpt4g 7015 . . . . . . 7 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))) ∈ V) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
5243, 51mp3an3 1575 . . . . . 6 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
5350, 52sylan9eq 2851 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐺)𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
543ad2antrr 718 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐶 ∈ Cat)
554ad2antrr 718 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐷 ∈ Cat)
565ad2antrr 718 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
57 simplrl 796 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
58 simplrr 797 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
59 simpr 478 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦))
60 eqid 2797 . . . . . 6 ((𝑥(2nd𝐺)𝑦)‘𝑔) = ((𝑥(2nd𝐺)𝑦)‘𝑔)
611, 2, 54, 55, 56, 6, 9, 10, 57, 58, 59, 60, 23curf2cl 17183 . . . . 5 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd𝐺)𝑦)‘𝑔) ∈ (((1st𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st𝐺)‘𝑦)))
6249, 53, 61fmpt2d 6617 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st𝐺)‘𝑦)))
63 eqid 2797 . . . . . . . . . 10 (𝐶 ×c 𝐷) = (𝐶 ×c 𝐷)
6463, 2, 6xpcbas 17130 . . . . . . . . 9 ((Base‘𝐶) × (Base‘𝐷)) = (Base‘(𝐶 ×c 𝐷))
65 eqid 2797 . . . . . . . . 9 (Id‘(𝐶 ×c 𝐷)) = (Id‘(𝐶 ×c 𝐷))
66 eqid 2797 . . . . . . . . 9 (Id‘𝐸) = (Id‘𝐸)
67 relfunc 16833 . . . . . . . . . . 11 Rel ((𝐶 ×c 𝐷) Func 𝐸)
68 1st2ndbr 7450 . . . . . . . . . . 11 ((Rel ((𝐶 ×c 𝐷) Func 𝐸) ∧ 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸)) → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
6967, 5, 68sylancr 582 . . . . . . . . . 10 (𝜑 → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
7069ad2antrr 718 . . . . . . . . 9 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
71 opelxpi 5347 . . . . . . . . . 10 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
7271adantll 706 . . . . . . . . 9 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
7364, 65, 66, 70, 72funcid 16841 . . . . . . . 8 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = ((Id‘𝐸)‘((1st𝐹)‘⟨𝑥, 𝑦⟩)))
743ad2antrr 718 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
754ad2antrr 718 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
7637adantr 473 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝑥 ∈ (Base‘𝐶))
77 simpr 478 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝑦 ∈ (Base‘𝐷))
7863, 74, 75, 2, 6, 8, 10, 65, 76, 77xpcid 17141 . . . . . . . . . 10 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩) = ⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩)
7978fveq2d 6413 . . . . . . . . 9 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = ((⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩))
80 df-ov 6879 . . . . . . . . 9 (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩)
8179, 80syl6eqr 2849 . . . . . . . 8 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)))
825ad2antrr 718 . . . . . . . . . . 11 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
831, 2, 74, 75, 82, 6, 76, 38, 77curf11 17178 . . . . . . . . . 10 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st ‘((1st𝐺)‘𝑥))‘𝑦) = (𝑥(1st𝐹)𝑦))
84 df-ov 6879 . . . . . . . . . 10 (𝑥(1st𝐹)𝑦) = ((1st𝐹)‘⟨𝑥, 𝑦⟩)
8583, 84syl6req 2848 . . . . . . . . 9 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st𝐹)‘⟨𝑥, 𝑦⟩) = ((1st ‘((1st𝐺)‘𝑥))‘𝑦))
8685fveq2d 6413 . . . . . . . 8 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((Id‘𝐸)‘((1st𝐹)‘⟨𝑥, 𝑦⟩)) = ((Id‘𝐸)‘((1st ‘((1st𝐺)‘𝑥))‘𝑦)))
8773, 81, 863eqtr3d 2839 . . . . . . 7 (((𝜑𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((Id‘𝐸)‘((1st ‘((1st𝐺)‘𝑥))‘𝑦)))
8887mpteq2dva 4935 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st𝐺)‘𝑥))‘𝑦))))
8930adantr 473 . . . . . . . . 9 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
90 eqid 2797 . . . . . . . . . 10 (Base‘𝐸) = (Base‘𝐸)
9190, 66cidfn 16651 . . . . . . . . 9 (𝐸 ∈ Cat → (Id‘𝐸) Fn (Base‘𝐸))
9289, 91syl 17 . . . . . . . 8 ((𝜑𝑥 ∈ (Base‘𝐶)) → (Id‘𝐸) Fn (Base‘𝐸))
93 dffn2 6256 . . . . . . . 8 ((Id‘𝐸) Fn (Base‘𝐸) ↔ (Id‘𝐸):(Base‘𝐸)⟶V)
9492, 93sylib 210 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → (Id‘𝐸):(Base‘𝐸)⟶V)
95 relfunc 16833 . . . . . . . . 9 Rel (𝐷 Func 𝐸)
96 1st2ndbr 7450 . . . . . . . . 9 ((Rel (𝐷 Func 𝐸) ∧ ((1st𝐺)‘𝑥) ∈ (𝐷 Func 𝐸)) → (1st ‘((1st𝐺)‘𝑥))(𝐷 Func 𝐸)(2nd ‘((1st𝐺)‘𝑥)))
9795, 39, 96sylancr 582 . . . . . . . 8 ((𝜑𝑥 ∈ (Base‘𝐶)) → (1st ‘((1st𝐺)‘𝑥))(𝐷 Func 𝐸)(2nd ‘((1st𝐺)‘𝑥)))
986, 90, 97funcf1 16837 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → (1st ‘((1st𝐺)‘𝑥)):(Base‘𝐷)⟶(Base‘𝐸))
99 fcompt 6625 . . . . . . 7 (((Id‘𝐸):(Base‘𝐸)⟶V ∧ (1st ‘((1st𝐺)‘𝑥)):(Base‘𝐷)⟶(Base‘𝐸)) → ((Id‘𝐸) ∘ (1st ‘((1st𝐺)‘𝑥))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st𝐺)‘𝑥))‘𝑦))))
10094, 98, 99syl2anc 580 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐸) ∘ (1st ‘((1st𝐺)‘𝑥))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st𝐺)‘𝑥))‘𝑦))))
10188, 100eqtr4d 2834 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))) = ((Id‘𝐸) ∘ (1st ‘((1st𝐺)‘𝑥))))
1022, 9, 8, 34, 37catidcl 16654 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥))
103 eqid 2797 . . . . . 6 ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥))
1041, 2, 34, 35, 36, 6, 9, 10, 37, 37, 102, 103curf2 17181 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))))
10521, 25, 66, 39fucid 16942 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑄)‘((1st𝐺)‘𝑥)) = ((Id‘𝐸) ∘ (1st ‘((1st𝐺)‘𝑥))))
106101, 104, 1053eqtr4d 2841 . . . 4 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝑄)‘((1st𝐺)‘𝑥)))
10733ad2ant1 1164 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐶 ∈ Cat)
108107adantr 473 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
10943ad2ant1 1164 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐷 ∈ Cat)
110109adantr 473 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
11153ad2ant1 1164 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
112111adantr 473 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
113 simp21 1264 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑥 ∈ (Base‘𝐶))
114113adantr 473 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑥 ∈ (Base‘𝐶))
115 simpr 478 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑤 ∈ (Base‘𝐷))
1161, 2, 108, 110, 112, 6, 114, 38, 115curf11 17178 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st𝐺)‘𝑥))‘𝑤) = (𝑥(1st𝐹)𝑤))
117 df-ov 6879 . . . . . . . . . . 11 (𝑥(1st𝐹)𝑤) = ((1st𝐹)‘⟨𝑥, 𝑤⟩)
118116, 117syl6eq 2847 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st𝐺)‘𝑥))‘𝑤) = ((1st𝐹)‘⟨𝑥, 𝑤⟩))
119 simp22 1265 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑦 ∈ (Base‘𝐶))
120119adantr 473 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑦 ∈ (Base‘𝐶))
121 eqid 2797 . . . . . . . . . . . 12 ((1st𝐺)‘𝑦) = ((1st𝐺)‘𝑦)
1221, 2, 108, 110, 112, 6, 120, 121, 115curf11 17178 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st𝐺)‘𝑦))‘𝑤) = (𝑦(1st𝐹)𝑤))
123 df-ov 6879 . . . . . . . . . . 11 (𝑦(1st𝐹)𝑤) = ((1st𝐹)‘⟨𝑦, 𝑤⟩)
124122, 123syl6eq 2847 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st𝐺)‘𝑦))‘𝑤) = ((1st𝐹)‘⟨𝑦, 𝑤⟩))
125118, 124opeq12d 4599 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨((1st ‘((1st𝐺)‘𝑥))‘𝑤), ((1st ‘((1st𝐺)‘𝑦))‘𝑤)⟩ = ⟨((1st𝐹)‘⟨𝑥, 𝑤⟩), ((1st𝐹)‘⟨𝑦, 𝑤⟩)⟩)
126 simp23 1266 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑧 ∈ (Base‘𝐶))
127126adantr 473 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑧 ∈ (Base‘𝐶))
128 eqid 2797 . . . . . . . . . . 11 ((1st𝐺)‘𝑧) = ((1st𝐺)‘𝑧)
1291, 2, 108, 110, 112, 6, 127, 128, 115curf11 17178 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st𝐺)‘𝑧))‘𝑤) = (𝑧(1st𝐹)𝑤))
130 df-ov 6879 . . . . . . . . . 10 (𝑧(1st𝐹)𝑤) = ((1st𝐹)‘⟨𝑧, 𝑤⟩)
131129, 130syl6eq 2847 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st𝐺)‘𝑧))‘𝑤) = ((1st𝐹)‘⟨𝑧, 𝑤⟩))
132125, 131oveq12d 6894 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨((1st ‘((1st𝐺)‘𝑥))‘𝑤), ((1st ‘((1st𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st𝐺)‘𝑧))‘𝑤)) = (⟨((1st𝐹)‘⟨𝑥, 𝑤⟩), ((1st𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st𝐹)‘⟨𝑧, 𝑤⟩)))
133 simp3r 1260 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
134133adantr 473 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
135 eqid 2797 . . . . . . . . . 10 ((𝑦(2nd𝐺)𝑧)‘𝑔) = ((𝑦(2nd𝐺)𝑧)‘𝑔)
1361, 2, 108, 110, 112, 6, 9, 10, 120, 127, 134, 135, 115curf2val 17182 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑦(2nd𝐺)𝑧)‘𝑔)‘𝑤) = (𝑔(⟨𝑦, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)))
137 df-ov 6879 . . . . . . . . 9 (𝑔(⟨𝑦, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑦, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)
138136, 137syl6eq 2847 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑦(2nd𝐺)𝑧)‘𝑔)‘𝑤) = ((⟨𝑦, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩))
139 simp3l 1259 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
140139adantr 473 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
141 eqid 2797 . . . . . . . . . 10 ((𝑥(2nd𝐺)𝑦)‘𝑓) = ((𝑥(2nd𝐺)𝑦)‘𝑓)
1421, 2, 108, 110, 112, 6, 9, 10, 114, 120, 140, 141, 115curf2val 17182 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑥(2nd𝐺)𝑦)‘𝑓)‘𝑤) = (𝑓(⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑦, 𝑤⟩)((Id‘𝐷)‘𝑤)))
143 df-ov 6879 . . . . . . . . 9 (𝑓(⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑦, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)
144142, 143syl6eq 2847 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑥(2nd𝐺)𝑦)‘𝑓)‘𝑤) = ((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩))
145132, 138, 144oveq123d 6897 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((((𝑦(2nd𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st𝐺)‘𝑥))‘𝑤), ((1st ‘((1st𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st𝐺)‘𝑧))‘𝑤))(((𝑥(2nd𝐺)𝑦)‘𝑓)‘𝑤)) = (((⟨𝑦, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)(⟨((1st𝐹)‘⟨𝑥, 𝑤⟩), ((1st𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st𝐹)‘⟨𝑧, 𝑤⟩))((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)))
146 eqid 2797 . . . . . . . 8 (Hom ‘(𝐶 ×c 𝐷)) = (Hom ‘(𝐶 ×c 𝐷))
147 eqid 2797 . . . . . . . 8 (comp‘(𝐶 ×c 𝐷)) = (comp‘(𝐶 ×c 𝐷))
148 eqid 2797 . . . . . . . 8 (comp‘𝐸) = (comp‘𝐸)
14967, 112, 68sylancr 582 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
150 opelxpi 5347 . . . . . . . . 9 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
151113, 150sylan 576 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
152 opelxpi 5347 . . . . . . . . 9 ((𝑦 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
153119, 152sylan 576 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
154 opelxpi 5347 . . . . . . . . 9 ((𝑧 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑧, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
155126, 154sylan 576 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑧, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
1566, 7, 10, 110, 115catidcl 16654 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((Id‘𝐷)‘𝑤) ∈ (𝑤(Hom ‘𝐷)𝑤))
157 opelxpi 5347 . . . . . . . . . 10 ((𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ ((Id‘𝐷)‘𝑤) ∈ (𝑤(Hom ‘𝐷)𝑤)) → ⟨𝑓, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑥(Hom ‘𝐶)𝑦) × (𝑤(Hom ‘𝐷)𝑤)))
158140, 156, 157syl2anc 580 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑥(Hom ‘𝐶)𝑦) × (𝑤(Hom ‘𝐷)𝑤)))
15963, 2, 6, 9, 7, 114, 115, 120, 115, 146xpchom2 17138 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑥, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑤⟩) = ((𝑥(Hom ‘𝐶)𝑦) × (𝑤(Hom ‘𝐷)𝑤)))
160158, 159eleqtrrd 2879 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑤)⟩ ∈ (⟨𝑥, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑤⟩))
161 opelxpi 5347 . . . . . . . . . 10 ((𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧) ∧ ((Id‘𝐷)‘𝑤) ∈ (𝑤(Hom ‘𝐷)𝑤)) → ⟨𝑔, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑦(Hom ‘𝐶)𝑧) × (𝑤(Hom ‘𝐷)𝑤)))
162134, 156, 161syl2anc 580 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑔, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑦(Hom ‘𝐶)𝑧) × (𝑤(Hom ‘𝐷)𝑤)))
16363, 2, 6, 9, 7, 120, 115, 127, 115, 146xpchom2 17138 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑦, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩) = ((𝑦(Hom ‘𝐶)𝑧) × (𝑤(Hom ‘𝐷)𝑤)))
164162, 163eleqtrrd 2879 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑔, ((Id‘𝐷)‘𝑤)⟩ ∈ (⟨𝑦, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩))
16564, 146, 147, 148, 149, 151, 153, 155, 160, 164funcco 16842 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = (((⟨𝑦, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)(⟨((1st𝐹)‘⟨𝑥, 𝑤⟩), ((1st𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st𝐹)‘⟨𝑧, 𝑤⟩))((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)))
166 eqid 2797 . . . . . . . . . . 11 (comp‘𝐷) = (comp‘𝐷)
16763, 2, 6, 9, 7, 114, 115, 120, 115, 26, 166, 147, 127, 115, 140, 156, 134, 156xpcco2 17139 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩) = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤))⟩)
1686, 7, 10, 110, 115, 166, 115, 156catlid 16655 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤)) = ((Id‘𝐷)‘𝑤))
169168opeq2d 4598 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤))⟩ = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
170167, 169eqtrd 2831 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩) = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
171170fveq2d 6413 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = ((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩))
172 df-ov 6879 . . . . . . . 8 ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
173171, 172syl6eqr 2849 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)))
174145, 165, 1733eqtr2rd 2838 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((((𝑦(2nd𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st𝐺)‘𝑥))‘𝑤), ((1st ‘((1st𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st𝐺)‘𝑧))‘𝑤))(((𝑥(2nd𝐺)𝑦)‘𝑓)‘𝑤)))
175174mpteq2dva 4935 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑤 ∈ (Base‘𝐷) ↦ ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤))) = (𝑤 ∈ (Base‘𝐷) ↦ ((((𝑦(2nd𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st𝐺)‘𝑥))‘𝑤), ((1st ‘((1st𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st𝐺)‘𝑧))‘𝑤))(((𝑥(2nd𝐺)𝑦)‘𝑓)‘𝑤))))
1762, 9, 26, 107, 113, 119, 126, 139, 133catcocl 16657 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Hom ‘𝐶)𝑧))
177 eqid 2797 . . . . . 6 ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
1781, 2, 107, 109, 111, 6, 9, 10, 113, 126, 176, 177curf2 17181 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (𝑤 ∈ (Base‘𝐷) ↦ ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤))))
1791, 2, 107, 109, 111, 6, 9, 10, 113, 119, 139, 141, 23curf2cl 17183 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐺)𝑦)‘𝑓) ∈ (((1st𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st𝐺)‘𝑦)))
1801, 2, 107, 109, 111, 6, 9, 10, 119, 126, 133, 135, 23curf2cl 17183 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd𝐺)𝑧)‘𝑔) ∈ (((1st𝐺)‘𝑦)(𝐷 Nat 𝐸)((1st𝐺)‘𝑧)))
18121, 23, 6, 148, 27, 179, 180fucco 16933 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝑄)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓)) = (𝑤 ∈ (Base‘𝐷) ↦ ((((𝑦(2nd𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st𝐺)‘𝑥))‘𝑤), ((1st ‘((1st𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st𝐺)‘𝑧))‘𝑤))(((𝑥(2nd𝐺)𝑦)‘𝑓)‘𝑤))))
182175, 178, 1813eqtr4d 2841 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝑄)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓)))
1832, 22, 9, 24, 8, 25, 26, 27, 3, 31, 40, 46, 62, 106, 182isfuncd 16836 . . 3 (𝜑 → (1st𝐺)(𝐶 Func 𝑄)(2nd𝐺))
184 df-br 4842 . . 3 ((1st𝐺)(𝐶 Func 𝑄)(2nd𝐺) ↔ ⟨(1st𝐺), (2nd𝐺)⟩ ∈ (𝐶 Func 𝑄))
185183, 184sylib 210 . 2 (𝜑 → ⟨(1st𝐺), (2nd𝐺)⟩ ∈ (𝐶 Func 𝑄))
18620, 185eqeltrd 2876 1 (𝜑𝐺 ∈ (𝐶 Func 𝑄))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 385  w3a 1108   = wceq 1653  wcel 2157  Vcvv 3383  cop 4372   class class class wbr 4841  cmpt 4920   × cxp 5308  ccom 5314  Rel wrel 5315   Fn wfn 6094  wf 6095  cfv 6099  (class class class)co 6876  cmpt2 6878  1st c1st 7397  2nd c2nd 7398  Basecbs 16181  Hom chom 16275  compcco 16276  Catccat 16636  Idccid 16637   Func cfunc 16825   Nat cnat 16912   FuncCat cfuc 16913   ×c cxpc 17120   curryF ccurf 17162
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2354  ax-ext 2775  ax-rep 4962  ax-sep 4973  ax-nul 4981  ax-pow 5033  ax-pr 5095  ax-un 7181  ax-cnex 10278  ax-resscn 10279  ax-1cn 10280  ax-icn 10281  ax-addcl 10282  ax-addrcl 10283  ax-mulcl 10284  ax-mulrcl 10285  ax-mulcom 10286  ax-addass 10287  ax-mulass 10288  ax-distr 10289  ax-i2m1 10290  ax-1ne0 10291  ax-1rid 10292  ax-rnegex 10293  ax-rrecex 10294  ax-cnre 10295  ax-pre-lttri 10296  ax-pre-lttrn 10297  ax-pre-ltadd 10298  ax-pre-mulgt0 10299
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3or 1109  df-3an 1110  df-tru 1657  df-fal 1667  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2590  df-eu 2607  df-clab 2784  df-cleq 2790  df-clel 2793  df-nfc 2928  df-ne 2970  df-nel 3073  df-ral 3092  df-rex 3093  df-reu 3094  df-rmo 3095  df-rab 3096  df-v 3385  df-sbc 3632  df-csb 3727  df-dif 3770  df-un 3772  df-in 3774  df-ss 3781  df-pss 3783  df-nul 4114  df-if 4276  df-pw 4349  df-sn 4367  df-pr 4369  df-tp 4371  df-op 4373  df-uni 4627  df-int 4666  df-iun 4710  df-br 4842  df-opab 4904  df-mpt 4921  df-tr 4944  df-id 5218  df-eprel 5223  df-po 5231  df-so 5232  df-fr 5269  df-we 5271  df-xp 5316  df-rel 5317  df-cnv 5318  df-co 5319  df-dm 5320  df-rn 5321  df-res 5322  df-ima 5323  df-pred 5896  df-ord 5942  df-on 5943  df-lim 5944  df-suc 5945  df-iota 6062  df-fun 6101  df-fn 6102  df-f 6103  df-f1 6104  df-fo 6105  df-f1o 6106  df-fv 6107  df-riota 6837  df-ov 6879  df-oprab 6880  df-mpt2 6881  df-om 7298  df-1st 7399  df-2nd 7400  df-wrecs 7643  df-recs 7705  df-rdg 7743  df-1o 7797  df-oadd 7801  df-er 7980  df-map 8095  df-ixp 8147  df-en 8194  df-dom 8195  df-sdom 8196  df-fin 8197  df-pnf 10363  df-mnf 10364  df-xr 10365  df-ltxr 10366  df-le 10367  df-sub 10556  df-neg 10557  df-nn 11311  df-2 11372  df-3 11373  df-4 11374  df-5 11375  df-6 11376  df-7 11377  df-8 11378  df-9 11379  df-n0 11577  df-z 11663  df-dec 11780  df-uz 11927  df-fz 12577  df-struct 16183  df-ndx 16184  df-slot 16185  df-base 16187  df-hom 16288  df-cco 16289  df-cat 16640  df-cid 16641  df-func 16829  df-nat 16914  df-fuc 16915  df-xpc 17124  df-curf 17166
This theorem is referenced by:  uncfcurf  17191  diagcl  17193  curf2ndf  17199  yoncl  17214
  Copyright terms: Public domain W3C validator