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

Theorem xpsxmetlem 24322
Description: Lemma for xpsxmet 24323. (Contributed by Mario Carneiro, 21-Aug-2015.)
Hypotheses
Ref Expression
xpsds.t 𝑇 = (𝑅 ×s 𝑆)
xpsds.x 𝑋 = (Base‘𝑅)
xpsds.y 𝑌 = (Base‘𝑆)
xpsds.1 (𝜑𝑅𝑉)
xpsds.2 (𝜑𝑆𝑊)
xpsds.p 𝑃 = (dist‘𝑇)
xpsds.m 𝑀 = ((dist‘𝑅) ↾ (𝑋 × 𝑋))
xpsds.n 𝑁 = ((dist‘𝑆) ↾ (𝑌 × 𝑌))
xpsds.3 (𝜑𝑀 ∈ (∞Met‘𝑋))
xpsds.4 (𝜑𝑁 ∈ (∞Met‘𝑌))
Assertion
Ref Expression
xpsxmetlem (𝜑 → (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ∈ (∞Met‘ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})))
Distinct variable groups:   𝑥,𝑦   𝑥,𝑀   𝑥,𝑁   𝜑,𝑥   𝑥,𝑅   𝑥,𝑆   𝑥,𝑋,𝑦   𝑥,𝑌,𝑦   𝑥,𝑊
Allowed substitution hints:   𝜑(𝑦)   𝑃(𝑥,𝑦)   𝑅(𝑦)   𝑆(𝑦)   𝑇(𝑥,𝑦)   𝑀(𝑦)   𝑁(𝑦)   𝑉(𝑥,𝑦)   𝑊(𝑦)

Proof of Theorem xpsxmetlem
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 eqid 2737 . . 3 ((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))) = ((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))
2 eqid 2737 . . 3 (Base‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) = (Base‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
3 eqid 2737 . . 3 (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))
4 eqid 2737 . . 3 ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) = ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
5 eqid 2737 . . 3 (dist‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) = (dist‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
6 fvexd 6847 . . 3 (𝜑 → (Scalar‘𝑅) ∈ V)
7 2on 8409 . . . 4 2o ∈ On
87a1i 11 . . 3 (𝜑 → 2o ∈ On)
9 fvexd 6847 . . 3 ((𝜑𝑘 ∈ 2o) → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘) ∈ V)
10 elpri 4592 . . . . 5 (𝑘 ∈ {∅, 1o} → (𝑘 = ∅ ∨ 𝑘 = 1o))
11 df2o3 8404 . . . . 5 2o = {∅, 1o}
1210, 11eleq2s 2855 . . . 4 (𝑘 ∈ 2o → (𝑘 = ∅ ∨ 𝑘 = 1o))
13 xpsds.3 . . . . . . 7 (𝜑𝑀 ∈ (∞Met‘𝑋))
1413adantr 480 . . . . . 6 ((𝜑𝑘 = ∅) → 𝑀 ∈ (∞Met‘𝑋))
15 fveq2 6832 . . . . . . . . . 10 (𝑘 = ∅ → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘) = ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))
16 xpsds.1 . . . . . . . . . . 11 (𝜑𝑅𝑉)
17 fvpr0o 17481 . . . . . . . . . . 11 (𝑅𝑉 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅) = 𝑅)
1816, 17syl 17 . . . . . . . . . 10 (𝜑 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅) = 𝑅)
1915, 18sylan9eqr 2794 . . . . . . . . 9 ((𝜑𝑘 = ∅) → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘) = 𝑅)
2019fveq2d 6836 . . . . . . . 8 ((𝜑𝑘 = ∅) → (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = (dist‘𝑅))
2119fveq2d 6836 . . . . . . . . . 10 ((𝜑𝑘 = ∅) → (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = (Base‘𝑅))
22 xpsds.x . . . . . . . . . 10 𝑋 = (Base‘𝑅)
2321, 22eqtr4di 2790 . . . . . . . . 9 ((𝜑𝑘 = ∅) → (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = 𝑋)
2423sqxpeqd 5654 . . . . . . . 8 ((𝜑𝑘 = ∅) → ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))) = (𝑋 × 𝑋))
2520, 24reseq12d 5937 . . . . . . 7 ((𝜑𝑘 = ∅) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) = ((dist‘𝑅) ↾ (𝑋 × 𝑋)))
26 xpsds.m . . . . . . 7 𝑀 = ((dist‘𝑅) ↾ (𝑋 × 𝑋))
2725, 26eqtr4di 2790 . . . . . 6 ((𝜑𝑘 = ∅) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) = 𝑀)
2823fveq2d 6836 . . . . . 6 ((𝜑𝑘 = ∅) → (∞Met‘(Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))) = (∞Met‘𝑋))
2914, 27, 283eltr4d 2852 . . . . 5 ((𝜑𝑘 = ∅) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) ∈ (∞Met‘(Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
30 xpsds.4 . . . . . . 7 (𝜑𝑁 ∈ (∞Met‘𝑌))
3130adantr 480 . . . . . 6 ((𝜑𝑘 = 1o) → 𝑁 ∈ (∞Met‘𝑌))
32 fveq2 6832 . . . . . . . . . 10 (𝑘 = 1o → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘) = ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))
33 xpsds.2 . . . . . . . . . . 11 (𝜑𝑆𝑊)
34 fvpr1o 17482 . . . . . . . . . . 11 (𝑆𝑊 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o) = 𝑆)
3533, 34syl 17 . . . . . . . . . 10 (𝜑 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o) = 𝑆)
3632, 35sylan9eqr 2794 . . . . . . . . 9 ((𝜑𝑘 = 1o) → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘) = 𝑆)
3736fveq2d 6836 . . . . . . . 8 ((𝜑𝑘 = 1o) → (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = (dist‘𝑆))
3836fveq2d 6836 . . . . . . . . . 10 ((𝜑𝑘 = 1o) → (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = (Base‘𝑆))
39 xpsds.y . . . . . . . . . 10 𝑌 = (Base‘𝑆)
4038, 39eqtr4di 2790 . . . . . . . . 9 ((𝜑𝑘 = 1o) → (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = 𝑌)
4140sqxpeqd 5654 . . . . . . . 8 ((𝜑𝑘 = 1o) → ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))) = (𝑌 × 𝑌))
4237, 41reseq12d 5937 . . . . . . 7 ((𝜑𝑘 = 1o) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) = ((dist‘𝑆) ↾ (𝑌 × 𝑌)))
43 xpsds.n . . . . . . 7 𝑁 = ((dist‘𝑆) ↾ (𝑌 × 𝑌))
4442, 43eqtr4di 2790 . . . . . 6 ((𝜑𝑘 = 1o) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) = 𝑁)
4540fveq2d 6836 . . . . . 6 ((𝜑𝑘 = 1o) → (∞Met‘(Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))) = (∞Met‘𝑌))
4631, 44, 453eltr4d 2852 . . . . 5 ((𝜑𝑘 = 1o) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) ∈ (∞Met‘(Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
4729, 46jaodan 960 . . . 4 ((𝜑 ∧ (𝑘 = ∅ ∨ 𝑘 = 1o)) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) ∈ (∞Met‘(Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
4812, 47sylan2 594 . . 3 ((𝜑𝑘 ∈ 2o) → ((dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) ↾ ((Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) × (Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) ∈ (∞Met‘(Base‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
491, 2, 3, 4, 5, 6, 8, 9, 48prdsxmet 24312 . 2 (𝜑 → (dist‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))) ∈ (∞Met‘(Base‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))))
50 fnpr2o 17479 . . . . . 6 ((𝑅𝑉𝑆𝑊) → {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o)
5116, 33, 50syl2anc 585 . . . . 5 (𝜑 → {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o)
52 dffn5 6890 . . . . 5 ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o ↔ {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} = (𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))
5351, 52sylib 218 . . . 4 (𝜑 → {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} = (𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))
5453oveq2d 7374 . . 3 (𝜑 → ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) = ((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))
5554fveq2d 6836 . 2 (𝜑 → (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (dist‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))))
56 xpsds.t . . . . 5 𝑇 = (𝑅 ×s 𝑆)
57 eqid 2737 . . . . 5 (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
58 eqid 2737 . . . . 5 (Scalar‘𝑅) = (Scalar‘𝑅)
59 eqid 2737 . . . . 5 ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) = ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})
6056, 22, 39, 16, 33, 57, 58, 59xpsrnbas 17493 . . . 4 (𝜑 → ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
6154fveq2d 6836 . . . 4 (𝜑 → (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (Base‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))))
6260, 61eqtrd 2772 . . 3 (𝜑 → ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = (Base‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)))))
6362fveq2d 6836 . 2 (𝜑 → (∞Met‘ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})) = (∞Met‘(Base‘((Scalar‘𝑅)Xs(𝑘 ∈ 2o ↦ ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))))))
6449, 55, 633eltr4d 2852 1 (𝜑 → (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ∈ (∞Met‘ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  wo 848   = wceq 1542  wcel 2114  Vcvv 3430  c0 4274  {cpr 4570  cop 4574  cmpt 5167   × cxp 5620  ran crn 5623  cres 5624  Oncon0 6315   Fn wfn 6485  cfv 6490  (class class class)co 7358  cmpo 7360  1oc1o 8389  2oc2o 8390  Basecbs 17137  Scalarcsca 17181  distcds 17187  Xscprds 17366   ×s cxps 17428  ∞Metcxmet 21296
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104  ax-pre-sup 11105
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-om 7809  df-1st 7933  df-2nd 7934  df-frecs 8222  df-wrecs 8253  df-recs 8302  df-rdg 8340  df-1o 8396  df-2o 8397  df-er 8634  df-map 8766  df-ixp 8837  df-en 8885  df-dom 8886  df-sdom 8887  df-fin 8888  df-sup 9346  df-pnf 11169  df-mnf 11170  df-xr 11171  df-ltxr 11172  df-le 11173  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-z 12490  df-dec 12609  df-uz 12753  df-rp 12907  df-xneg 13027  df-xadd 13028  df-xmul 13029  df-icc 13269  df-fz 13425  df-struct 17075  df-slot 17110  df-ndx 17122  df-base 17138  df-plusg 17191  df-mulr 17192  df-sca 17194  df-vsca 17195  df-ip 17196  df-tset 17197  df-ple 17198  df-ds 17200  df-hom 17202  df-cco 17203  df-prds 17368  df-xmet 21304
This theorem is referenced by:  xpsxmet  24323  xpsdsval  24324
  Copyright terms: Public domain W3C validator