Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ringcvalALTV Structured version   Visualization version   GIF version

Theorem ringcvalALTV 42486
Description: Value of the category of rings (in a universe). (Contributed by AV, 13-Feb-2020.) (New usage is discouraged.)
Hypotheses
Ref Expression
ringcvalALTV.c 𝐶 = (RingCatALTV‘𝑈)
ringcvalALTV.u (𝜑𝑈𝑉)
ringcvalALTV.b (𝜑𝐵 = (𝑈 ∩ Ring))
ringcvalALTV.h (𝜑𝐻 = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 RingHom 𝑦)))
ringcvalALTV.o (𝜑· = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓))))
Assertion
Ref Expression
ringcvalALTV (𝜑𝐶 = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
Distinct variable groups:   𝑓,𝑔,𝑣,𝑥,𝑦,𝑧   𝑣,𝐵,𝑥,𝑦,𝑧   𝑣,𝑈,𝑥,𝑦,𝑧   𝜑,𝑣,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑓,𝑔)   𝐵(𝑓,𝑔)   𝐶(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   · (𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   𝑈(𝑓,𝑔)   𝐻(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   𝑉(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)

Proof of Theorem ringcvalALTV
Dummy variables 𝑏 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ringcvalALTV.c . 2 𝐶 = (RingCatALTV‘𝑈)
2 df-ringcALTV 42485 . . . 4 RingCatALTV = (𝑢 ∈ V ↦ (𝑢 ∩ Ring) / 𝑏{⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 RingHom 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓)))⟩})
32a1i 11 . . 3 (𝜑 → RingCatALTV = (𝑢 ∈ V ↦ (𝑢 ∩ Ring) / 𝑏{⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 RingHom 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓)))⟩}))
4 vex 3331 . . . . . 6 𝑢 ∈ V
54inex1 4939 . . . . 5 (𝑢 ∩ Ring) ∈ V
65a1i 11 . . . 4 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Ring) ∈ V)
7 ineq1 3938 . . . . . 6 (𝑢 = 𝑈 → (𝑢 ∩ Ring) = (𝑈 ∩ Ring))
87adantl 473 . . . . 5 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Ring) = (𝑈 ∩ Ring))
9 ringcvalALTV.b . . . . . 6 (𝜑𝐵 = (𝑈 ∩ Ring))
109adantr 472 . . . . 5 ((𝜑𝑢 = 𝑈) → 𝐵 = (𝑈 ∩ Ring))
118, 10eqtr4d 2785 . . . 4 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Ring) = 𝐵)
12 simpr 479 . . . . . 6 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → 𝑏 = 𝐵)
1312opeq2d 4548 . . . . 5 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → ⟨(Base‘ndx), 𝑏⟩ = ⟨(Base‘ndx), 𝐵⟩)
14 eqidd 2749 . . . . . . . 8 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑥 RingHom 𝑦) = (𝑥 RingHom 𝑦))
1512, 12, 14mpt2eq123dv 6870 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 RingHom 𝑦)) = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 RingHom 𝑦)))
16 ringcvalALTV.h . . . . . . . 8 (𝜑𝐻 = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 RingHom 𝑦)))
1716ad2antrr 764 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → 𝐻 = (𝑥𝐵, 𝑦𝐵 ↦ (𝑥 RingHom 𝑦)))
1815, 17eqtr4d 2785 . . . . . 6 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 RingHom 𝑦)) = 𝐻)
1918opeq2d 4548 . . . . 5 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 RingHom 𝑦))⟩ = ⟨(Hom ‘ndx), 𝐻⟩)
2012sqxpeqd 5286 . . . . . . . 8 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑏 × 𝑏) = (𝐵 × 𝐵))
21 eqidd 2749 . . . . . . . 8 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓)) = (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓)))
2220, 12, 21mpt2eq123dv 6870 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓))) = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓))))
23 ringcvalALTV.o . . . . . . . 8 (𝜑· = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓))))
2423ad2antrr 764 . . . . . . 7 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → · = (𝑣 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓))))
2522, 24eqtr4d 2785 . . . . . 6 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓))) = · )
2625opeq2d 4548 . . . . 5 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓)))⟩ = ⟨(comp‘ndx), · ⟩)
2713, 19, 26tpeq123d 4415 . . . 4 (((𝜑𝑢 = 𝑈) ∧ 𝑏 = 𝐵) → {⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 RingHom 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓)))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
286, 11, 27csbied2 3690 . . 3 ((𝜑𝑢 = 𝑈) → (𝑢 ∩ Ring) / 𝑏{⟨(Base‘ndx), 𝑏⟩, ⟨(Hom ‘ndx), (𝑥𝑏, 𝑦𝑏 ↦ (𝑥 RingHom 𝑦))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑏 × 𝑏), 𝑧𝑏 ↦ (𝑔 ∈ ((2nd𝑣) RingHom 𝑧), 𝑓 ∈ ((1st𝑣) RingHom (2nd𝑣)) ↦ (𝑔𝑓)))⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
29 ringcvalALTV.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 (𝜑 → (RingCatALTV‘𝑈) = {⟨(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  ccom 5258  cfv 6037  (class class class)co 6801  cmpt2 6803  1st c1st 7319  2nd c2nd 7320  ndxcnx 16027  Basecbs 16030  Hom chom 16125  compcco 16126  Ringcrg 18718   RingHom crh 18885  RingCatALTVcringcALTV 42483
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-ringcALTV 42485
This theorem is referenced by:  ringcbasALTV  42525  ringchomfvalALTV  42526  ringccofvalALTV  42529
  Copyright terms: Public domain W3C validator