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

Theorem estrcval 16535
Description: Value of the category of extensible structures (in a universe). (Contributed by AV, 7-Mar-2020.)
Hypotheses
Ref Expression
estrcval.c 𝐶 = (ExtStrCat‘𝑈)
estrcval.u (𝜑𝑈𝑉)
estrcval.h (𝜑𝐻 = (𝑥𝑈, 𝑦𝑈 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥))))
estrcval.o (𝜑· = (𝑣 ∈ (𝑈 × 𝑈), 𝑧𝑈 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓))))
Assertion
Ref Expression
estrcval (𝜑𝐶 = {⟨(Base‘ndx), 𝑈⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
Distinct variable groups:   𝑓,𝑔,𝑣,𝑥,𝑦,𝑧   𝜑,𝑣,𝑥,𝑦,𝑧   𝑣,𝑈,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑓,𝑔)   𝐶(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   · (𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   𝑈(𝑓,𝑔)   𝐻(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)   𝑉(𝑥,𝑦,𝑧,𝑣,𝑓,𝑔)

Proof of Theorem estrcval
Dummy variable 𝑢 is distinct from all other variables.
StepHypRef Expression
1 estrcval.c . 2 𝐶 = (ExtStrCat‘𝑈)
2 df-estrc 16534 . . . 4 ExtStrCat = (𝑢 ∈ V ↦ {⟨(Base‘ndx), 𝑢⟩, ⟨(Hom ‘ndx), (𝑥𝑢, 𝑦𝑢 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥)))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑢 × 𝑢), 𝑧𝑢 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓)))⟩})
32a1i 11 . . 3 (𝜑 → ExtStrCat = (𝑢 ∈ V ↦ {⟨(Base‘ndx), 𝑢⟩, ⟨(Hom ‘ndx), (𝑥𝑢, 𝑦𝑢 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥)))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑢 × 𝑢), 𝑧𝑢 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓)))⟩}))
4 simpr 475 . . . . 5 ((𝜑𝑢 = 𝑈) → 𝑢 = 𝑈)
54opeq2d 4341 . . . 4 ((𝜑𝑢 = 𝑈) → ⟨(Base‘ndx), 𝑢⟩ = ⟨(Base‘ndx), 𝑈⟩)
6 eqidd 2610 . . . . . . 7 ((𝜑𝑢 = 𝑈) → ((Base‘𝑦) ↑𝑚 (Base‘𝑥)) = ((Base‘𝑦) ↑𝑚 (Base‘𝑥)))
74, 4, 6mpt2eq123dv 6592 . . . . . 6 ((𝜑𝑢 = 𝑈) → (𝑥𝑢, 𝑦𝑢 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥))) = (𝑥𝑈, 𝑦𝑈 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥))))
8 estrcval.h . . . . . . 7 (𝜑𝐻 = (𝑥𝑈, 𝑦𝑈 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥))))
98adantr 479 . . . . . 6 ((𝜑𝑢 = 𝑈) → 𝐻 = (𝑥𝑈, 𝑦𝑈 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥))))
107, 9eqtr4d 2646 . . . . 5 ((𝜑𝑢 = 𝑈) → (𝑥𝑢, 𝑦𝑢 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥))) = 𝐻)
1110opeq2d 4341 . . . 4 ((𝜑𝑢 = 𝑈) → ⟨(Hom ‘ndx), (𝑥𝑢, 𝑦𝑢 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥)))⟩ = ⟨(Hom ‘ndx), 𝐻⟩)
124sqxpeqd 5054 . . . . . . 7 ((𝜑𝑢 = 𝑈) → (𝑢 × 𝑢) = (𝑈 × 𝑈))
13 eqidd 2610 . . . . . . 7 ((𝜑𝑢 = 𝑈) → (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓)) = (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓)))
1412, 4, 13mpt2eq123dv 6592 . . . . . 6 ((𝜑𝑢 = 𝑈) → (𝑣 ∈ (𝑢 × 𝑢), 𝑧𝑢 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓))) = (𝑣 ∈ (𝑈 × 𝑈), 𝑧𝑈 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓))))
15 estrcval.o . . . . . . 7 (𝜑· = (𝑣 ∈ (𝑈 × 𝑈), 𝑧𝑈 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓))))
1615adantr 479 . . . . . 6 ((𝜑𝑢 = 𝑈) → · = (𝑣 ∈ (𝑈 × 𝑈), 𝑧𝑈 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓))))
1714, 16eqtr4d 2646 . . . . 5 ((𝜑𝑢 = 𝑈) → (𝑣 ∈ (𝑢 × 𝑢), 𝑧𝑢 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓))) = · )
1817opeq2d 4341 . . . 4 ((𝜑𝑢 = 𝑈) → ⟨(comp‘ndx), (𝑣 ∈ (𝑢 × 𝑢), 𝑧𝑢 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓)))⟩ = ⟨(comp‘ndx), · ⟩)
195, 11, 18tpeq123d 4226 . . 3 ((𝜑𝑢 = 𝑈) → {⟨(Base‘ndx), 𝑢⟩, ⟨(Hom ‘ndx), (𝑥𝑢, 𝑦𝑢 ↦ ((Base‘𝑦) ↑𝑚 (Base‘𝑥)))⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝑢 × 𝑢), 𝑧𝑢 ↦ (𝑔 ∈ ((Base‘𝑧) ↑𝑚 (Base‘(2nd𝑣))), 𝑓 ∈ ((Base‘(2nd𝑣)) ↑𝑚 (Base‘(1st𝑣))) ↦ (𝑔𝑓)))⟩} = {⟨(Base‘ndx), 𝑈⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
20 estrcval.u . . . 4 (𝜑𝑈𝑉)
21 elex 3184 . . . 4 (𝑈𝑉𝑈 ∈ V)
2220, 21syl 17 . . 3 (𝜑𝑈 ∈ V)
23 tpex 6832 . . . 4 {⟨(Base‘ndx), 𝑈⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩} ∈ V
2423a1i 11 . . 3 (𝜑 → {⟨(Base‘ndx), 𝑈⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩} ∈ V)
253, 19, 22, 24fvmptd 6181 . 2 (𝜑 → (ExtStrCat‘𝑈) = {⟨(Base‘ndx), 𝑈⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
261, 25syl5eq 2655 1 (𝜑𝐶 = {⟨(Base‘ndx), 𝑈⟩, ⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), · ⟩})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 382   = wceq 1474  wcel 1976  Vcvv 3172  {ctp 4128  cop 4130  cmpt 4637   × cxp 5025  ccom 5031  cfv 5789  (class class class)co 6526  cmpt2 6528  1st c1st 7034  2nd c2nd 7035  𝑚 cmap 7721  ndxcnx 15640  Basecbs 15643  Hom chom 15727  compcco 15728  ExtStrCatcestrc 16533
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1712  ax-4 1727  ax-5 1826  ax-6 1874  ax-7 1921  ax-8 1978  ax-9 1985  ax-10 2005  ax-11 2020  ax-12 2033  ax-13 2233  ax-ext 2589  ax-sep 4703  ax-nul 4711  ax-pr 4827  ax-un 6824
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1867  df-eu 2461  df-mo 2462  df-clab 2596  df-cleq 2602  df-clel 2605  df-nfc 2739  df-ral 2900  df-rex 2901  df-rab 2904  df-v 3174  df-sbc 3402  df-csb 3499  df-dif 3542  df-un 3544  df-in 3546  df-ss 3553  df-nul 3874  df-if 4036  df-sn 4125  df-pr 4127  df-tp 4129  df-op 4131  df-uni 4367  df-br 4578  df-opab 4638  df-mpt 4639  df-id 4942  df-xp 5033  df-rel 5034  df-cnv 5035  df-co 5036  df-dm 5037  df-iota 5753  df-fun 5791  df-fv 5797  df-oprab 6530  df-mpt2 6531  df-estrc 16534
This theorem is referenced by:  estrcbas  16536  estrchomfval  16537  estrccofval  16540  dfrngc2  41745  dfringc2  41791
  Copyright terms: Public domain W3C validator