Users' Mathboxes Mathbox for Zhi Wang < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  tposcurf1 Structured version   Visualization version   GIF version

Theorem tposcurf1 50323
Description: Value of the object part of the transposed curry functor. (Contributed by Zhi Wang, 9-Oct-2025.)
Hypotheses
Ref Expression
tposcurf1.g (𝜑𝐺 = (⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))
tposcurf1.a 𝐴 = (Base‘𝐶)
tposcurf1.c (𝜑𝐶 ∈ Cat)
tposcurf1.d (𝜑𝐷 ∈ Cat)
tposcurf1.f (𝜑𝐹 ∈ ((𝐷 ×c 𝐶) Func 𝐸))
tposcurf1.x (𝜑𝑋𝐴)
tposcurf1.k (𝜑𝐾 = ((1st𝐺)‘𝑋))
tposcurf1.b 𝐵 = (Base‘𝐷)
tposcurf1.j 𝐽 = (Hom ‘𝐷)
tposcurf1.1 1 = (Id‘𝐶)
Assertion
Ref Expression
tposcurf1 (𝜑𝐾 = ⟨(𝑦𝐵 ↦ (𝑦(1st𝐹)𝑋)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋))))⟩)
Distinct variable groups:   1 ,𝑔,𝑦,𝑧   𝑦,𝐴   𝐵,𝑔,𝑦,𝑧   𝐶,𝑔,𝑦,𝑧   𝐷,𝑔,𝑦,𝑧   𝑔,𝐸,𝑦,𝑧   𝑔,𝐹,𝑦,𝑧   𝑔,𝐽   𝑔,𝑋,𝑦,𝑧   𝜑,𝑔,𝑦,𝑧
Allowed substitution hints:   𝐴(𝑧, 𝑔)   𝐺(𝑦, 𝑧, 𝑔)   𝐽(𝑦, 𝑧)   𝐾(𝑦, 𝑧, 𝑔)

Proof of Theorem tposcurf1
StepHypRef Expression
1 tposcurf1.k . . 3 (𝜑𝐾 = ((1st𝐺)‘𝑋))
2 tposcurf1.g . . . . 5 (𝜑𝐺 = (⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))
32fveq2d 6878 . . . 4 (𝜑 → (1st𝐺) = (1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷)))))
43fveq1d 6876 . . 3 (𝜑 → ((1st𝐺)‘𝑋) = ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))‘𝑋))
5 eqid 2760 . . . 4 (⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))) = (⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷)))
6 tposcurf1.a . . . 4 𝐴 = (Base‘𝐶)
7 tposcurf1.c . . . 4 (𝜑𝐶 ∈ Cat)
8 tposcurf1.d . . . 4 (𝜑𝐷 ∈ Cat)
9 tposcurf1.f . . . . 5 (𝜑𝐹 ∈ ((𝐷 ×c 𝐶) Func 𝐸))
10 eqidd 2761 . . . . 5 (𝜑 → (𝐹func (𝐶 swapF 𝐷)) = (𝐹func (𝐶 swapF 𝐷)))
117, 8, 9, 10cofuswapfcl 50317 . . . 4 (𝜑 → (𝐹func (𝐶 swapF 𝐷)) ∈ ((𝐶 ×c 𝐷) Func 𝐸))
12 tposcurf1.b . . . 4 𝐵 = (Base‘𝐷)
13 tposcurf1.x . . . 4 (𝜑𝑋𝐴)
14 eqid 2760 . . . 4 ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))‘𝑋) = ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))‘𝑋)
15 tposcurf1.j . . . 4 𝐽 = (Hom ‘𝐷)
16 tposcurf1.1 . . . 4 1 = (Id‘𝐶)
175, 6, 7, 8, 11, 12, 13, 14, 15, 16curf1 18346 . . 3 (𝜑 → ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))‘𝑋) = ⟨(𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)))⟩)
181, 4, 173eqtrd 2799 . 2 (𝜑𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)))⟩)
1912fvexi 6888 . . . . . . . . 9 𝐵 ∈ V
2019mptex 7218 . . . . . . . 8 (𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)) ∈ V
2119, 19mpoex 8076 . . . . . . . 8 (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔))) ∈ V
2220, 21op1std 7995 . . . . . . 7 (𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)))⟩ → (1st𝐾) = (𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)))
2318, 22syl 18 . . . . . 6 (𝜑 → (1st𝐾) = (𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)))
24 ovexd 7444 . . . . . 6 ((𝜑𝑦𝐵) → (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦) ∈ V)
2523, 24fvmpt2d 6996 . . . . 5 ((𝜑𝑦𝐵) → ((1st𝐾)‘𝑦) = (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦))
262adantr 486 . . . . . 6 ((𝜑𝑦𝐵) → 𝐺 = (⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))
277adantr 486 . . . . . 6 ((𝜑𝑦𝐵) → 𝐶 ∈ Cat)
288adantr 486 . . . . . 6 ((𝜑𝑦𝐵) → 𝐷 ∈ Cat)
299adantr 486 . . . . . 6 ((𝜑𝑦𝐵) → 𝐹 ∈ ((𝐷 ×c 𝐶) Func 𝐸))
3013adantr 486 . . . . . 6 ((𝜑𝑦𝐵) → 𝑋𝐴)
311adantr 486 . . . . . 6 ((𝜑𝑦𝐵) → 𝐾 = ((1st𝐺)‘𝑋))
32 simpr 490 . . . . . 6 ((𝜑𝑦𝐵) → 𝑦𝐵)
3326, 6, 27, 28, 29, 30, 31, 12, 32tposcurf11 50321 . . . . 5 ((𝜑𝑦𝐵) → ((1st𝐾)‘𝑦) = (𝑦(1st𝐹)𝑋))
3425, 33eqtr3d 2797 . . . 4 ((𝜑𝑦𝐵) → (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦) = (𝑦(1st𝐹)𝑋))
3534mpteq2dva 5198 . . 3 (𝜑 → (𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)) = (𝑦𝐵 ↦ (𝑦(1st𝐹)𝑋)))
3620, 21op2ndd 7996 . . . . . . . . . 10 (𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)))⟩ → (2nd𝐾) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔))))
3718, 36syl 18 . . . . . . . . 9 (𝜑 → (2nd𝐾) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔))))
38 ovex 7442 . . . . . . . . . . 11 (𝑦𝐽𝑧) ∈ V
3938mptex 7218 . . . . . . . . . 10 (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)) ∈ V
4039a1i 11 . . . . . . . . 9 ((𝜑 ∧ (𝑦𝐵𝑧𝐵)) → (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)) ∈ V)
4137, 40ovmpt4d 49891 . . . . . . . 8 ((𝜑 ∧ (𝑦𝐵𝑧𝐵)) → (𝑦(2nd𝐾)𝑧) = (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)))
42 ovexd 7444 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔) ∈ V)
4341, 42fvmpt2d 6996 . . . . . . 7 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → ((𝑦(2nd𝐾)𝑧)‘𝑔) = (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔))
442ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝐺 = (⟨𝐶, 𝐷⟩ curryF (𝐹func (𝐶 swapF 𝐷))))
457ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝐶 ∈ Cat)
468ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝐷 ∈ Cat)
479ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝐹 ∈ ((𝐷 ×c 𝐶) Func 𝐸))
4813ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝑋𝐴)
491ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝐾 = ((1st𝐺)‘𝑋))
50 simplrl 789 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝑦𝐵)
51 simplrr 790 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝑧𝐵)
52 simpr 490 . . . . . . . 8 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → 𝑔 ∈ (𝑦𝐽𝑧))
5344, 6, 45, 46, 47, 48, 49, 12, 50, 15, 16, 51, 52tposcurf12 50322 . . . . . . 7 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → ((𝑦(2nd𝐾)𝑧)‘𝑔) = (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋)))
5443, 53eqtr3d 2797 . . . . . 6 (((𝜑 ∧ (𝑦𝐵𝑧𝐵)) ∧ 𝑔 ∈ (𝑦𝐽𝑧)) → (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔) = (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋)))
5554mpteq2dva 5198 . . . . 5 ((𝜑 ∧ (𝑦𝐵𝑧𝐵)) → (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)) = (𝑔 ∈ (𝑦𝐽𝑧) ↦ (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋))))
56553impb 1132 . . . 4 ((𝜑𝑦𝐵𝑧𝐵) → (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)) = (𝑔 ∈ (𝑦𝐽𝑧) ↦ (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋))))
5756mpoeq3dva 7486 . . 3 (𝜑 → (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔))) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋)))))
5835, 57opeq12d 4841 . 2 (𝜑 → ⟨(𝑦𝐵 ↦ (𝑋(1st ‘(𝐹func (𝐶 swapF 𝐷)))𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd ‘(𝐹func (𝐶 swapF 𝐷)))⟨𝑋, 𝑧⟩)𝑔)))⟩ = ⟨(𝑦𝐵 ↦ (𝑦(1st𝐹)𝑋)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋))))⟩)
5918, 58eqtrd 2795 1 (𝜑𝐾 = ⟨(𝑦𝐵 ↦ (𝑦(1st𝐹)𝑋)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (𝑔(⟨𝑦, 𝑋⟩(2nd𝐹)⟨𝑧, 𝑋⟩)( 1𝑋))))⟩)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wa 401   = wceq 1570  wcel 2145  Vcvv 3450  cop 4590  cmpt 5186  cfv 6528  (class class class)co 7409  cmpo 7411  1st c1st 7983  2nd c2nd 7984  Basecbs 17334  Hom chom 17386  Catccat 17785  Idccid 17786   Func cfunc 17976  func ccofu 17978   ×c cxpc 18289   curryF ccurf 18331   swapF cswapf 50283
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7735  ax-cnex 11213  ax-resscn 11214  ax-1cn 11215  ax-icn 11216  ax-addcl 11217  ax-addrcl 11218  ax-mulcl 11219  ax-mulrcl 11220  ax-mulcom 11221  ax-addass 11222  ax-mulass 11223  ax-distr 11224  ax-i2m1 11225  ax-1ne0 11226  ax-1rid 11227  ax-rnegex 11228  ax-rrecex 11229  ax-cnre 11230  ax-pre-lttri 11231  ax-pre-lttrn 11232  ax-pre-ltadd 11233  ax-pre-mulgt0 11234
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5543  df-eprel 5548  df-po 5556  df-so 5557  df-fr 5601  df-we 5603  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-pred 6294  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6530  df-fn 6531  df-f 6532  df-f1 6533  df-fo 6534  df-f1o 6535  df-fv 6536  df-riota 7366  df-ov 7412  df-oprab 7413  df-mpo 7414  df-om 7862  df-1st 7985  df-2nd 7986  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8455  df-er 8696  df-map 8828  df-ixp 8905  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-pnf 11302  df-mnf 11303  df-xr 11304  df-ltxr 11305  df-le 11306  df-sub 11500  df-neg 11501  df-nn 12291  df-2 12360  df-3 12361  df-4 12362  df-5 12363  df-6 12364  df-7 12365  df-8 12366  df-9 12367  df-n0 12562  df-z 12649  df-dec 12770  df-uz 12921  df-fz 13595  df-struct 17272  df-slot 17307  df-ndx 17319  df-base 17335  df-hom 17399  df-cco 17400  df-cat 17789  df-cid 17790  df-func 17980  df-cofu 17982  df-xpc 18293  df-curf 18335  df-swapf 50284
This theorem is used by:  precofval  50391  precofvalALT  50392
  Copyright terms: Public domain W3C validator