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

Theorem fucval 16825
Description: Value of the functor category. (Contributed by Mario Carneiro, 6-Jan-2017.)
Hypotheses
Ref Expression
fucval.q 𝑄 = (𝐶 FuncCat 𝐷)
fucval.b 𝐵 = (𝐶 Func 𝐷)
fucval.n 𝑁 = (𝐶 Nat 𝐷)
fucval.a 𝐴 = (Base‘𝐶)
fucval.o · = (comp‘𝐷)
fucval.c (𝜑𝐶 ∈ Cat)
fucval.d (𝜑𝐷 ∈ Cat)
fucval.x (𝜑 = (𝑣 ∈ (𝐵 × 𝐵), 𝐵(1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔𝑁), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥))))))
Assertion
Ref Expression
fucval (𝜑𝑄 = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), ⟩})
Distinct variable groups:   𝑣,,𝐵   𝑎,𝑏,𝑓,𝑔,,𝑣,𝑥,𝜑   𝐶,𝑎,𝑏,𝑓,𝑔,,𝑣,𝑥   𝐷,𝑎,𝑏,𝑓,𝑔,,𝑣,𝑥
Allowed substitution hints:   𝐴(𝑥,𝑣,𝑓,𝑔,,𝑎,𝑏)   𝐵(𝑥,𝑓,𝑔,𝑎,𝑏)   𝑄(𝑥,𝑣,𝑓,𝑔,,𝑎,𝑏)   (𝑥,𝑣,𝑓,𝑔,,𝑎,𝑏)   · (𝑥,𝑣,𝑓,𝑔,,𝑎,𝑏)   𝑁(𝑥,𝑣,𝑓,𝑔,,𝑎,𝑏)

Proof of Theorem fucval
Dummy variables 𝑡 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fucval.q . 2 𝑄 = (𝐶 FuncCat 𝐷)
2 df-fuc 16811 . . . 4 FuncCat = (𝑡 ∈ Cat, 𝑢 ∈ Cat ↦ {⟨(Base‘ndx), (𝑡 Func 𝑢)⟩, ⟨(Hom ‘ndx), (𝑡 Nat 𝑢)⟩, ⟨(comp‘ndx), (𝑣 ∈ ((𝑡 Func 𝑢) × (𝑡 Func 𝑢)), ∈ (𝑡 Func 𝑢) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)))))⟩})
32a1i 11 . . 3 (𝜑 → FuncCat = (𝑡 ∈ Cat, 𝑢 ∈ Cat ↦ {⟨(Base‘ndx), (𝑡 Func 𝑢)⟩, ⟨(Hom ‘ndx), (𝑡 Nat 𝑢)⟩, ⟨(comp‘ndx), (𝑣 ∈ ((𝑡 Func 𝑢) × (𝑡 Func 𝑢)), ∈ (𝑡 Func 𝑢) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)))))⟩}))
4 simprl 754 . . . . . . 7 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → 𝑡 = 𝐶)
5 simprr 756 . . . . . . 7 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → 𝑢 = 𝐷)
64, 5oveq12d 6814 . . . . . 6 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑡 Func 𝑢) = (𝐶 Func 𝐷))
7 fucval.b . . . . . 6 𝐵 = (𝐶 Func 𝐷)
86, 7syl6eqr 2823 . . . . 5 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑡 Func 𝑢) = 𝐵)
98opeq2d 4547 . . . 4 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → ⟨(Base‘ndx), (𝑡 Func 𝑢)⟩ = ⟨(Base‘ndx), 𝐵⟩)
104, 5oveq12d 6814 . . . . . 6 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑡 Nat 𝑢) = (𝐶 Nat 𝐷))
11 fucval.n . . . . . 6 𝑁 = (𝐶 Nat 𝐷)
1210, 11syl6eqr 2823 . . . . 5 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑡 Nat 𝑢) = 𝑁)
1312opeq2d 4547 . . . 4 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → ⟨(Hom ‘ndx), (𝑡 Nat 𝑢)⟩ = ⟨(Hom ‘ndx), 𝑁⟩)
148sqxpeqd 5281 . . . . . . 7 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → ((𝑡 Func 𝑢) × (𝑡 Func 𝑢)) = (𝐵 × 𝐵))
1512oveqd 6813 . . . . . . . . . 10 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑔(𝑡 Nat 𝑢)) = (𝑔𝑁))
1612oveqd 6813 . . . . . . . . . 10 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑓(𝑡 Nat 𝑢)𝑔) = (𝑓𝑁𝑔))
174fveq2d 6337 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (Base‘𝑡) = (Base‘𝐶))
18 fucval.a . . . . . . . . . . . 12 𝐴 = (Base‘𝐶)
1917, 18syl6eqr 2823 . . . . . . . . . . 11 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (Base‘𝑡) = 𝐴)
205fveq2d 6337 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (comp‘𝑢) = (comp‘𝐷))
21 fucval.o . . . . . . . . . . . . . 14 · = (comp‘𝐷)
2220, 21syl6eqr 2823 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (comp‘𝑢) = · )
2322oveqd 6813 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥)) = (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥)))
2423oveqd 6813 . . . . . . . . . . 11 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)) = ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥)))
2519, 24mpteq12dv 4868 . . . . . . . . . 10 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥))) = (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥))))
2615, 16, 25mpt2eq123dv 6868 . . . . . . . . 9 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)))) = (𝑏 ∈ (𝑔𝑁), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥)))))
2726csbeq2dv 4137 . . . . . . . 8 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)))) = (2nd𝑣) / 𝑔(𝑏 ∈ (𝑔𝑁), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥)))))
2827csbeq2dv 4137 . . . . . . 7 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)))) = (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔𝑁), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥)))))
2914, 8, 28mpt2eq123dv 6868 . . . . . 6 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑣 ∈ ((𝑡 Func 𝑢) × (𝑡 Func 𝑢)), ∈ (𝑡 Func 𝑢) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥))))) = (𝑣 ∈ (𝐵 × 𝐵), 𝐵(1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔𝑁), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥))))))
30 fucval.x . . . . . . 7 (𝜑 = (𝑣 ∈ (𝐵 × 𝐵), 𝐵(1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔𝑁), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥))))))
3130adantr 466 . . . . . 6 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → = (𝑣 ∈ (𝐵 × 𝐵), 𝐵(1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔𝑁), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥𝐴 ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩ · ((1st)‘𝑥))(𝑎𝑥))))))
3229, 31eqtr4d 2808 . . . . 5 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → (𝑣 ∈ ((𝑡 Func 𝑢) × (𝑡 Func 𝑢)), ∈ (𝑡 Func 𝑢) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥))))) = )
3332opeq2d 4547 . . . 4 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → ⟨(comp‘ndx), (𝑣 ∈ ((𝑡 Func 𝑢) × (𝑡 Func 𝑢)), ∈ (𝑡 Func 𝑢) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)))))⟩ = ⟨(comp‘ndx), ⟩)
349, 13, 33tpeq123d 4420 . . 3 ((𝜑 ∧ (𝑡 = 𝐶𝑢 = 𝐷)) → {⟨(Base‘ndx), (𝑡 Func 𝑢)⟩, ⟨(Hom ‘ndx), (𝑡 Nat 𝑢)⟩, ⟨(comp‘ndx), (𝑣 ∈ ((𝑡 Func 𝑢) × (𝑡 Func 𝑢)), ∈ (𝑡 Func 𝑢) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑡 Nat 𝑢)), 𝑎 ∈ (𝑓(𝑡 Nat 𝑢)𝑔) ↦ (𝑥 ∈ (Base‘𝑡) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑢)((1st)‘𝑥))(𝑎𝑥)))))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), ⟩})
35 fucval.c . . 3 (𝜑𝐶 ∈ Cat)
36 fucval.d . . 3 (𝜑𝐷 ∈ Cat)
37 tpex 7108 . . . 4 {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), ⟩} ∈ V
3837a1i 11 . . 3 (𝜑 → {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), ⟩} ∈ V)
393, 34, 35, 36, 38ovmpt2d 6939 . 2 (𝜑 → (𝐶 FuncCat 𝐷) = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), ⟩})
401, 39syl5eq 2817 1 (𝜑𝑄 = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), ⟩})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 382   = wceq 1631  wcel 2145  Vcvv 3351  csb 3682  {ctp 4321  cop 4323  cmpt 4864   × cxp 5248  cfv 6030  (class class class)co 6796  cmpt2 6798  1st c1st 7317  2nd c2nd 7318  ndxcnx 16061  Basecbs 16064  Hom chom 16160  compcco 16161  Catccat 16532   Func cfunc 16721   Nat cnat 16808   FuncCat cfuc 16809
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-8 2147  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-sep 4916  ax-nul 4924  ax-pr 5035  ax-un 7100
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 837  df-3an 1073  df-tru 1634  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ral 3066  df-rex 3067  df-rab 3070  df-v 3353  df-sbc 3588  df-csb 3683  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-nul 4064  df-if 4227  df-sn 4318  df-pr 4320  df-tp 4322  df-op 4324  df-uni 4576  df-br 4788  df-opab 4848  df-mpt 4865  df-id 5158  df-xp 5256  df-rel 5257  df-cnv 5258  df-co 5259  df-dm 5260  df-iota 5993  df-fun 6032  df-fv 6038  df-ov 6799  df-oprab 6800  df-mpt2 6801  df-fuc 16811
This theorem is referenced by:  fuccofval  16826  fucbas  16827  fuchom  16828  fucpropd  16844  catcfuccl  16966
  Copyright terms: Public domain W3C validator