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

Theorem xpsdsval 24331
Description: Value of the metric in a binary structure product. (Contributed by Mario Carneiro, 20-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‘𝑌))
xpsds.a (𝜑𝐴𝑋)
xpsds.b (𝜑𝐵𝑌)
xpsds.c (𝜑𝐶𝑋)
xpsds.d (𝜑𝐷𝑌)
Assertion
Ref Expression
xpsdsval (𝜑 → (⟨𝐴, 𝐵𝑃𝐶, 𝐷⟩) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))

Proof of Theorem xpsdsval
Dummy variables 𝑥 𝑘 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 xpsds.t . . . . 5 𝑇 = (𝑅 ×s 𝑆)
2 xpsds.x . . . . 5 𝑋 = (Base‘𝑅)
3 xpsds.y . . . . 5 𝑌 = (Base‘𝑆)
4 xpsds.1 . . . . 5 (𝜑𝑅𝑉)
5 xpsds.2 . . . . 5 (𝜑𝑆𝑊)
6 eqid 2725 . . . . 5 (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
7 eqid 2725 . . . . 5 (Scalar‘𝑅) = (Scalar‘𝑅)
8 eqid 2725 . . . . 5 ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) = ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})
91, 2, 3, 4, 5, 6, 7, 8xpsval 17555 . . . 4 (𝜑𝑇 = ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) “s ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
101, 2, 3, 4, 5, 6, 7, 8xpsrnbas 17556 . . . 4 (𝜑 → ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
116xpsff1o2 17554 . . . . 5 (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
12 f1ocnv 6850 . . . . 5 ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) → (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})–1-1-onto→(𝑋 × 𝑌))
1311, 12mp1i 13 . . . 4 (𝜑(𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})–1-1-onto→(𝑋 × 𝑌))
14 ovexd 7454 . . . 4 (𝜑 → ((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}) ∈ V)
15 eqid 2725 . . . 4 ((dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ↾ (ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) × ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))) = ((dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ↾ (ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) × ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})))
16 xpsds.p . . . 4 𝑃 = (dist‘𝑇)
17 xpsds.m . . . . . 6 𝑀 = ((dist‘𝑅) ↾ (𝑋 × 𝑋))
18 xpsds.n . . . . . 6 𝑁 = ((dist‘𝑆) ↾ (𝑌 × 𝑌))
19 xpsds.3 . . . . . 6 (𝜑𝑀 ∈ (∞Met‘𝑋))
20 xpsds.4 . . . . . 6 (𝜑𝑁 ∈ (∞Met‘𝑌))
211, 2, 3, 4, 5, 16, 17, 18, 19, 20xpsxmetlem 24329 . . . . 5 (𝜑 → (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ∈ (∞Met‘ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})))
22 ssid 3999 . . . . 5 ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) ⊆ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
23 xmetres2 24311 . . . . 5 (((dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ∈ (∞Met‘ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})) ∧ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) ⊆ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})) → ((dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ↾ (ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) × ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))) ∈ (∞Met‘ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})))
2421, 22, 23sylancl 584 . . . 4 (𝜑 → ((dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ↾ (ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) × ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))) ∈ (∞Met‘ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})))
25 df-ov 7422 . . . . . 6 (𝐴(𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})𝐵) = ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐴, 𝐵⟩)
26 xpsds.a . . . . . . 7 (𝜑𝐴𝑋)
27 xpsds.b . . . . . . 7 (𝜑𝐵𝑌)
286xpsfval 17551 . . . . . . 7 ((𝐴𝑋𝐵𝑌) → (𝐴(𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})𝐵) = {⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩})
2926, 27, 28syl2anc 582 . . . . . 6 (𝜑 → (𝐴(𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})𝐵) = {⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩})
3025, 29eqtr3id 2779 . . . . 5 (𝜑 → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) = {⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩})
3126, 27opelxpd 5717 . . . . . 6 (𝜑 → ⟨𝐴, 𝐵⟩ ∈ (𝑋 × 𝑌))
32 f1of 6838 . . . . . . . 8 ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) → (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):(𝑋 × 𝑌)⟶ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
3311, 32ax-mp 5 . . . . . . 7 (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):(𝑋 × 𝑌)⟶ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
3433ffvelcdmi 7092 . . . . . 6 (⟨𝐴, 𝐵⟩ ∈ (𝑋 × 𝑌) → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) ∈ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
3531, 34syl 17 . . . . 5 (𝜑 → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) ∈ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
3630, 35eqeltrrd 2826 . . . 4 (𝜑 → {⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} ∈ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
37 df-ov 7422 . . . . . 6 (𝐶(𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})𝐷) = ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐶, 𝐷⟩)
38 xpsds.c . . . . . . 7 (𝜑𝐶𝑋)
39 xpsds.d . . . . . . 7 (𝜑𝐷𝑌)
406xpsfval 17551 . . . . . . 7 ((𝐶𝑋𝐷𝑌) → (𝐶(𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})𝐷) = {⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩})
4138, 39, 40syl2anc 582 . . . . . 6 (𝜑 → (𝐶(𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})𝐷) = {⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩})
4237, 41eqtr3id 2779 . . . . 5 (𝜑 → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) = {⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩})
4338, 39opelxpd 5717 . . . . . 6 (𝜑 → ⟨𝐶, 𝐷⟩ ∈ (𝑋 × 𝑌))
4433ffvelcdmi 7092 . . . . . 6 (⟨𝐶, 𝐷⟩ ∈ (𝑋 × 𝑌) → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) ∈ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
4543, 44syl 17 . . . . 5 (𝜑 → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) ∈ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
4642, 45eqeltrrd 2826 . . . 4 (𝜑 → {⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩} ∈ ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
479, 10, 13, 14, 15, 16, 24, 36, 46imasdsf1o 24324 . . 3 (𝜑 → (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩})𝑃((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩})) = ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} ((dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ↾ (ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) × ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))){⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}))
4836, 46ovresd 7588 . . 3 (𝜑 → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} ((dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) ↾ (ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) × ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))){⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}) = ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}))
4947, 48eqtrd 2765 . 2 (𝜑 → (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩})𝑃((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩})) = ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}))
50 f1ocnvfv 7287 . . . . 5 (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) ∧ ⟨𝐴, 𝐵⟩ ∈ (𝑋 × 𝑌)) → (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) = {⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}) = ⟨𝐴, 𝐵⟩))
5111, 31, 50sylancr 585 . . . 4 (𝜑 → (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) = {⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}) = ⟨𝐴, 𝐵⟩))
5230, 51mpd 15 . . 3 (𝜑 → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}) = ⟨𝐴, 𝐵⟩)
53 f1ocnvfv 7287 . . . . 5 (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑋 × 𝑌)) → (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) = {⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩} → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}) = ⟨𝐶, 𝐷⟩))
5411, 43, 53sylancr 585 . . . 4 (𝜑 → (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) = {⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩} → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}) = ⟨𝐶, 𝐷⟩))
5542, 54mpd 15 . . 3 (𝜑 → ((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}) = ⟨𝐶, 𝐷⟩)
5652, 55oveq12d 7437 . 2 (𝜑 → (((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩})𝑃((𝑥𝑋, 𝑦𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩})) = (⟨𝐴, 𝐵𝑃𝐶, 𝐷⟩))
57 eqid 2725 . . . 4 (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}))
58 fvexd 6911 . . . 4 (𝜑 → (Scalar‘𝑅) ∈ V)
59 2on 8501 . . . . 5 2o ∈ On
6059a1i 11 . . . 4 (𝜑 → 2o ∈ On)
61 fnpr2o 17542 . . . . 5 ((𝑅𝑉𝑆𝑊) → {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o)
624, 5, 61syl2anc 582 . . . 4 (𝜑 → {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩} Fn 2o)
6336, 10eleqtrd 2827 . . . 4 (𝜑 → {⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} ∈ (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
6446, 10eleqtrd 2827 . . . 4 (𝜑 → {⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩} ∈ (Base‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})))
65 eqid 2725 . . . 4 (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})) = (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}))
668, 57, 58, 60, 62, 63, 64, 65prdsdsval 17463 . . 3 (𝜑 → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}) = sup((ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) ∪ {0}), ℝ*, < ))
67 df2o3 8495 . . . . . . . . . . 11 2o = {∅, 1o}
6867rexeqi 3313 . . . . . . . . . 10 (∃𝑘 ∈ 2o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) ↔ ∃𝑘 ∈ {∅, 1o}𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)))
69 0ex 5308 . . . . . . . . . . 11 ∅ ∈ V
70 1oex 8497 . . . . . . . . . . 11 1o ∈ V
71 2fveq3 6901 . . . . . . . . . . . . 13 (𝑘 = ∅ → (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅)))
72 fveq2 6896 . . . . . . . . . . . . 13 (𝑘 = ∅ → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘) = ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅))
73 fveq2 6896 . . . . . . . . . . . . 13 (𝑘 = ∅ → ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘) = ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅))
7471, 72, 73oveq123d 7440 . . . . . . . . . . . 12 (𝑘 = ∅ → (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅)))
7574eqeq2d 2736 . . . . . . . . . . 11 (𝑘 = ∅ → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) ↔ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅))))
76 2fveq3 6901 . . . . . . . . . . . . 13 (𝑘 = 1o → (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘)) = (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o)))
77 fveq2 6896 . . . . . . . . . . . . 13 (𝑘 = 1o → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘) = ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o))
78 fveq2 6896 . . . . . . . . . . . . 13 (𝑘 = 1o → ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘) = ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o))
7976, 77, 78oveq123d 7440 . . . . . . . . . . . 12 (𝑘 = 1o → (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o)))
8079eqeq2d 2736 . . . . . . . . . . 11 (𝑘 = 1o → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) ↔ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o))))
8169, 70, 75, 80rexpr 4707 . . . . . . . . . 10 (∃𝑘 ∈ {∅, 1o}𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) ↔ (𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅)) ∨ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o))))
8268, 81bitri 274 . . . . . . . . 9 (∃𝑘 ∈ 2o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) ↔ (𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅)) ∨ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o))))
83 fvpr0o 17544 . . . . . . . . . . . . . . 15 (𝑅𝑉 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅) = 𝑅)
844, 83syl 17 . . . . . . . . . . . . . 14 (𝜑 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅) = 𝑅)
8584fveq2d 6900 . . . . . . . . . . . . 13 (𝜑 → (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅)) = (dist‘𝑅))
86 fvpr0o 17544 . . . . . . . . . . . . . 14 (𝐴𝑋 → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅) = 𝐴)
8726, 86syl 17 . . . . . . . . . . . . 13 (𝜑 → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅) = 𝐴)
88 fvpr0o 17544 . . . . . . . . . . . . . 14 (𝐶𝑋 → ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅) = 𝐶)
8938, 88syl 17 . . . . . . . . . . . . 13 (𝜑 → ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅) = 𝐶)
9085, 87, 89oveq123d 7440 . . . . . . . . . . . 12 (𝜑 → (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅)) = (𝐴(dist‘𝑅)𝐶))
9117oveqi 7432 . . . . . . . . . . . . 13 (𝐴𝑀𝐶) = (𝐴((dist‘𝑅) ↾ (𝑋 × 𝑋))𝐶)
9226, 38ovresd 7588 . . . . . . . . . . . . 13 (𝜑 → (𝐴((dist‘𝑅) ↾ (𝑋 × 𝑋))𝐶) = (𝐴(dist‘𝑅)𝐶))
9391, 92eqtrid 2777 . . . . . . . . . . . 12 (𝜑 → (𝐴𝑀𝐶) = (𝐴(dist‘𝑅)𝐶))
9490, 93eqtr4d 2768 . . . . . . . . . . 11 (𝜑 → (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅)) = (𝐴𝑀𝐶))
9594eqeq2d 2736 . . . . . . . . . 10 (𝜑 → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅)) ↔ 𝑥 = (𝐴𝑀𝐶)))
96 fvpr1o 17545 . . . . . . . . . . . . . . 15 (𝑆𝑊 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o) = 𝑆)
975, 96syl 17 . . . . . . . . . . . . . 14 (𝜑 → ({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o) = 𝑆)
9897fveq2d 6900 . . . . . . . . . . . . 13 (𝜑 → (dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o)) = (dist‘𝑆))
99 fvpr1o 17545 . . . . . . . . . . . . . 14 (𝐵𝑌 → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o) = 𝐵)
10027, 99syl 17 . . . . . . . . . . . . 13 (𝜑 → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o) = 𝐵)
101 fvpr1o 17545 . . . . . . . . . . . . . 14 (𝐷𝑌 → ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o) = 𝐷)
10239, 101syl 17 . . . . . . . . . . . . 13 (𝜑 → ({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o) = 𝐷)
10398, 100, 102oveq123d 7440 . . . . . . . . . . . 12 (𝜑 → (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o)) = (𝐵(dist‘𝑆)𝐷))
10418oveqi 7432 . . . . . . . . . . . . 13 (𝐵𝑁𝐷) = (𝐵((dist‘𝑆) ↾ (𝑌 × 𝑌))𝐷)
10527, 39ovresd 7588 . . . . . . . . . . . . 13 (𝜑 → (𝐵((dist‘𝑆) ↾ (𝑌 × 𝑌))𝐷) = (𝐵(dist‘𝑆)𝐷))
106104, 105eqtrid 2777 . . . . . . . . . . . 12 (𝜑 → (𝐵𝑁𝐷) = (𝐵(dist‘𝑆)𝐷))
107103, 106eqtr4d 2768 . . . . . . . . . . 11 (𝜑 → (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o)) = (𝐵𝑁𝐷))
108107eqeq2d 2736 . . . . . . . . . 10 (𝜑 → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o)) ↔ 𝑥 = (𝐵𝑁𝐷)))
10995, 108orbi12d 916 . . . . . . . . 9 (𝜑 → ((𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘∅)) ∨ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘1o)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘1o))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘1o))) ↔ (𝑥 = (𝐴𝑀𝐶) ∨ 𝑥 = (𝐵𝑁𝐷))))
11082, 109bitrid 282 . . . . . . . 8 (𝜑 → (∃𝑘 ∈ 2o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)) ↔ (𝑥 = (𝐴𝑀𝐶) ∨ 𝑥 = (𝐵𝑁𝐷))))
111 eqid 2725 . . . . . . . . . 10 (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) = (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)))
112111elrnmpt 5958 . . . . . . . . 9 (𝑥 ∈ V → (𝑥 ∈ ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) ↔ ∃𝑘 ∈ 2o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))))
113112elv 3467 . . . . . . . 8 (𝑥 ∈ ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) ↔ ∃𝑘 ∈ 2o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘)))
114 vex 3465 . . . . . . . . 9 𝑥 ∈ V
115114elpr 4654 . . . . . . . 8 (𝑥 ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ↔ (𝑥 = (𝐴𝑀𝐶) ∨ 𝑥 = (𝐵𝑁𝐷)))
116110, 113, 1153bitr4g 313 . . . . . . 7 (𝜑 → (𝑥 ∈ ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) ↔ 𝑥 ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}))
117116eqrdv 2723 . . . . . 6 (𝜑 → ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) = {(𝐴𝑀𝐶), (𝐵𝑁𝐷)})
118117uneq1d 4159 . . . . 5 (𝜑 → (ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) ∪ {0}) = ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ∪ {0}))
119 uncom 4150 . . . . 5 ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ∪ {0}) = ({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)})
120118, 119eqtrdi 2781 . . . 4 (𝜑 → (ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) ∪ {0}) = ({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}))
121120supeq1d 9471 . . 3 (𝜑 → sup((ran (𝑘 ∈ 2o ↦ (({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}‘𝑘))) ∪ {0}), ℝ*, < ) = sup(({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}), ℝ*, < ))
122 0xr 11293 . . . . . 6 0 ∈ ℝ*
123122a1i 11 . . . . 5 (𝜑 → 0 ∈ ℝ*)
124123snssd 4814 . . . 4 (𝜑 → {0} ⊆ ℝ*)
125 xmetcl 24281 . . . . . 6 ((𝑀 ∈ (∞Met‘𝑋) ∧ 𝐴𝑋𝐶𝑋) → (𝐴𝑀𝐶) ∈ ℝ*)
12619, 26, 38, 125syl3anc 1368 . . . . 5 (𝜑 → (𝐴𝑀𝐶) ∈ ℝ*)
127 xmetcl 24281 . . . . . 6 ((𝑁 ∈ (∞Met‘𝑌) ∧ 𝐵𝑌𝐷𝑌) → (𝐵𝑁𝐷) ∈ ℝ*)
12820, 27, 39, 127syl3anc 1368 . . . . 5 (𝜑 → (𝐵𝑁𝐷) ∈ ℝ*)
129126, 128prssd 4827 . . . 4 (𝜑 → {(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ*)
130 xrltso 13155 . . . . . 6 < Or ℝ*
131 supsn 9497 . . . . . 6 (( < Or ℝ* ∧ 0 ∈ ℝ*) → sup({0}, ℝ*, < ) = 0)
132130, 122, 131mp2an 690 . . . . 5 sup({0}, ℝ*, < ) = 0
133 supxrcl 13329 . . . . . . 7 ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ* → sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ) ∈ ℝ*)
134129, 133syl 17 . . . . . 6 (𝜑 → sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ) ∈ ℝ*)
135 xmetge0 24294 . . . . . . 7 ((𝑀 ∈ (∞Met‘𝑋) ∧ 𝐴𝑋𝐶𝑋) → 0 ≤ (𝐴𝑀𝐶))
13619, 26, 38, 135syl3anc 1368 . . . . . 6 (𝜑 → 0 ≤ (𝐴𝑀𝐶))
137 ovex 7452 . . . . . . . 8 (𝐴𝑀𝐶) ∈ V
138137prid1 4768 . . . . . . 7 (𝐴𝑀𝐶) ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}
139 supxrub 13338 . . . . . . 7 (({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ* ∧ (𝐴𝑀𝐶) ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}) → (𝐴𝑀𝐶) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
140129, 138, 139sylancl 584 . . . . . 6 (𝜑 → (𝐴𝑀𝐶) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
141123, 126, 134, 136, 140xrletrd 13176 . . . . 5 (𝜑 → 0 ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
142132, 141eqbrtrid 5184 . . . 4 (𝜑 → sup({0}, ℝ*, < ) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
143 supxrun 13330 . . . 4 (({0} ⊆ ℝ* ∧ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ* ∧ sup({0}, ℝ*, < ) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < )) → sup(({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}), ℝ*, < ) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
144124, 129, 142, 143syl3anc 1368 . . 3 (𝜑 → sup(({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}), ℝ*, < ) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
14566, 121, 1443eqtrd 2769 . 2 (𝜑 → ({⟨∅, 𝐴⟩, ⟨1o, 𝐵⟩} (dist‘((Scalar‘𝑅)Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1o, 𝐷⟩}) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
14649, 56, 1453eqtr3d 2773 1 (𝜑 → (⟨𝐴, 𝐵𝑃𝐶, 𝐷⟩) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ*, < ))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wo 845   = wceq 1533  wcel 2098  wrex 3059  Vcvv 3461  cun 3942  wss 3944  c0 4322  {csn 4630  {cpr 4632  cop 4636   class class class wbr 5149  cmpt 5232   Or wor 5589   × cxp 5676  ccnv 5677  ran crn 5679  cres 5680  Oncon0 6371   Fn wfn 6544  wf 6545  1-1-ontowf1o 6548  cfv 6549  (class class class)co 7419  cmpo 7421  1oc1o 8480  2oc2o 8481  supcsup 9465  0cc0 11140  *cxr 11279   < clt 11280  cle 11281  Basecbs 17183  Scalarcsca 17239  distcds 17245  Xscprds 17430   ×s cxps 17491  ∞Metcxmet 21281
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5365  ax-pr 5429  ax-un 7741  ax-cnex 11196  ax-resscn 11197  ax-1cn 11198  ax-icn 11199  ax-addcl 11200  ax-addrcl 11201  ax-mulcl 11202  ax-mulrcl 11203  ax-mulcom 11204  ax-addass 11205  ax-mulass 11206  ax-distr 11207  ax-i2m1 11208  ax-1ne0 11209  ax-1rid 11210  ax-rnegex 11211  ax-rrecex 11212  ax-cnre 11213  ax-pre-lttri 11214  ax-pre-lttrn 11215  ax-pre-ltadd 11216  ax-pre-mulgt0 11217  ax-pre-sup 11218
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2930  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3419  df-v 3463  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3964  df-nul 4323  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4910  df-int 4951  df-iun 4999  df-iin 5000  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-se 5634  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6307  df-ord 6374  df-on 6375  df-lim 6376  df-suc 6377  df-iota 6501  df-fun 6551  df-fn 6552  df-f 6553  df-f1 6554  df-fo 6555  df-f1o 6556  df-fv 6557  df-isom 6558  df-riota 7375  df-ov 7422  df-oprab 7423  df-mpo 7424  df-of 7685  df-om 7872  df-1st 7994  df-2nd 7995  df-supp 8166  df-frecs 8287  df-wrecs 8318  df-recs 8392  df-rdg 8431  df-1o 8487  df-2o 8488  df-er 8725  df-map 8847  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-fsupp 9388  df-sup 9467  df-inf 9468  df-oi 9535  df-card 9964  df-pnf 11282  df-mnf 11283  df-xr 11284  df-ltxr 11285  df-le 11286  df-sub 11478  df-neg 11479  df-div 11904  df-nn 12246  df-2 12308  df-3 12309  df-4 12310  df-5 12311  df-6 12312  df-7 12313  df-8 12314  df-9 12315  df-n0 12506  df-z 12592  df-dec 12711  df-uz 12856  df-rp 13010  df-xneg 13127  df-xadd 13128  df-xmul 13129  df-icc 13366  df-fz 13520  df-fzo 13663  df-seq 14003  df-hash 14326  df-struct 17119  df-sets 17136  df-slot 17154  df-ndx 17166  df-base 17184  df-ress 17213  df-plusg 17249  df-mulr 17250  df-sca 17252  df-vsca 17253  df-ip 17254  df-tset 17255  df-ple 17256  df-ds 17258  df-hom 17260  df-cco 17261  df-0g 17426  df-gsum 17427  df-prds 17432  df-xrs 17487  df-imas 17493  df-xps 17495  df-mre 17569  df-mrc 17570  df-acs 17572  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-submnd 18744  df-mulg 19032  df-cntz 19280  df-cmn 19749  df-xmet 21289
This theorem is referenced by:  tmsxpsval  24491
  Copyright terms: Public domain W3C validator