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

Theorem curf1cl 16640
Description: The partially evaluated curry functor is a functor. (Contributed by Mario Carneiro, 13-Jan-2017.)
Hypotheses
Ref Expression
curfval.g 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
curfval.a 𝐴 = (Base‘𝐶)
curfval.c (𝜑𝐶 ∈ Cat)
curfval.d (𝜑𝐷 ∈ Cat)
curfval.f (𝜑𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
curfval.b 𝐵 = (Base‘𝐷)
curf1.x (𝜑𝑋𝐴)
curf1.k 𝐾 = ((1st𝐺)‘𝑋)
Assertion
Ref Expression
curf1cl (𝜑𝐾 ∈ (𝐷 Func 𝐸))

Proof of Theorem curf1cl
Dummy variables 𝑔 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 curfval.g . . . 4 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
2 curfval.a . . . 4 𝐴 = (Base‘𝐶)
3 curfval.c . . . 4 (𝜑𝐶 ∈ Cat)
4 curfval.d . . . 4 (𝜑𝐷 ∈ Cat)
5 curfval.f . . . 4 (𝜑𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
6 curfval.b . . . 4 𝐵 = (Base‘𝐷)
7 curf1.x . . . 4 (𝜑𝑋𝐴)
8 curf1.k . . . 4 𝐾 = ((1st𝐺)‘𝑋)
9 eqid 2609 . . . 4 (Hom ‘𝐷) = (Hom ‘𝐷)
10 eqid 2609 . . . 4 (Id‘𝐶) = (Id‘𝐶)
111, 2, 3, 4, 5, 6, 7, 8, 9, 10curf1 16637 . . 3 (𝜑𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩)
12 fvex 6098 . . . . . . . 8 (Base‘𝐷) ∈ V
136, 12eqeltri 2683 . . . . . . 7 𝐵 ∈ V
1413mptex 6368 . . . . . 6 (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)) ∈ V
1513, 13mpt2ex 7114 . . . . . 6 (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))) ∈ V
1614, 15op1std 7047 . . . . 5 (𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩ → (1st𝐾) = (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)))
1711, 16syl 17 . . . 4 (𝜑 → (1st𝐾) = (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)))
1814, 15op2ndd 7048 . . . . 5 (𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩ → (2nd𝐾) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))))
1911, 18syl 17 . . . 4 (𝜑 → (2nd𝐾) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))))
2017, 19opeq12d 4342 . . 3 (𝜑 → ⟨(1st𝐾), (2nd𝐾)⟩ = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩)
2111, 20eqtr4d 2646 . 2 (𝜑𝐾 = ⟨(1st𝐾), (2nd𝐾)⟩)
22 eqid 2609 . . . 4 (Base‘𝐸) = (Base‘𝐸)
23 eqid 2609 . . . 4 (Hom ‘𝐸) = (Hom ‘𝐸)
24 eqid 2609 . . . 4 (Id‘𝐷) = (Id‘𝐷)
25 eqid 2609 . . . 4 (Id‘𝐸) = (Id‘𝐸)
26 eqid 2609 . . . 4 (comp‘𝐷) = (comp‘𝐷)
27 eqid 2609 . . . 4 (comp‘𝐸) = (comp‘𝐸)
28 funcrcl 16295 . . . . . 6 (𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸) → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
295, 28syl 17 . . . . 5 (𝜑 → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
3029simprd 477 . . . 4 (𝜑𝐸 ∈ Cat)
31 eqid 2609 . . . . . . . . . 10 (𝐶 ×c 𝐷) = (𝐶 ×c 𝐷)
3231, 2, 6xpcbas 16590 . . . . . . . . 9 (𝐴 × 𝐵) = (Base‘(𝐶 ×c 𝐷))
33 relfunc 16294 . . . . . . . . . 10 Rel ((𝐶 ×c 𝐷) Func 𝐸)
34 1st2ndbr 7086 . . . . . . . . . 10 ((Rel ((𝐶 ×c 𝐷) Func 𝐸) ∧ 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸)) → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
3533, 5, 34sylancr 693 . . . . . . . . 9 (𝜑 → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
3632, 22, 35funcf1 16298 . . . . . . . 8 (𝜑 → (1st𝐹):(𝐴 × 𝐵)⟶(Base‘𝐸))
3736adantr 479 . . . . . . 7 ((𝜑𝑦𝐵) → (1st𝐹):(𝐴 × 𝐵)⟶(Base‘𝐸))
387adantr 479 . . . . . . 7 ((𝜑𝑦𝐵) → 𝑋𝐴)
39 simpr 475 . . . . . . 7 ((𝜑𝑦𝐵) → 𝑦𝐵)
4037, 38, 39fovrnd 6682 . . . . . 6 ((𝜑𝑦𝐵) → (𝑋(1st𝐹)𝑦) ∈ (Base‘𝐸))
41 eqid 2609 . . . . . 6 (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)) = (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦))
4240, 41fmptd 6277 . . . . 5 (𝜑 → (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)):𝐵⟶(Base‘𝐸))
4317feq1d 5929 . . . . 5 (𝜑 → ((1st𝐾):𝐵⟶(Base‘𝐸) ↔ (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)):𝐵⟶(Base‘𝐸)))
4442, 43mpbird 245 . . . 4 (𝜑 → (1st𝐾):𝐵⟶(Base‘𝐸))
45 eqid 2609 . . . . . 6 (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))
46 ovex 6555 . . . . . . 7 (𝑦(Hom ‘𝐷)𝑧) ∈ V
4746mptex 6368 . . . . . 6 (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)) ∈ V
4845, 47fnmpt2i 7106 . . . . 5 (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))) Fn (𝐵 × 𝐵)
4919fneq1d 5881 . . . . 5 (𝜑 → ((2nd𝐾) Fn (𝐵 × 𝐵) ↔ (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))) Fn (𝐵 × 𝐵)))
5048, 49mpbiri 246 . . . 4 (𝜑 → (2nd𝐾) Fn (𝐵 × 𝐵))
51 eqid 2609 . . . . . . . . 9 (Hom ‘(𝐶 ×c 𝐷)) = (Hom ‘(𝐶 ×c 𝐷))
5235ad2antrr 757 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
537ad2antrr 757 . . . . . . . . . 10 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑋𝐴)
54 simplrl 795 . . . . . . . . . 10 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑦𝐵)
55 opelxpi 5062 . . . . . . . . . 10 ((𝑋𝐴𝑦𝐵) → ⟨𝑋, 𝑦⟩ ∈ (𝐴 × 𝐵))
5653, 54, 55syl2anc 690 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ⟨𝑋, 𝑦⟩ ∈ (𝐴 × 𝐵))
57 simplrr 796 . . . . . . . . . 10 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑧𝐵)
58 opelxpi 5062 . . . . . . . . . 10 ((𝑋𝐴𝑧𝐵) → ⟨𝑋, 𝑧⟩ ∈ (𝐴 × 𝐵))
5953, 57, 58syl2anc 690 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ⟨𝑋, 𝑧⟩ ∈ (𝐴 × 𝐵))
6032, 51, 23, 52, 56, 59funcf2 16300 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩):(⟨𝑋, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑋, 𝑧⟩)⟶(((1st𝐹)‘⟨𝑋, 𝑦⟩)(Hom ‘𝐸)((1st𝐹)‘⟨𝑋, 𝑧⟩)))
61 eqid 2609 . . . . . . . . . 10 (Hom ‘𝐶) = (Hom ‘𝐶)
6231, 32, 61, 9, 51, 56, 59xpchom 16592 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (⟨𝑋, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑋, 𝑧⟩) = (((1st ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐶)(1st ‘⟨𝑋, 𝑧⟩)) × ((2nd ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐷)(2nd ‘⟨𝑋, 𝑧⟩))))
633ad2antrr 757 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝐶 ∈ Cat)
644ad2antrr 757 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝐷 ∈ Cat)
655ad2antrr 757 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
661, 2, 63, 64, 65, 6, 53, 8, 54curf11 16638 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((1st𝐾)‘𝑦) = (𝑋(1st𝐹)𝑦))
67 df-ov 6530 . . . . . . . . . . 11 (𝑋(1st𝐹)𝑦) = ((1st𝐹)‘⟨𝑋, 𝑦⟩)
6866, 67syl6req 2660 . . . . . . . . . 10 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((1st𝐹)‘⟨𝑋, 𝑦⟩) = ((1st𝐾)‘𝑦))
691, 2, 63, 64, 65, 6, 53, 8, 57curf11 16638 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((1st𝐾)‘𝑧) = (𝑋(1st𝐹)𝑧))
70 df-ov 6530 . . . . . . . . . . 11 (𝑋(1st𝐹)𝑧) = ((1st𝐹)‘⟨𝑋, 𝑧⟩)
7169, 70syl6req 2660 . . . . . . . . . 10 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((1st𝐹)‘⟨𝑋, 𝑧⟩) = ((1st𝐾)‘𝑧))
7268, 71oveq12d 6545 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (((1st𝐹)‘⟨𝑋, 𝑦⟩)(Hom ‘𝐸)((1st𝐹)‘⟨𝑋, 𝑧⟩)) = (((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧)))
7362, 72feq23d 5939 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩):(⟨𝑋, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑋, 𝑧⟩)⟶(((1st𝐹)‘⟨𝑋, 𝑦⟩)(Hom ‘𝐸)((1st𝐹)‘⟨𝑋, 𝑧⟩)) ↔ (⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩):(((1st ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐶)(1st ‘⟨𝑋, 𝑧⟩)) × ((2nd ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐷)(2nd ‘⟨𝑋, 𝑧⟩)))⟶(((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧))))
7460, 73mpbid 220 . . . . . . 7 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩):(((1st ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐶)(1st ‘⟨𝑋, 𝑧⟩)) × ((2nd ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐷)(2nd ‘⟨𝑋, 𝑧⟩)))⟶(((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧)))
752, 61, 10, 63, 53catidcl 16115 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((Id‘𝐶)‘𝑋) ∈ (𝑋(Hom ‘𝐶)𝑋))
76 op1stg 7049 . . . . . . . . . 10 ((𝑋𝐴𝑦𝐵) → (1st ‘⟨𝑋, 𝑦⟩) = 𝑋)
7753, 54, 76syl2anc 690 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (1st ‘⟨𝑋, 𝑦⟩) = 𝑋)
78 op1stg 7049 . . . . . . . . . 10 ((𝑋𝐴𝑧𝐵) → (1st ‘⟨𝑋, 𝑧⟩) = 𝑋)
7953, 57, 78syl2anc 690 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (1st ‘⟨𝑋, 𝑧⟩) = 𝑋)
8077, 79oveq12d 6545 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((1st ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐶)(1st ‘⟨𝑋, 𝑧⟩)) = (𝑋(Hom ‘𝐶)𝑋))
8175, 80eleqtrrd 2690 . . . . . . 7 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((Id‘𝐶)‘𝑋) ∈ ((1st ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐶)(1st ‘⟨𝑋, 𝑧⟩)))
82 simpr 475 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧))
83 op2ndg 7050 . . . . . . . . . 10 ((𝑋𝐴𝑦𝐵) → (2nd ‘⟨𝑋, 𝑦⟩) = 𝑦)
8453, 54, 83syl2anc 690 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (2nd ‘⟨𝑋, 𝑦⟩) = 𝑦)
85 op2ndg 7050 . . . . . . . . . 10 ((𝑋𝐴𝑧𝐵) → (2nd ‘⟨𝑋, 𝑧⟩) = 𝑧)
8653, 57, 85syl2anc 690 . . . . . . . . 9 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (2nd ‘⟨𝑋, 𝑧⟩) = 𝑧)
8784, 86oveq12d 6545 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((2nd ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐷)(2nd ‘⟨𝑋, 𝑧⟩)) = (𝑦(Hom ‘𝐷)𝑧))
8882, 87eleqtrrd 2690 . . . . . . 7 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑔 ∈ ((2nd ‘⟨𝑋, 𝑦⟩)(Hom ‘𝐷)(2nd ‘⟨𝑋, 𝑧⟩)))
8974, 81, 88fovrnd 6682 . . . . . 6 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔) ∈ (((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧)))
90 eqid 2609 . . . . . 6 (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)) = (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))
9189, 90fmptd 6277 . . . . 5 ((𝜑 ∧ (𝑦𝐵𝑧𝐵)) → (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)):(𝑦(Hom ‘𝐷)𝑧)⟶(((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧)))
9219oveqd 6544 . . . . . . 7 (𝜑 → (𝑦(2nd𝐾)𝑧) = (𝑦(𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))𝑧))
9345ovmpt4g 6659 . . . . . . . 8 ((𝑦𝐵𝑧𝐵 ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)) ∈ V) → (𝑦(𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))𝑧) = (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))
9447, 93mp3an3 1404 . . . . . . 7 ((𝑦𝐵𝑧𝐵) → (𝑦(𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))𝑧) = (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))
9592, 94sylan9eq 2663 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵)) → (𝑦(2nd𝐾)𝑧) = (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))
9695feq1d 5929 . . . . 5 ((𝜑 ∧ (𝑦𝐵𝑧𝐵)) → ((𝑦(2nd𝐾)𝑧):(𝑦(Hom ‘𝐷)𝑧)⟶(((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧)) ↔ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)):(𝑦(Hom ‘𝐷)𝑧)⟶(((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧))))
9791, 96mpbird 245 . . . 4 ((𝜑 ∧ (𝑦𝐵𝑧𝐵)) → (𝑦(2nd𝐾)𝑧):(𝑦(Hom ‘𝐷)𝑧)⟶(((1st𝐾)‘𝑦)(Hom ‘𝐸)((1st𝐾)‘𝑧)))
983adantr 479 . . . . . . . . 9 ((𝜑𝑦𝐵) → 𝐶 ∈ Cat)
994adantr 479 . . . . . . . . 9 ((𝜑𝑦𝐵) → 𝐷 ∈ Cat)
100 eqid 2609 . . . . . . . . 9 (Id‘(𝐶 ×c 𝐷)) = (Id‘(𝐶 ×c 𝐷))
10131, 98, 99, 2, 6, 10, 24, 100, 38, 39xpcid 16601 . . . . . . . 8 ((𝜑𝑦𝐵) → ((Id‘(𝐶 ×c 𝐷))‘⟨𝑋, 𝑦⟩) = ⟨((Id‘𝐶)‘𝑋), ((Id‘𝐷)‘𝑦)⟩)
102101fveq2d 6092 . . . . . . 7 ((𝜑𝑦𝐵) → ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑋, 𝑦⟩)) = ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑋), ((Id‘𝐷)‘𝑦)⟩))
103 df-ov 6530 . . . . . . 7 (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑋), ((Id‘𝐷)‘𝑦)⟩)
104102, 103syl6eqr 2661 . . . . . 6 ((𝜑𝑦𝐵) → ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑋, 𝑦⟩)) = (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)((Id‘𝐷)‘𝑦)))
10535adantr 479 . . . . . . 7 ((𝜑𝑦𝐵) → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
1067, 55sylan 486 . . . . . . 7 ((𝜑𝑦𝐵) → ⟨𝑋, 𝑦⟩ ∈ (𝐴 × 𝐵))
10732, 100, 25, 105, 106funcid 16302 . . . . . 6 ((𝜑𝑦𝐵) → ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑋, 𝑦⟩)) = ((Id‘𝐸)‘((1st𝐹)‘⟨𝑋, 𝑦⟩)))
108104, 107eqtr3d 2645 . . . . 5 ((𝜑𝑦𝐵) → (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((Id‘𝐸)‘((1st𝐹)‘⟨𝑋, 𝑦⟩)))
1095adantr 479 . . . . . 6 ((𝜑𝑦𝐵) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
1106, 9, 24, 99, 39catidcl 16115 . . . . . 6 ((𝜑𝑦𝐵) → ((Id‘𝐷)‘𝑦) ∈ (𝑦(Hom ‘𝐷)𝑦))
1111, 2, 98, 99, 109, 6, 38, 8, 39, 9, 10, 39, 110curf12 16639 . . . . 5 ((𝜑𝑦𝐵) → ((𝑦(2nd𝐾)𝑦)‘((Id‘𝐷)‘𝑦)) = (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑦⟩)((Id‘𝐷)‘𝑦)))
1121, 2, 98, 99, 109, 6, 38, 8, 39curf11 16638 . . . . . . 7 ((𝜑𝑦𝐵) → ((1st𝐾)‘𝑦) = (𝑋(1st𝐹)𝑦))
113112, 67syl6eq 2659 . . . . . 6 ((𝜑𝑦𝐵) → ((1st𝐾)‘𝑦) = ((1st𝐹)‘⟨𝑋, 𝑦⟩))
114113fveq2d 6092 . . . . 5 ((𝜑𝑦𝐵) → ((Id‘𝐸)‘((1st𝐾)‘𝑦)) = ((Id‘𝐸)‘((1st𝐹)‘⟨𝑋, 𝑦⟩)))
115108, 111, 1143eqtr4d 2653 . . . 4 ((𝜑𝑦𝐵) → ((𝑦(2nd𝐾)𝑦)‘((Id‘𝐷)‘𝑦)) = ((Id‘𝐸)‘((1st𝐾)‘𝑦)))
11673ad2ant1 1074 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝑋𝐴)
117 simp21 1086 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝑦𝐵)
118 simp22 1087 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝑧𝐵)
119 eqid 2609 . . . . . . . . . 10 (comp‘𝐶) = (comp‘𝐶)
120 eqid 2609 . . . . . . . . . 10 (comp‘(𝐶 ×c 𝐷)) = (comp‘(𝐶 ×c 𝐷))
121 simp23 1088 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝑤𝐵)
12233ad2ant1 1074 . . . . . . . . . . 11 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝐶 ∈ Cat)
1232, 61, 10, 122, 116catidcl 16115 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((Id‘𝐶)‘𝑋) ∈ (𝑋(Hom ‘𝐶)𝑋))
124 simp3l 1081 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧))
125 simp3r 1082 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ∈ (𝑧(Hom ‘𝐷)𝑤))
12631, 2, 6, 61, 9, 116, 117, 116, 118, 119, 26, 120, 116, 121, 123, 124, 123, 125xpcco2 16599 . . . . . . . . 9 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (⟨((Id‘𝐶)‘𝑋), ⟩(⟨⟨𝑋, 𝑦⟩, ⟨𝑋, 𝑧⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑋, 𝑤⟩)⟨((Id‘𝐶)‘𝑋), 𝑔⟩) = ⟨(((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑋)((Id‘𝐶)‘𝑋)), ((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)⟩)
1272, 61, 10, 122, 116, 119, 116, 123catlid 16116 . . . . . . . . . 10 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑋)((Id‘𝐶)‘𝑋)) = ((Id‘𝐶)‘𝑋))
128127opeq1d 4340 . . . . . . . . 9 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨(((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑋)((Id‘𝐶)‘𝑋)), ((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)⟩ = ⟨((Id‘𝐶)‘𝑋), ((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)⟩)
129126, 128eqtrd 2643 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (⟨((Id‘𝐶)‘𝑋), ⟩(⟨⟨𝑋, 𝑦⟩, ⟨𝑋, 𝑧⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑋, 𝑤⟩)⟨((Id‘𝐶)‘𝑋), 𝑔⟩) = ⟨((Id‘𝐶)‘𝑋), ((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)⟩)
130129fveq2d 6092 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘(⟨((Id‘𝐶)‘𝑋), ⟩(⟨⟨𝑋, 𝑦⟩, ⟨𝑋, 𝑧⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑋, 𝑤⟩)⟨((Id‘𝐶)‘𝑋), 𝑔⟩)) = ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘⟨((Id‘𝐶)‘𝑋), ((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)⟩))
131 df-ov 6530 . . . . . . 7 (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)) = ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘⟨((Id‘𝐶)‘𝑋), ((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)⟩)
132130, 131syl6eqr 2661 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘(⟨((Id‘𝐶)‘𝑋), ⟩(⟨⟨𝑋, 𝑦⟩, ⟨𝑋, 𝑧⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑋, 𝑤⟩)⟨((Id‘𝐶)‘𝑋), 𝑔⟩)) = (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)))
133353ad2ant1 1074 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (1st𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd𝐹))
134116, 117, 55syl2anc 690 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨𝑋, 𝑦⟩ ∈ (𝐴 × 𝐵))
135116, 118, 58syl2anc 690 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨𝑋, 𝑧⟩ ∈ (𝐴 × 𝐵))
136 opelxpi 5062 . . . . . . . 8 ((𝑋𝐴𝑤𝐵) → ⟨𝑋, 𝑤⟩ ∈ (𝐴 × 𝐵))
137116, 121, 136syl2anc 690 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨𝑋, 𝑤⟩ ∈ (𝐴 × 𝐵))
138 opelxpi 5062 . . . . . . . . 9 ((((Id‘𝐶)‘𝑋) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ⟨((Id‘𝐶)‘𝑋), 𝑔⟩ ∈ ((𝑋(Hom ‘𝐶)𝑋) × (𝑦(Hom ‘𝐷)𝑧)))
139123, 124, 138syl2anc 690 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨((Id‘𝐶)‘𝑋), 𝑔⟩ ∈ ((𝑋(Hom ‘𝐶)𝑋) × (𝑦(Hom ‘𝐷)𝑧)))
14031, 2, 6, 61, 9, 116, 117, 116, 118, 51xpchom2 16598 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (⟨𝑋, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑋, 𝑧⟩) = ((𝑋(Hom ‘𝐶)𝑋) × (𝑦(Hom ‘𝐷)𝑧)))
141139, 140eleqtrrd 2690 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨((Id‘𝐶)‘𝑋), 𝑔⟩ ∈ (⟨𝑋, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑋, 𝑧⟩))
142 opelxpi 5062 . . . . . . . . 9 ((((Id‘𝐶)‘𝑋) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤)) → ⟨((Id‘𝐶)‘𝑋), ⟩ ∈ ((𝑋(Hom ‘𝐶)𝑋) × (𝑧(Hom ‘𝐷)𝑤)))
143123, 125, 142syl2anc 690 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨((Id‘𝐶)‘𝑋), ⟩ ∈ ((𝑋(Hom ‘𝐶)𝑋) × (𝑧(Hom ‘𝐷)𝑤)))
14431, 2, 6, 61, 9, 116, 118, 116, 121, 51xpchom2 16598 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (⟨𝑋, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑋, 𝑤⟩) = ((𝑋(Hom ‘𝐶)𝑋) × (𝑧(Hom ‘𝐷)𝑤)))
145143, 144eleqtrrd 2690 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨((Id‘𝐶)‘𝑋), ⟩ ∈ (⟨𝑋, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑋, 𝑤⟩))
14632, 51, 120, 27, 133, 134, 135, 137, 141, 145funcco 16303 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘(⟨((Id‘𝐶)‘𝑋), ⟩(⟨⟨𝑋, 𝑦⟩, ⟨𝑋, 𝑧⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑋, 𝑤⟩)⟨((Id‘𝐶)‘𝑋), 𝑔⟩)) = (((⟨𝑋, 𝑧⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘⟨((Id‘𝐶)‘𝑋), ⟩)(⟨((1st𝐹)‘⟨𝑋, 𝑦⟩), ((1st𝐹)‘⟨𝑋, 𝑧⟩)⟩(comp‘𝐸)((1st𝐹)‘⟨𝑋, 𝑤⟩))((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)‘⟨((Id‘𝐶)‘𝑋), 𝑔⟩)))
147132, 146eqtr3d 2645 . . . . 5 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)) = (((⟨𝑋, 𝑧⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘⟨((Id‘𝐶)‘𝑋), ⟩)(⟨((1st𝐹)‘⟨𝑋, 𝑦⟩), ((1st𝐹)‘⟨𝑋, 𝑧⟩)⟩(comp‘𝐸)((1st𝐹)‘⟨𝑋, 𝑤⟩))((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)‘⟨((Id‘𝐶)‘𝑋), 𝑔⟩)))
14843ad2ant1 1074 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝐷 ∈ Cat)
14953ad2ant1 1074 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
1506, 9, 26, 148, 117, 118, 121, 124, 125catcocl 16118 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔) ∈ (𝑦(Hom ‘𝐷)𝑤))
1511, 2, 122, 148, 149, 6, 116, 8, 117, 9, 10, 121, 150curf12 16639 . . . . 5 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((𝑦(2nd𝐾)𝑤)‘((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)) = (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑤⟩)((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)))
1521, 2, 122, 148, 149, 6, 116, 8, 117curf11 16638 . . . . . . . . 9 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((1st𝐾)‘𝑦) = (𝑋(1st𝐹)𝑦))
153152, 67syl6eq 2659 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((1st𝐾)‘𝑦) = ((1st𝐹)‘⟨𝑋, 𝑦⟩))
1541, 2, 122, 148, 149, 6, 116, 8, 118curf11 16638 . . . . . . . . 9 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((1st𝐾)‘𝑧) = (𝑋(1st𝐹)𝑧))
155154, 70syl6eq 2659 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((1st𝐾)‘𝑧) = ((1st𝐹)‘⟨𝑋, 𝑧⟩))
156153, 155opeq12d 4342 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ⟨((1st𝐾)‘𝑦), ((1st𝐾)‘𝑧)⟩ = ⟨((1st𝐹)‘⟨𝑋, 𝑦⟩), ((1st𝐹)‘⟨𝑋, 𝑧⟩)⟩)
1571, 2, 122, 148, 149, 6, 116, 8, 121curf11 16638 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((1st𝐾)‘𝑤) = (𝑋(1st𝐹)𝑤))
158 df-ov 6530 . . . . . . . 8 (𝑋(1st𝐹)𝑤) = ((1st𝐹)‘⟨𝑋, 𝑤⟩)
159157, 158syl6eq 2659 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((1st𝐾)‘𝑤) = ((1st𝐹)‘⟨𝑋, 𝑤⟩))
160156, 159oveq12d 6545 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (⟨((1st𝐾)‘𝑦), ((1st𝐾)‘𝑧)⟩(comp‘𝐸)((1st𝐾)‘𝑤)) = (⟨((1st𝐹)‘⟨𝑋, 𝑦⟩), ((1st𝐹)‘⟨𝑋, 𝑧⟩)⟩(comp‘𝐸)((1st𝐹)‘⟨𝑋, 𝑤⟩)))
1611, 2, 122, 148, 149, 6, 116, 8, 118, 9, 10, 121, 125curf12 16639 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((𝑧(2nd𝐾)𝑤)‘) = (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑧⟩(2nd𝐹)⟨𝑋, 𝑤⟩)))
162 df-ov 6530 . . . . . . 7 (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑧⟩(2nd𝐹)⟨𝑋, 𝑤⟩)) = ((⟨𝑋, 𝑧⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘⟨((Id‘𝐶)‘𝑋), ⟩)
163161, 162syl6eq 2659 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((𝑧(2nd𝐾)𝑤)‘) = ((⟨𝑋, 𝑧⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘⟨((Id‘𝐶)‘𝑋), ⟩))
1641, 2, 122, 148, 149, 6, 116, 8, 117, 9, 10, 118, 124curf12 16639 . . . . . . 7 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((𝑦(2nd𝐾)𝑧)‘𝑔) = (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))
165 df-ov 6530 . . . . . . 7 (((Id‘𝐶)‘𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔) = ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)‘⟨((Id‘𝐶)‘𝑋), 𝑔⟩)
166164, 165syl6eq 2659 . . . . . 6 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((𝑦(2nd𝐾)𝑧)‘𝑔) = ((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)‘⟨((Id‘𝐶)‘𝑋), 𝑔⟩))
167160, 163, 166oveq123d 6548 . . . . 5 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → (((𝑧(2nd𝐾)𝑤)‘)(⟨((1st𝐾)‘𝑦), ((1st𝐾)‘𝑧)⟩(comp‘𝐸)((1st𝐾)‘𝑤))((𝑦(2nd𝐾)𝑧)‘𝑔)) = (((⟨𝑋, 𝑧⟩(2nd𝐹)⟨𝑋, 𝑤⟩)‘⟨((Id‘𝐶)‘𝑋), ⟩)(⟨((1st𝐹)‘⟨𝑋, 𝑦⟩), ((1st𝐹)‘⟨𝑋, 𝑧⟩)⟩(comp‘𝐸)((1st𝐹)‘⟨𝑋, 𝑤⟩))((⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)‘⟨((Id‘𝐶)‘𝑋), 𝑔⟩)))
168147, 151, 1673eqtr4d 2653 . . . 4 ((𝜑 ∧ (𝑦𝐵𝑧𝐵𝑤𝐵) ∧ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ∧ ∈ (𝑧(Hom ‘𝐷)𝑤))) → ((𝑦(2nd𝐾)𝑤)‘((⟨𝑦, 𝑧⟩(comp‘𝐷)𝑤)𝑔)) = (((𝑧(2nd𝐾)𝑤)‘)(⟨((1st𝐾)‘𝑦), ((1st𝐾)‘𝑧)⟩(comp‘𝐸)((1st𝐾)‘𝑤))((𝑦(2nd𝐾)𝑧)‘𝑔)))
1696, 22, 9, 23, 24, 25, 26, 27, 4, 30, 44, 50, 97, 115, 168isfuncd 16297 . . 3 (𝜑 → (1st𝐾)(𝐷 Func 𝐸)(2nd𝐾))
170 df-br 4578 . . 3 ((1st𝐾)(𝐷 Func 𝐸)(2nd𝐾) ↔ ⟨(1st𝐾), (2nd𝐾)⟩ ∈ (𝐷 Func 𝐸))
171169, 170sylib 206 . 2 (𝜑 → ⟨(1st𝐾), (2nd𝐾)⟩ ∈ (𝐷 Func 𝐸))
17221, 171eqeltrd 2687 1 (𝜑𝐾 ∈ (𝐷 Func 𝐸))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 382  w3a 1030   = wceq 1474  wcel 1976  Vcvv 3172  cop 4130   class class class wbr 4577  cmpt 4637   × cxp 5026  Rel wrel 5033   Fn wfn 5785  wf 5786  cfv 5790  (class class class)co 6527  cmpt2 6529  1st c1st 7035  2nd c2nd 7036  Basecbs 15644  Hom chom 15728  compcco 15729  Catccat 16097  Idccid 16098   Func cfunc 16286   ×c cxpc 16580   curryF ccurf 16622
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1712  ax-4 1727  ax-5 1826  ax-6 1874  ax-7 1921  ax-8 1978  ax-9 1985  ax-10 2005  ax-11 2020  ax-12 2033  ax-13 2233  ax-ext 2589  ax-rep 4693  ax-sep 4703  ax-nul 4712  ax-pow 4764  ax-pr 4828  ax-un 6825  ax-cnex 9849  ax-resscn 9850  ax-1cn 9851  ax-icn 9852  ax-addcl 9853  ax-addrcl 9854  ax-mulcl 9855  ax-mulrcl 9856  ax-mulcom 9857  ax-addass 9858  ax-mulass 9859  ax-distr 9860  ax-i2m1 9861  ax-1ne0 9862  ax-1rid 9863  ax-rnegex 9864  ax-rrecex 9865  ax-cnre 9866  ax-pre-lttri 9867  ax-pre-lttrn 9868  ax-pre-ltadd 9869  ax-pre-mulgt0 9870
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-fal 1480  df-ex 1695  df-nf 1700  df-sb 1867  df-eu 2461  df-mo 2462  df-clab 2596  df-cleq 2602  df-clel 2605  df-nfc 2739  df-ne 2781  df-nel 2782  df-ral 2900  df-rex 2901  df-reu 2902  df-rmo 2903  df-rab 2904  df-v 3174  df-sbc 3402  df-csb 3499  df-dif 3542  df-un 3544  df-in 3546  df-ss 3553  df-pss 3555  df-nul 3874  df-if 4036  df-pw 4109  df-sn 4125  df-pr 4127  df-tp 4129  df-op 4131  df-uni 4367  df-int 4405  df-iun 4451  df-br 4578  df-opab 4638  df-mpt 4639  df-tr 4675  df-eprel 4939  df-id 4943  df-po 4949  df-so 4950  df-fr 4987  df-we 4989  df-xp 5034  df-rel 5035  df-cnv 5036  df-co 5037  df-dm 5038  df-rn 5039  df-res 5040  df-ima 5041  df-pred 5583  df-ord 5629  df-on 5630  df-lim 5631  df-suc 5632  df-iota 5754  df-fun 5792  df-fn 5793  df-f 5794  df-f1 5795  df-fo 5796  df-f1o 5797  df-fv 5798  df-riota 6489  df-ov 6530  df-oprab 6531  df-mpt2 6532  df-om 6936  df-1st 7037  df-2nd 7038  df-wrecs 7272  df-recs 7333  df-rdg 7371  df-1o 7425  df-oadd 7429  df-er 7607  df-map 7724  df-ixp 7773  df-en 7820  df-dom 7821  df-sdom 7822  df-fin 7823  df-pnf 9933  df-mnf 9934  df-xr 9935  df-ltxr 9936  df-le 9937  df-sub 10120  df-neg 10121  df-nn 10871  df-2 10929  df-3 10930  df-4 10931  df-5 10932  df-6 10933  df-7 10934  df-8 10935  df-9 10936  df-n0 11143  df-z 11214  df-dec 11329  df-uz 11523  df-fz 12156  df-struct 15646  df-ndx 15647  df-slot 15648  df-base 15649  df-hom 15742  df-cco 15743  df-cat 16101  df-cid 16102  df-func 16290  df-xpc 16584  df-curf 16626
This theorem is referenced by:  curf2cl  16643  curfcl  16644
  Copyright terms: Public domain W3C validator