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

Theorem curf1 18186
Description: Value of the object part of the curry functor. (Contributed by Mario Carneiro, 12-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𝐺)‘𝑋)
curf1.j 𝐽 = (Hom ‘𝐷)
curf1.1 1 = (Id‘𝐶)
Assertion
Ref Expression
curf1 (𝜑𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩)
Distinct variable groups:   𝑦,𝑔,𝑧, 1   𝑦,𝐴   𝐵,𝑔,𝑦,𝑧   𝐶,𝑔,𝑦,𝑧   𝐷,𝑔,𝑦,𝑧   𝜑,𝑔,𝑦,𝑧   𝑔,𝐸,𝑦,𝑧   𝑔,𝐽   𝑔,𝐾,𝑦,𝑧   𝑔,𝑋,𝑦,𝑧   𝑔,𝐹,𝑦,𝑧
Allowed substitution hints:   𝐴(𝑧,𝑔)   𝐺(𝑦,𝑧,𝑔)   𝐽(𝑦,𝑧)

Proof of Theorem curf1
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 curf1.k . 2 𝐾 = ((1st𝐺)‘𝑋)
2 curfval.g . . . 4 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
3 curfval.a . . . 4 𝐴 = (Base‘𝐶)
4 curfval.c . . . 4 (𝜑𝐶 ∈ Cat)
5 curfval.d . . . 4 (𝜑𝐷 ∈ Cat)
6 curfval.f . . . 4 (𝜑𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
7 curfval.b . . . 4 𝐵 = (Base‘𝐷)
8 curf1.j . . . 4 𝐽 = (Hom ‘𝐷)
9 curf1.1 . . . 4 1 = (Id‘𝐶)
102, 3, 4, 5, 6, 7, 8, 9curf1fval 18185 . . 3 (𝜑 → (1st𝐺) = (𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩))
11 simpr 484 . . . . . 6 ((𝜑𝑥 = 𝑋) → 𝑥 = 𝑋)
1211oveq1d 7417 . . . . 5 ((𝜑𝑥 = 𝑋) → (𝑥(1st𝐹)𝑦) = (𝑋(1st𝐹)𝑦))
1312mpteq2dv 5241 . . . 4 ((𝜑𝑥 = 𝑋) → (𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)) = (𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)))
14 simp1r 1195 . . . . . . . . 9 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → 𝑥 = 𝑋)
1514opeq1d 4872 . . . . . . . 8 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → ⟨𝑥, 𝑦⟩ = ⟨𝑋, 𝑦⟩)
1614opeq1d 4872 . . . . . . . 8 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → ⟨𝑥, 𝑧⟩ = ⟨𝑋, 𝑧⟩)
1715, 16oveq12d 7420 . . . . . . 7 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → (⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩) = (⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩))
1814fveq2d 6886 . . . . . . 7 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → ( 1𝑥) = ( 1𝑋))
19 eqidd 2725 . . . . . . 7 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → 𝑔 = 𝑔)
2017, 18, 19oveq123d 7423 . . . . . 6 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔) = (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))
2120mpteq2dv 5241 . . . . 5 (((𝜑𝑥 = 𝑋) ∧ 𝑦𝐵𝑧𝐵) → (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)) = (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))
2221mpoeq3dva 7479 . . . 4 ((𝜑𝑥 = 𝑋) → (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔))) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔))))
2313, 22opeq12d 4874 . . 3 ((𝜑𝑥 = 𝑋) → ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩ = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩)
24 curf1.x . . 3 (𝜑𝑋𝐴)
25 opex 5455 . . . 4 ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩ ∈ V
2625a1i 11 . . 3 (𝜑 → ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩ ∈ V)
2710, 23, 24, 26fvmptd 6996 . 2 (𝜑 → ((1st𝐺)‘𝑋) = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩)
281, 27eqtrid 2776 1 (𝜑𝐾 = ⟨(𝑦𝐵 ↦ (𝑋(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑋)(⟨𝑋, 𝑦⟩(2nd𝐹)⟨𝑋, 𝑧⟩)𝑔)))⟩)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3a 1084   = wceq 1533  wcel 2098  Vcvv 3466  cop 4627  cmpt 5222  cfv 6534  (class class class)co 7402  cmpo 7404  1st c1st 7967  2nd c2nd 7968  Basecbs 17149  Hom chom 17213  Catccat 17613  Idccid 17614   Func cfunc 17809   ×c cxpc 18128   curryF ccurf 18171
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5276  ax-sep 5290  ax-nul 5297  ax-pow 5354  ax-pr 5418  ax-un 7719
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-ral 3054  df-rex 3063  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-nul 4316  df-if 4522  df-pw 4597  df-sn 4622  df-pr 4624  df-op 4628  df-uni 4901  df-iun 4990  df-br 5140  df-opab 5202  df-mpt 5223  df-id 5565  df-xp 5673  df-rel 5674  df-cnv 5675  df-co 5676  df-dm 5677  df-rn 5678  df-res 5679  df-ima 5680  df-iota 6486  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-ov 7405  df-oprab 7406  df-mpo 7407  df-1st 7969  df-2nd 7970  df-curf 18175
This theorem is referenced by:  curf11  18187  curf12  18188  curf1cl  18189  curf2ndf  18208
  Copyright terms: Public domain W3C validator