xpsdsval - Metamath Proof Explorer

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

Theorem xpsdsval 23887

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.

Step	Hyp	Ref	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 2733	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})
7		eqid 2733	. . . . 5 ⊢ (Scalar‘𝑅) = (Scalar‘𝑅)
8		eqid 2733	. . . . 5 ⊢ ((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}) = ((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})
9	1, 2, 3, 4, 5, 6, 7, 8	xpsval 17516	. . . 4 ⊢ (𝜑 → 𝑇 = (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) “_s ((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})))
10	1, 2, 3, 4, 5, 6, 7, 8	xpsrnbas 17517	. . . 4 ⊢ (𝜑 → ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) = (Base‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})))
11	6	xpsff1o2 17515	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})
12		f1ocnv 6846	. . . . 5 ⊢ ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) → ^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})–1-1-onto→(𝑋 × 𝑌))
13	11, 12	mp1i 13	. . . 4 ⊢ (𝜑 → ^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})–1-1-onto→(𝑋 × 𝑌))
14		ovexd 7444	. . . 4 ⊢ (𝜑 → ((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}) ∈ V)
15		eqid 2733	. . . 4 ⊢ ((dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ↾ (ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) × ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))) = ((dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ↾ (ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) × ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})))
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‘𝑌))
21	1, 2, 3, 4, 5, 16, 17, 18, 19, 20	xpsxmetlem 23885	. . . . 5 ⊢ (𝜑 → (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ∈ (∞Met‘ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})))
22		ssid 4005	. . . . 5 ⊢ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) ⊆ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})
23		xmetres2 23867	. . . . 5 ⊢ (((dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ∈ (∞Met‘ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})) ∧ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) ⊆ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})) → ((dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ↾ (ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) × ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))) ∈ (∞Met‘ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})))
24	21, 22, 23	sylancl 587	. . . 4 ⊢ (𝜑 → ((dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ↾ (ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) × ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))) ∈ (∞Met‘ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})))
25		df-ov 7412	. . . . . 6 ⊢ (𝐴(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐵) = ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐴, 𝐵⟩)
26		xpsds.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
27		xpsds.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝑌)
28	6	xpsfval 17512	. . . . . . 7 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (𝐴(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐵) = {⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩})
29	26, 27, 28	syl2anc 585	. . . . . 6 ⊢ (𝜑 → (𝐴(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐵) = {⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩})
30	25, 29	eqtr3id 2787	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) = {⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩})
31	26, 27	opelxpd 5716	. . . . . 6 ⊢ (𝜑 → ⟨𝐴, 𝐵⟩ ∈ (𝑋 × 𝑌))
32		f1of 6834	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) → (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)⟶ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))
33	11, 32	ax-mp 5	. . . . . . 7 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)⟶ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})
34	33	ffvelcdmi 7086	. . . . . 6 ⊢ (⟨𝐴, 𝐵⟩ ∈ (𝑋 × 𝑌) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) ∈ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))
35	31, 34	syl 17	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) ∈ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))
36	30, 35	eqeltrrd 2835	. . . 4 ⊢ (𝜑 → {⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} ∈ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))
37		df-ov 7412	. . . . . 6 ⊢ (𝐶(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐷) = ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐶, 𝐷⟩)
38		xpsds.c	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ 𝑋)
39		xpsds.d	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ 𝑌)
40	6	xpsfval 17512	. . . . . . 7 ⊢ ((𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌) → (𝐶(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐷) = {⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩})
41	38, 39, 40	syl2anc 585	. . . . . 6 ⊢ (𝜑 → (𝐶(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐷) = {⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩})
42	37, 41	eqtr3id 2787	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) = {⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩})
43	38, 39	opelxpd 5716	. . . . . 6 ⊢ (𝜑 → ⟨𝐶, 𝐷⟩ ∈ (𝑋 × 𝑌))
44	33	ffvelcdmi 7086	. . . . . 6 ⊢ (⟨𝐶, 𝐷⟩ ∈ (𝑋 × 𝑌) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) ∈ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))
45	43, 44	syl 17	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) ∈ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))
46	42, 45	eqeltrrd 2835	. . . 4 ⊢ (𝜑 → {⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩} ∈ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))
47	9, 10, 13, 14, 15, 16, 24, 36, 46	imasdsf1o 23880	. . 3 ⊢ (𝜑 → ((^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩})𝑃(^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩})) = ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} ((dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ↾ (ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) × ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))){⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}))
48	36, 46	ovresd 7574	. . 3 ⊢ (𝜑 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} ((dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ↾ (ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) × ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}))){⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}) = ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}))
49	47, 48	eqtrd 2773	. 2 ⊢ (𝜑 → ((^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩})𝑃(^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩})) = ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}))
50		f1ocnvfv 7276	. . . . 5 ⊢ (((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) ∧ ⟨𝐴, 𝐵⟩ ∈ (𝑋 × 𝑌)) → (((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) = {⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} → (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}) = ⟨𝐴, 𝐵⟩))
51	11, 31, 50	sylancr 588	. . . 4 ⊢ (𝜑 → (((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐴, 𝐵⟩) = {⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} → (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}) = ⟨𝐴, 𝐵⟩))
52	30, 51	mpd 15	. . 3 ⊢ (𝜑 → (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}) = ⟨𝐴, 𝐵⟩)
53		f1ocnvfv 7276	. . . . 5 ⊢ (((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑋 × 𝑌)) → (((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) = {⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩} → (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}) = ⟨𝐶, 𝐷⟩))
54	11, 43, 53	sylancr 588	. . . 4 ⊢ (𝜑 → (((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐶, 𝐷⟩) = {⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩} → (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}) = ⟨𝐶, 𝐷⟩))
55	42, 54	mpd 15	. . 3 ⊢ (𝜑 → (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}) = ⟨𝐶, 𝐷⟩)
56	52, 55	oveq12d 7427	. 2 ⊢ (𝜑 → ((^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩})𝑃(^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘{⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩})) = (⟨𝐴, 𝐵⟩𝑃⟨𝐶, 𝐷⟩))
57		eqid 2733	. . . 4 ⊢ (Base‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) = (Base‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}))
58		fvexd 6907	. . . 4 ⊢ (𝜑 → (Scalar‘𝑅) ∈ V)
59		2on 8480	. . . . 5 ⊢ 2_o ∈ On
60	59	a1i 11	. . . 4 ⊢ (𝜑 → 2_o ∈ On)
61		fnpr2o 17503	. . . . 5 ⊢ ((𝑅 ∈ 𝑉 ∧ 𝑆 ∈ 𝑊) → {⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩} Fn 2_o)
62	4, 5, 61	syl2anc 585	. . . 4 ⊢ (𝜑 → {⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩} Fn 2_o)
63	36, 10	eleqtrd 2836	. . . 4 ⊢ (𝜑 → {⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} ∈ (Base‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})))
64	46, 10	eleqtrd 2836	. . . 4 ⊢ (𝜑 → {⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩} ∈ (Base‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})))
65		eqid 2733	. . . 4 ⊢ (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) = (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}))
66	8, 57, 58, 60, 62, 63, 64, 65	prdsdsval 17424	. . 3 ⊢ (𝜑 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}) = sup((ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ∪ {0}), ℝ^*, < ))
67		df2o3 8474	. . . . . . . . . . 11 ⊢ 2_o = {∅, 1_o}
68	67	rexeqi 3325	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ 2_o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) ↔ ∃𝑘 ∈ {∅, 1_o}𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)))
69		0ex 5308	. . . . . . . . . . 11 ⊢ ∅ ∈ V
70		1oex 8476	. . . . . . . . . . 11 ⊢ 1_o ∈ V
71		2fveq3 6897	. . . . . . . . . . . . 13 ⊢ (𝑘 = ∅ → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘)) = (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅)))
72		fveq2 6892	. . . . . . . . . . . . 13 ⊢ (𝑘 = ∅ → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘) = ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅))
73		fveq2 6892	. . . . . . . . . . . . 13 ⊢ (𝑘 = ∅ → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘) = ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅))
74	71, 72, 73	oveq123d 7430	. . . . . . . . . . . 12 ⊢ (𝑘 = ∅ → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)))
75	74	eqeq2d 2744	. . . . . . . . . . 11 ⊢ (𝑘 = ∅ → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) ↔ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅))))
76		2fveq3 6897	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1_o → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘)) = (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o)))
77		fveq2 6892	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1_o → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘) = ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o))
78		fveq2 6892	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1_o → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘) = ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o))
79	76, 77, 78	oveq123d 7430	. . . . . . . . . . . 12 ⊢ (𝑘 = 1_o → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o)))
80	79	eqeq2d 2744	. . . . . . . . . . 11 ⊢ (𝑘 = 1_o → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) ↔ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o))))
81	69, 70, 75, 80	rexpr 4706	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ {∅, 1_o}𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) ↔ (𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)) ∨ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o))))
82	68, 81	bitri 275	. . . . . . . . 9 ⊢ (∃𝑘 ∈ 2_o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) ↔ (𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)) ∨ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o))))
83		fvpr0o 17505	. . . . . . . . . . . . . . 15 ⊢ (𝑅 ∈ 𝑉 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅) = 𝑅)
84	4, 83	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅) = 𝑅)
85	84	fveq2d 6896	. . . . . . . . . . . . 13 ⊢ (𝜑 → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅)) = (dist‘𝑅))
86		fvpr0o 17505	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ 𝑋 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅) = 𝐴)
87	26, 86	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅) = 𝐴)
88		fvpr0o 17505	. . . . . . . . . . . . . 14 ⊢ (𝐶 ∈ 𝑋 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅) = 𝐶)
89	38, 88	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅) = 𝐶)
90	85, 87, 89	oveq123d 7430	. . . . . . . . . . . 12 ⊢ (𝜑 → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)) = (𝐴(dist‘𝑅)𝐶))
91	17	oveqi 7422	. . . . . . . . . . . . 13 ⊢ (𝐴𝑀𝐶) = (𝐴((dist‘𝑅) ↾ (𝑋 × 𝑋))𝐶)
92	26, 38	ovresd 7574	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴((dist‘𝑅) ↾ (𝑋 × 𝑋))𝐶) = (𝐴(dist‘𝑅)𝐶))
93	91, 92	eqtrid 2785	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴𝑀𝐶) = (𝐴(dist‘𝑅)𝐶))
94	90, 93	eqtr4d 2776	. . . . . . . . . . 11 ⊢ (𝜑 → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)) = (𝐴𝑀𝐶))
95	94	eqeq2d 2744	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)) ↔ 𝑥 = (𝐴𝑀𝐶)))
96		fvpr1o 17506	. . . . . . . . . . . . . . 15 ⊢ (𝑆 ∈ 𝑊 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o) = 𝑆)
97	5, 96	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o) = 𝑆)
98	97	fveq2d 6896	. . . . . . . . . . . . 13 ⊢ (𝜑 → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o)) = (dist‘𝑆))
99		fvpr1o 17506	. . . . . . . . . . . . . 14 ⊢ (𝐵 ∈ 𝑌 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o) = 𝐵)
100	27, 99	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o) = 𝐵)
101		fvpr1o 17506	. . . . . . . . . . . . . 14 ⊢ (𝐷 ∈ 𝑌 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o) = 𝐷)
102	39, 101	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o) = 𝐷)
103	98, 100, 102	oveq123d 7430	. . . . . . . . . . . 12 ⊢ (𝜑 → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o)) = (𝐵(dist‘𝑆)𝐷))
104	18	oveqi 7422	. . . . . . . . . . . . 13 ⊢ (𝐵𝑁𝐷) = (𝐵((dist‘𝑆) ↾ (𝑌 × 𝑌))𝐷)
105	27, 39	ovresd 7574	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐵((dist‘𝑆) ↾ (𝑌 × 𝑌))𝐷) = (𝐵(dist‘𝑆)𝐷))
106	104, 105	eqtrid 2785	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵𝑁𝐷) = (𝐵(dist‘𝑆)𝐷))
107	103, 106	eqtr4d 2776	. . . . . . . . . . 11 ⊢ (𝜑 → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o)) = (𝐵𝑁𝐷))
108	107	eqeq2d 2744	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o)) ↔ 𝑥 = (𝐵𝑁𝐷)))
109	95, 108	orbi12d 918	. . . . . . . . 9 ⊢ (𝜑 → ((𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)) ∨ 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o))) ↔ (𝑥 = (𝐴𝑀𝐶) ∨ 𝑥 = (𝐵𝑁𝐷))))
110	82, 109	bitrid 283	. . . . . . . 8 ⊢ (𝜑 → (∃𝑘 ∈ 2_o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)) ↔ (𝑥 = (𝐴𝑀𝐶) ∨ 𝑥 = (𝐵𝑁𝐷))))
111		eqid 2733	. . . . . . . . . 10 ⊢ (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) = (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)))
112	111	elrnmpt 5956	. . . . . . . . 9 ⊢ (𝑥 ∈ V → (𝑥 ∈ ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ↔ ∃𝑘 ∈ 2_o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))))
113	112	elv 3481	. . . . . . . 8 ⊢ (𝑥 ∈ ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ↔ ∃𝑘 ∈ 2_o 𝑥 = (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘)))
114		vex 3479	. . . . . . . . 9 ⊢ 𝑥 ∈ V
115	114	elpr 4652	. . . . . . . 8 ⊢ (𝑥 ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ↔ (𝑥 = (𝐴𝑀𝐶) ∨ 𝑥 = (𝐵𝑁𝐷)))
116	110, 113, 115	3bitr4g 314	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ↔ 𝑥 ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}))
117	116	eqrdv 2731	. . . . . 6 ⊢ (𝜑 → ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) = {(𝐴𝑀𝐶), (𝐵𝑁𝐷)})
118	117	uneq1d 4163	. . . . 5 ⊢ (𝜑 → (ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ∪ {0}) = ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ∪ {0}))
119		uncom 4154	. . . . 5 ⊢ ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ∪ {0}) = ({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)})
120	118, 119	eqtrdi 2789	. . . 4 ⊢ (𝜑 → (ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ∪ {0}) = ({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}))
121	120	supeq1d 9441	. . 3 ⊢ (𝜑 → sup((ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ∪ {0}), ℝ^, < ) = sup(({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}), ℝ^, < ))
122		0xr 11261	. . . . . 6 ⊢ 0 ∈ ℝ^*
123	122	a1i 11	. . . . 5 ⊢ (𝜑 → 0 ∈ ℝ^*)
124	123	snssd 4813	. . . 4 ⊢ (𝜑 → {0} ⊆ ℝ^*)
125		xmetcl 23837	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐶 ∈ 𝑋) → (𝐴𝑀𝐶) ∈ ℝ^*)
126	19, 26, 38, 125	syl3anc 1372	. . . . 5 ⊢ (𝜑 → (𝐴𝑀𝐶) ∈ ℝ^*)
127		xmetcl 23837	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ 𝐵 ∈ 𝑌 ∧ 𝐷 ∈ 𝑌) → (𝐵𝑁𝐷) ∈ ℝ^*)
128	20, 27, 39, 127	syl3anc 1372	. . . . 5 ⊢ (𝜑 → (𝐵𝑁𝐷) ∈ ℝ^*)
129	126, 128	prssd 4826	. . . 4 ⊢ (𝜑 → {(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ^*)
130		xrltso 13120	. . . . . 6 ⊢ < Or ℝ^*
131		supsn 9467	. . . . . 6 ⊢ (( < Or ℝ^* ∧ 0 ∈ ℝ^) → sup({0}, ℝ^, < ) = 0)
132	130, 122, 131	mp2an 691	. . . . 5 ⊢ sup({0}, ℝ^*, < ) = 0
133		supxrcl 13294	. . . . . . 7 ⊢ ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ^* → sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ) ∈ ℝ^)
134	129, 133	syl 17	. . . . . 6 ⊢ (𝜑 → sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ) ∈ ℝ^)
135		xmetge0 23850	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐶 ∈ 𝑋) → 0 ≤ (𝐴𝑀𝐶))
136	19, 26, 38, 135	syl3anc 1372	. . . . . 6 ⊢ (𝜑 → 0 ≤ (𝐴𝑀𝐶))
137		ovex 7442	. . . . . . . 8 ⊢ (𝐴𝑀𝐶) ∈ V
138	137	prid1 4767	. . . . . . 7 ⊢ (𝐴𝑀𝐶) ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}
139		supxrub 13303	. . . . . . 7 ⊢ (({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ^* ∧ (𝐴𝑀𝐶) ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}) → (𝐴𝑀𝐶) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))
140	129, 138, 139	sylancl 587	. . . . . 6 ⊢ (𝜑 → (𝐴𝑀𝐶) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))
141	123, 126, 134, 136, 140	xrletrd 13141	. . . . 5 ⊢ (𝜑 → 0 ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))
142	132, 141	eqbrtrid 5184	. . . 4 ⊢ (𝜑 → sup({0}, ℝ^, < ) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ))
143		supxrun 13295	. . . 4 ⊢ (({0} ⊆ ℝ^* ∧ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ^* ∧ sup({0}, ℝ^, < ) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < )) → sup(({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}), ℝ^, < ) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ))
144	124, 129, 142, 143	syl3anc 1372	. . 3 ⊢ (𝜑 → sup(({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}), ℝ^, < ) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ))
145	66, 121, 144	3eqtrd 2777	. 2 ⊢ (𝜑 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩} (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})){⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))
146	49, 56, 145	3eqtr3d 2781	1 ⊢ (𝜑 → (⟨𝐴, 𝐵⟩𝑃⟨𝐶, 𝐷⟩) = sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∨ wo 846 = wceq 1542 ∈ wcel 2107 ∃wrex 3071 Vcvv 3475 ∪ cun 3947 ⊆ wss 3949 ∅c0 4323 {csn 4629 {cpr 4631 ⟨cop 4635 class class class wbr 5149 ↦ cmpt 5232 Or wor 5588 × cxp 5675 ^◡ccnv 5676 ran crn 5678 ↾ cres 5679 Oncon0 6365 Fn wfn 6539 ⟶wf 6540 –1-1-onto→wf1o 6543 ‘cfv 6544 (class class class)co 7409 ∈ cmpo 7411 1_oc1o 8459 2_oc2o 8460 supcsup 9435 0cc0 11110 ℝ^*cxr 11247 < clt 11248 ≤ cle 11249 Basecbs 17144 Scalarcsca 17200 distcds 17206 X_scprds 17391 ×_s cxps 17452 ∞Metcxmet 20929

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5364 ax-pr 5428 ax-un 7725 ax-cnex 11166 ax-resscn 11167 ax-1cn 11168 ax-icn 11169 ax-addcl 11170 ax-addrcl 11171 ax-mulcl 11172 ax-mulrcl 11173 ax-mulcom 11174 ax-addass 11175 ax-mulass 11176 ax-distr 11177 ax-i2m1 11178 ax-1ne0 11179 ax-1rid 11180 ax-rnegex 11181 ax-rrecex 11182 ax-cnre 11183 ax-pre-lttri 11184 ax-pre-lttrn 11185 ax-pre-ltadd 11186 ax-pre-mulgt0 11187 ax-pre-sup 11188

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-tp 4634 df-op 4636 df-uni 4910 df-int 4952 df-iun 5000 df-iin 5001 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5575 df-eprel 5581 df-po 5589 df-so 5590 df-fr 5632 df-se 5633 df-we 5634 df-xp 5683 df-rel 5684 df-cnv 5685 df-co 5686 df-dm 5687 df-rn 5688 df-res 5689 df-ima 5690 df-pred 6301 df-ord 6368 df-on 6369 df-lim 6370 df-suc 6371 df-iota 6496 df-fun 6546 df-fn 6547 df-f 6548 df-f1 6549 df-fo 6550 df-f1o 6551 df-fv 6552 df-isom 6553 df-riota 7365 df-ov 7412 df-oprab 7413 df-mpo 7414 df-of 7670 df-om 7856 df-1st 7975 df-2nd 7976 df-supp 8147 df-frecs 8266 df-wrecs 8297 df-recs 8371 df-rdg 8410 df-1o 8466 df-2o 8467 df-er 8703 df-map 8822 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9362 df-sup 9437 df-inf 9438 df-oi 9505 df-card 9934 df-pnf 11250 df-mnf 11251 df-xr 11252 df-ltxr 11253 df-le 11254 df-sub 11446 df-neg 11447 df-div 11872 df-nn 12213 df-2 12275 df-3 12276 df-4 12277 df-5 12278 df-6 12279 df-7 12280 df-8 12281 df-9 12282 df-n0 12473 df-z 12559 df-dec 12678 df-uz 12823 df-rp 12975 df-xneg 13092 df-xadd 13093 df-xmul 13094 df-icc 13331 df-fz 13485 df-fzo 13628 df-seq 13967 df-hash 14291 df-struct 17080 df-sets 17097 df-slot 17115 df-ndx 17127 df-base 17145 df-ress 17174 df-plusg 17210 df-mulr 17211 df-sca 17213 df-vsca 17214 df-ip 17215 df-tset 17216 df-ple 17217 df-ds 17219 df-hom 17221 df-cco 17222 df-0g 17387 df-gsum 17388 df-prds 17393 df-xrs 17448 df-imas 17454 df-xps 17456 df-mre 17530 df-mrc 17531 df-acs 17533 df-mgm 18561 df-sgrp 18610 df-mnd 18626 df-submnd 18672 df-mulg 18951 df-cntz 19181 df-cmn 19650 df-xmet 20937

This theorem is referenced by: tmsxpsval 24047

W3C validator