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

Theorem catcval 16918
Description: Value of the category of categories (in a universe). (Contributed by Mario Carneiro, 3-Jan-2017.)
Hypotheses
Ref Expression
catcval.c 𝐶 = (CatCat‘𝑈)
catcval.u (𝜑𝑈𝑉)
catcval.b (𝜑𝐵 = (𝑈 ∩ Cat))
catcval.h (𝜑𝐻 = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 Func 𝑦)))
catcval.o (𝜑· = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓))))
Assertion
Ref Expression
catcval (𝜑𝐶 = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
Distinct variable groups:   𝑥,𝑣,𝑦,𝑧,𝐵   𝜑,𝑣,𝑥,𝑦,𝑧   𝑣,𝑈,𝑥,𝑦,𝑧   𝑓,𝑔,𝑣,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑓,𝑔)   𝐵(𝑓,𝑔)   𝐶(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   · (𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   𝑈(𝑓,𝑔)   𝐻(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   𝑉(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)

Proof of Theorem catcval
Dummy variables 𝑢 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 catcval.c . 2 𝐶 = (CatCat‘𝑈)
2 df-catc 16917 . . . 4 CatCat = (𝑢 ∈ V ↦ (𝑢 ∩ Cat) / 𝑏{⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 Func 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓)))⟩})
32a1i 11 . . 3 (𝜑 → CatCat = (𝑢 ∈ V ↦ (𝑢 ∩ Cat) / 𝑏{⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 Func 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓)))⟩}))
4 vex 3331 . . . . . 6 𝑢 ∈ V
54inex1 4939 . . . . 5 (𝑢 ∩ Cat) ∈ V
65a1i 11 . . . 4 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Cat) ∈ V)
7 simpr 479 . . . . . 6 ((𝜑𝑢 = 𝑈) → 𝑢 = 𝑈)
87ineq1d 3944 . . . . 5 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Cat) = (𝑈 ∩ Cat))
9 catcval.b . . . . . 6 (𝜑𝐵 = (𝑈 ∩ Cat))
109adantr 472 . . . . 5 ((𝜑𝑢 = 𝑈) → 𝐵 = (𝑈 ∩ Cat))
118, 10eqtr4d 2785 . . . 4 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Cat) = 𝐵)
12 simpr 479 . . . . . 6 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → 𝑏 = 𝐵)
1312opeq2d 4548 . . . . 5 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → ⟨(Base‘ndx), 𝑏⟩ = ⟨(Base‘ndx), 𝐵⟩)
14 eqidd 2749 . . . . . . . 8 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑥 Func 𝑦) = (𝑥 Func 𝑦))
1512, 12, 14mpt2eq123dv 6870 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 Func 𝑦)) = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 Func 𝑦)))
16 catcval.h . . . . . . . 8 (𝜑𝐻 = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 Func 𝑦)))
1716ad2antrr 764 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → 𝐻 = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 Func 𝑦)))
1815, 17eqtr4d 2785 . . . . . 6 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 Func 𝑦)) = 𝐻)
1918opeq2d 4548 . . . . 5 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 Func 𝑦))⟩ = ⟨(Hom ‘ndx), 𝐻⟩)
2012sqxpeqd 5286 . . . . . . . 8 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑏 × 𝑏) = (𝐵 × 𝐵))
21 eqidd 2749 . . . . . . . 8 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓)) = (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓)))
2220, 12, 21mpt2eq123dv 6870 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓))) = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓))))
23 catcval.o . . . . . . . 8 (𝜑· = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓))))
2423ad2antrr 764 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → · = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓))))
2522, 24eqtr4d 2785 . . . . . 6 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓))) = · )
2625opeq2d 4548 . . . . 5 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓)))⟩ = ⟨(comp‘ndx), · ⟩)
2713, 19, 26tpeq123d 4415 . . . 4 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → {⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 Func 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓)))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
286, 11, 27csbied2 3690 . . 3 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Cat) / 𝑏{⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 Func 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) Func 𝑧), 𝑓 ∈ ( Func ‘𝑣) ↦ (𝑔func 𝑓)))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
29 catcval.u . . . 4 (𝜑𝑈𝑉)
30 elex 3340 . . . 4 (𝑈𝑉𝑈 ∈ V)
3129, 30syl 17 . . 3 (𝜑𝑈 ∈ V)
32 tpex 7110 . . . 4 {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩} ∈ V
3332a1i 11 . . 3 (𝜑 → {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩} ∈ V)
343, 28, 31, 33fvmptd 6438 . 2 (𝜑 → (CatCat‘𝑈) = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
351, 34syl5eq 2794 1 (𝜑𝐶 = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383   = wceq 1620  wcel 2127  Vcvv 3328  csb 3662  cin 3702  {ctp 4313  cop 4315  cmpt 4869   × cxp 5252  cfv 6037  (class class class)co 6801  cmpt2 6803  2nd c2nd 7320  ndxcnx 16027  Basecbs 16030  Hom chom 16125  compcco 16126  Catccat 16497   Func cfunc 16686  func ccofu 16688  CatCatccatc 16916
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1859  ax-4 1874  ax-5 1976  ax-6 2042  ax-7 2078  ax-8 2129  ax-9 2136  ax-10 2156  ax-11 2171  ax-12 2184  ax-13 2379  ax-ext 2728  ax-sep 4921  ax-nul 4929  ax-pr 5043  ax-un 7102
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1623  df-ex 1842  df-nf 1847  df-sb 2035  df-eu 2599  df-mo 2600  df-clab 2735  df-cleq 2741  df-clel 2744  df-nfc 2879  df-ral 3043  df-rex 3044  df-rab 3047  df-v 3330  df-sbc 3565  df-csb 3663  df-dif 3706  df-un 3708  df-in 3710  df-ss 3717  df-nul 4047  df-if 4219  df-sn 4310  df-pr 4312  df-tp 4314  df-op 4316  df-uni 4577  df-br 4793  df-opab 4853  df-mpt 4870  df-id 5162  df-xp 5260  df-rel 5261  df-cnv 5262  df-co 5263  df-dm 5264  df-iota 6000  df-fun 6039  df-fv 6045  df-oprab 6805  df-mpt2 6806  df-catc 16917
This theorem is referenced by:  catcbas  16919  catchomfval  16920  catccofval  16922
  Copyright terms: Public domain W3C validator