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

Theorem prdsco 17228
Description: Structure product composition operation. (Contributed by Mario Carneiro, 7-Jan-2017.) (Revised by Thierry Arnoux, 16-Jun-2019.) (Revised by Zhi Wang, 18-Aug-2024.)
Hypotheses
Ref Expression
prdsbas.p 𝑃 = (𝑆Xs𝑅)
prdsbas.s (𝜑𝑆𝑉)
prdsbas.r (𝜑𝑅𝑊)
prdsbas.b 𝐵 = (Base‘𝑃)
prdsbas.i (𝜑 → dom 𝑅 = 𝐼)
prdshom.h 𝐻 = (Hom ‘𝑃)
prdsco.o = (comp‘𝑃)
Assertion
Ref Expression
prdsco (𝜑 = (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥))))))
Distinct variable groups:   𝑎,𝑐,𝑑,𝑒,𝑥,𝐵   𝐻,𝑎,𝑐,𝑑,𝑒   𝜑,𝑎,𝑐,𝑑,𝑒,𝑥   𝐼,𝑎,𝑐,𝑑,𝑒,𝑥   𝑥,𝑃   𝑅,𝑎,𝑐,𝑑,𝑒,𝑥   𝑆,𝑎,𝑐,𝑑,𝑒,𝑥
Allowed substitution hints:   𝑃(𝑒,𝑎,𝑐,𝑑)   (𝑥,𝑒,𝑎,𝑐,𝑑)   𝐻(𝑥)   𝑉(𝑥,𝑒,𝑎,𝑐,𝑑)   𝑊(𝑥,𝑒,𝑎,𝑐,𝑑)

Proof of Theorem prdsco
Dummy variables 𝑓 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prdsbas.p . . 3 𝑃 = (𝑆Xs𝑅)
2 eqid 2736 . . 3 (Base‘𝑆) = (Base‘𝑆)
3 prdsbas.i . . 3 (𝜑 → dom 𝑅 = 𝐼)
4 prdsbas.s . . . 4 (𝜑𝑆𝑉)
5 prdsbas.r . . . 4 (𝜑𝑅𝑊)
6 prdsbas.b . . . 4 𝐵 = (Base‘𝑃)
71, 4, 5, 6, 3prdsbas 17217 . . 3 (𝜑𝐵 = X𝑥𝐼 (Base‘(𝑅𝑥)))
8 eqid 2736 . . . 4 (+g𝑃) = (+g𝑃)
91, 4, 5, 6, 3, 8prdsplusg 17218 . . 3 (𝜑 → (+g𝑃) = (𝑓𝐵, 𝑔𝐵 ↦ (𝑥𝐼 ↦ ((𝑓𝑥)(+g‘(𝑅𝑥))(𝑔𝑥)))))
10 eqid 2736 . . . 4 (.r𝑃) = (.r𝑃)
111, 4, 5, 6, 3, 10prdsmulr 17219 . . 3 (𝜑 → (.r𝑃) = (𝑓𝐵, 𝑔𝐵 ↦ (𝑥𝐼 ↦ ((𝑓𝑥)(.r‘(𝑅𝑥))(𝑔𝑥)))))
12 eqid 2736 . . . 4 ( ·𝑠𝑃) = ( ·𝑠𝑃)
131, 4, 5, 6, 3, 2, 12prdsvsca 17220 . . 3 (𝜑 → ( ·𝑠𝑃) = (𝑓 ∈ (Base‘𝑆), 𝑔𝐵 ↦ (𝑥𝐼 ↦ (𝑓( ·𝑠 ‘(𝑅𝑥))(𝑔𝑥)))))
14 eqidd 2737 . . 3 (𝜑 → (𝑓𝐵, 𝑔𝐵 ↦ (𝑆 Σg (𝑥𝐼 ↦ ((𝑓𝑥)(·𝑖‘(𝑅𝑥))(𝑔𝑥))))) = (𝑓𝐵, 𝑔𝐵 ↦ (𝑆 Σg (𝑥𝐼 ↦ ((𝑓𝑥)(·𝑖‘(𝑅𝑥))(𝑔𝑥))))))
15 eqid 2736 . . . 4 (TopSet‘𝑃) = (TopSet‘𝑃)
161, 4, 5, 6, 3, 15prdstset 17226 . . 3 (𝜑 → (TopSet‘𝑃) = (∏t‘(TopOpen ∘ 𝑅)))
17 eqid 2736 . . . 4 (le‘𝑃) = (le‘𝑃)
181, 4, 5, 6, 3, 17prdsle 17222 . . 3 (𝜑 → (le‘𝑃) = {⟨𝑓, 𝑔⟩ ∣ ({𝑓, 𝑔} ⊆ 𝐵 ∧ ∀𝑥𝐼 (𝑓𝑥)(le‘(𝑅𝑥))(𝑔𝑥))})
19 eqid 2736 . . . 4 (dist‘𝑃) = (dist‘𝑃)
201, 4, 5, 6, 3, 19prdsds 17224 . . 3 (𝜑 → (dist‘𝑃) = (𝑓𝐵, 𝑔𝐵 ↦ sup((ran (𝑥𝐼 ↦ ((𝑓𝑥)(dist‘(𝑅𝑥))(𝑔𝑥))) ∪ {0}), ℝ*, < )))
21 prdshom.h . . . 4 𝐻 = (Hom ‘𝑃)
221, 4, 5, 6, 3, 21prdshom 17227 . . 3 (𝜑𝐻 = (𝑓𝐵, 𝑔𝐵X𝑥𝐼 ((𝑓𝑥)(Hom ‘(𝑅𝑥))(𝑔𝑥))))
23 eqidd 2737 . . 3 (𝜑 → (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥))))) = (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥))))))
241, 2, 3, 7, 9, 11, 13, 14, 16, 18, 20, 22, 23, 4, 5prdsval 17215 . 2 (𝜑𝑃 = (({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), (+g𝑃)⟩, ⟨(.r‘ndx), (.r𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), ( ·𝑠𝑃)⟩, ⟨(·𝑖‘ndx), (𝑓𝐵, 𝑔𝐵 ↦ (𝑆 Σg (𝑥𝐼 ↦ ((𝑓𝑥)(·𝑖‘(𝑅𝑥))(𝑔𝑥)))))⟩}) ∪ ({⟨(TopSet‘ndx), (TopSet‘𝑃)⟩, ⟨(le‘ndx), (le‘𝑃)⟩, ⟨(dist‘ndx), (dist‘𝑃)⟩} ∪ {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩})))
25 prdsco.o . 2 = (comp‘𝑃)
26 ccoid 17173 . 2 comp = Slot (comp‘ndx)
276fvexi 6818 . . . . 5 𝐵 ∈ V
2827, 27xpex 7635 . . . 4 (𝐵 × 𝐵) ∈ V
2928, 27mpoex 7952 . . 3 (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥))))) ∈ V
3029a1i 11 . 2 (𝜑 → (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥))))) ∈ V)
31 snsspr2 4754 . . . 4 {⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩} ⊆ {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩}
32 ssun2 4113 . . . 4 {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩} ⊆ ({⟨(TopSet‘ndx), (TopSet‘𝑃)⟩, ⟨(le‘ndx), (le‘𝑃)⟩, ⟨(dist‘ndx), (dist‘𝑃)⟩} ∪ {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩})
3331, 32sstri 3935 . . 3 {⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩} ⊆ ({⟨(TopSet‘ndx), (TopSet‘𝑃)⟩, ⟨(le‘ndx), (le‘𝑃)⟩, ⟨(dist‘ndx), (dist‘𝑃)⟩} ∪ {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩})
34 ssun2 4113 . . 3 ({⟨(TopSet‘ndx), (TopSet‘𝑃)⟩, ⟨(le‘ndx), (le‘𝑃)⟩, ⟨(dist‘ndx), (dist‘𝑃)⟩} ∪ {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩}) ⊆ (({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), (+g𝑃)⟩, ⟨(.r‘ndx), (.r𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), ( ·𝑠𝑃)⟩, ⟨(·𝑖‘ndx), (𝑓𝐵, 𝑔𝐵 ↦ (𝑆 Σg (𝑥𝐼 ↦ ((𝑓𝑥)(·𝑖‘(𝑅𝑥))(𝑔𝑥)))))⟩}) ∪ ({⟨(TopSet‘ndx), (TopSet‘𝑃)⟩, ⟨(le‘ndx), (le‘𝑃)⟩, ⟨(dist‘ndx), (dist‘𝑃)⟩} ∪ {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩}))
3533, 34sstri 3935 . 2 {⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩} ⊆ (({⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), (+g𝑃)⟩, ⟨(.r‘ndx), (.r𝑃)⟩} ∪ {⟨(Scalar‘ndx), 𝑆⟩, ⟨( ·𝑠 ‘ndx), ( ·𝑠𝑃)⟩, ⟨(·𝑖‘ndx), (𝑓𝐵, 𝑔𝐵 ↦ (𝑆 Σg (𝑥𝐼 ↦ ((𝑓𝑥)(·𝑖‘(𝑅𝑥))(𝑔𝑥)))))⟩}) ∪ ({⟨(TopSet‘ndx), (TopSet‘𝑃)⟩, ⟨(le‘ndx), (le‘𝑃)⟩, ⟨(dist‘ndx), (dist‘𝑃)⟩} ∪ {⟨(Hom ‘ndx), 𝐻⟩, ⟨(comp‘ndx), (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥)))))⟩}))
3624, 25, 26, 30, 35prdsbaslem 17213 1 (𝜑 = (𝑎 ∈ (𝐵 × 𝐵), 𝑐𝐵 ↦ (𝑑 ∈ ((2nd𝑎)𝐻𝑐), 𝑒 ∈ (𝐻𝑎) ↦ (𝑥𝐼 ↦ ((𝑑𝑥)(⟨((1st𝑎)‘𝑥), ((2nd𝑎)‘𝑥)⟩(comp‘(𝑅𝑥))(𝑐𝑥))(𝑒𝑥))))))
Colors of variables: wff setvar class
Syntax hints:  wi 4   = wceq 1539  wcel 2104  Vcvv 3437  cun 3890  {csn 4565  {cpr 4567  {ctp 4569  cop 4571  cmpt 5164   × cxp 5598  dom cdm 5600  cfv 6458  (class class class)co 7307  cmpo 7309  1st c1st 7861  2nd c2nd 7862  ndxcnx 16943  Basecbs 16961  +gcplusg 17011  .rcmulr 17012  Scalarcsca 17014   ·𝑠 cvsca 17015  ·𝑖cip 17016  TopSetcts 17017  lecple 17018  distcds 17020  Hom chom 17022  compcco 17023   Σg cgsu 17200  Xscprds 17205
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2707  ax-rep 5218  ax-sep 5232  ax-nul 5239  ax-pow 5297  ax-pr 5361  ax-un 7620  ax-cnex 10977  ax-resscn 10978  ax-1cn 10979  ax-icn 10980  ax-addcl 10981  ax-addrcl 10982  ax-mulcl 10983  ax-mulrcl 10984  ax-mulcom 10985  ax-addass 10986  ax-mulass 10987  ax-distr 10988  ax-i2m1 10989  ax-1ne0 10990  ax-1rid 10991  ax-rnegex 10992  ax-rrecex 10993  ax-cnre 10994  ax-pre-lttri 10995  ax-pre-lttrn 10996  ax-pre-ltadd 10997  ax-pre-mulgt0 10998
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3or 1088  df-3an 1089  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-reu 3305  df-rab 3306  df-v 3439  df-sbc 3722  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-pss 3911  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4566  df-pr 4568  df-tp 4570  df-op 4572  df-uni 4845  df-iun 4933  df-br 5082  df-opab 5144  df-mpt 5165  df-tr 5199  df-id 5500  df-eprel 5506  df-po 5514  df-so 5515  df-fr 5555  df-we 5557  df-xp 5606  df-rel 5607  df-cnv 5608  df-co 5609  df-dm 5610  df-rn 5611  df-res 5612  df-ima 5613  df-pred 6217  df-ord 6284  df-on 6285  df-lim 6286  df-suc 6287  df-iota 6410  df-fun 6460  df-fn 6461  df-f 6462  df-f1 6463  df-fo 6464  df-f1o 6465  df-fv 6466  df-riota 7264  df-ov 7310  df-oprab 7311  df-mpo 7312  df-om 7745  df-1st 7863  df-2nd 7864  df-frecs 8128  df-wrecs 8159  df-recs 8233  df-rdg 8272  df-1o 8328  df-er 8529  df-map 8648  df-ixp 8717  df-en 8765  df-dom 8766  df-sdom 8767  df-fin 8768  df-sup 9249  df-pnf 11061  df-mnf 11062  df-xr 11063  df-ltxr 11064  df-le 11065  df-sub 11257  df-neg 11258  df-nn 12024  df-2 12086  df-3 12087  df-4 12088  df-5 12089  df-6 12090  df-7 12091  df-8 12092  df-9 12093  df-n0 12284  df-z 12370  df-dec 12488  df-uz 12633  df-fz 13290  df-struct 16897  df-slot 16932  df-ndx 16944  df-base 16962  df-plusg 17024  df-mulr 17025  df-sca 17027  df-vsca 17028  df-ip 17029  df-tset 17030  df-ple 17031  df-ds 17033  df-hom 17035  df-cco 17036  df-prds 17207
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator