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 23879

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 17513	. . . 4 ⊢ (𝜑 → 𝑇 = (^◡(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) “_s ((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})))
10	1, 2, 3, 4, 5, 6, 7, 8	xpsrnbas 17514	. . . 4 ⊢ (𝜑 → ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) = (Base‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})))
11	6	xpsff1o2 17512	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}):(𝑋 × 𝑌)–1-1-onto→ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})
12		f1ocnv 6843	. . . . 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 7441	. . . 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 23877	. . . . 5 ⊢ (𝜑 → (dist‘((Scalar‘𝑅)X_s{⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩})) ∈ (∞Met‘ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})))
22		ssid 4004	. . . . 5 ⊢ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩}) ⊆ ran (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})
23		xmetres2 23859	. . . . 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 7409	. . . . . 6 ⊢ (𝐴(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐵) = ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐴, 𝐵⟩)
26		xpsds.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
27		xpsds.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝑌)
28	6	xpsfval 17509	. . . . . . 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 5714	. . . . . 6 ⊢ (𝜑 → ⟨𝐴, 𝐵⟩ ∈ (𝑋 × 𝑌))
32		f1of 6831	. . . . . . . 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 7083	. . . . . 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 7409	. . . . . 6 ⊢ (𝐶(𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})𝐷) = ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1_o, 𝑦⟩})‘⟨𝐶, 𝐷⟩)
38		xpsds.c	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ 𝑋)
39		xpsds.d	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ 𝑌)
40	6	xpsfval 17509	. . . . . . 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 5714	. . . . . 6 ⊢ (𝜑 → ⟨𝐶, 𝐷⟩ ∈ (𝑋 × 𝑌))
44	33	ffvelcdmi 7083	. . . . . 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 23872	. . 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 7571	. . 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 7273	. . . . 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 7273	. . . . 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 7424	. 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 6904	. . . 4 ⊢ (𝜑 → (Scalar‘𝑅) ∈ V)
59		2on 8477	. . . . 5 ⊢ 2_o ∈ On
60	59	a1i 11	. . . 4 ⊢ (𝜑 → 2_o ∈ On)
61		fnpr2o 17500	. . . . 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 17421	. . 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 8471	. . . . . . . . . . 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 5307	. . . . . . . . . . 11 ⊢ ∅ ∈ V
70		1oex 8473	. . . . . . . . . . 11 ⊢ 1_o ∈ V
71		2fveq3 6894	. . . . . . . . . . . . 13 ⊢ (𝑘 = ∅ → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘)) = (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅)))
72		fveq2 6889	. . . . . . . . . . . . 13 ⊢ (𝑘 = ∅ → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘) = ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅))
73		fveq2 6889	. . . . . . . . . . . . 13 ⊢ (𝑘 = ∅ → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘) = ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅))
74	71, 72, 73	oveq123d 7427	. . . . . . . . . . . 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 6894	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1_o → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘)) = (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o)))
77		fveq2 6889	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1_o → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘) = ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o))
78		fveq2 6889	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1_o → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘) = ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o))
79	76, 77, 78	oveq123d 7427	. . . . . . . . . . . 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 4705	. . . . . . . . . 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 17502	. . . . . . . . . . . . . . 15 ⊢ (𝑅 ∈ 𝑉 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅) = 𝑅)
84	4, 83	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅) = 𝑅)
85	84	fveq2d 6893	. . . . . . . . . . . . 13 ⊢ (𝜑 → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅)) = (dist‘𝑅))
86		fvpr0o 17502	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ 𝑋 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅) = 𝐴)
87	26, 86	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅) = 𝐴)
88		fvpr0o 17502	. . . . . . . . . . . . . 14 ⊢ (𝐶 ∈ 𝑋 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅) = 𝐶)
89	38, 88	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅) = 𝐶)
90	85, 87, 89	oveq123d 7427	. . . . . . . . . . . 12 ⊢ (𝜑 → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘∅)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘∅))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘∅)) = (𝐴(dist‘𝑅)𝐶))
91	17	oveqi 7419	. . . . . . . . . . . . 13 ⊢ (𝐴𝑀𝐶) = (𝐴((dist‘𝑅) ↾ (𝑋 × 𝑋))𝐶)
92	26, 38	ovresd 7571	. . . . . . . . . . . . 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 17503	. . . . . . . . . . . . . . 15 ⊢ (𝑆 ∈ 𝑊 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o) = 𝑆)
97	5, 96	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o) = 𝑆)
98	97	fveq2d 6893	. . . . . . . . . . . . 13 ⊢ (𝜑 → (dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o)) = (dist‘𝑆))
99		fvpr1o 17503	. . . . . . . . . . . . . 14 ⊢ (𝐵 ∈ 𝑌 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o) = 𝐵)
100	27, 99	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o) = 𝐵)
101		fvpr1o 17503	. . . . . . . . . . . . . 14 ⊢ (𝐷 ∈ 𝑌 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o) = 𝐷)
102	39, 101	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o) = 𝐷)
103	98, 100, 102	oveq123d 7427	. . . . . . . . . . . 12 ⊢ (𝜑 → (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘1_o)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘1_o))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘1_o)) = (𝐵(dist‘𝑆)𝐷))
104	18	oveqi 7419	. . . . . . . . . . . . 13 ⊢ (𝐵𝑁𝐷) = (𝐵((dist‘𝑆) ↾ (𝑌 × 𝑌))𝐷)
105	27, 39	ovresd 7571	. . . . . . . . . . . . 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 5954	. . . . . . . . 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 4651	. . . . . . . 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 4162	. . . . 5 ⊢ (𝜑 → (ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ∪ {0}) = ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ∪ {0}))
119		uncom 4153	. . . . 5 ⊢ ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ∪ {0}) = ({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)})
120	118, 119	eqtrdi 2789	. . . 4 ⊢ (𝜑 → (ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ∪ {0}) = ({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}))
121	120	supeq1d 9438	. . 3 ⊢ (𝜑 → sup((ran (𝑘 ∈ 2_o ↦ (({⟨∅, 𝐴⟩, ⟨1_o, 𝐵⟩}‘𝑘)(dist‘({⟨∅, 𝑅⟩, ⟨1_o, 𝑆⟩}‘𝑘))({⟨∅, 𝐶⟩, ⟨1_o, 𝐷⟩}‘𝑘))) ∪ {0}), ℝ^, < ) = sup(({0} ∪ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}), ℝ^, < ))
122		0xr 11258	. . . . . 6 ⊢ 0 ∈ ℝ^*
123	122	a1i 11	. . . . 5 ⊢ (𝜑 → 0 ∈ ℝ^*)
124	123	snssd 4812	. . . 4 ⊢ (𝜑 → {0} ⊆ ℝ^*)
125		xmetcl 23829	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐶 ∈ 𝑋) → (𝐴𝑀𝐶) ∈ ℝ^*)
126	19, 26, 38, 125	syl3anc 1372	. . . . 5 ⊢ (𝜑 → (𝐴𝑀𝐶) ∈ ℝ^*)
127		xmetcl 23829	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ 𝐵 ∈ 𝑌 ∧ 𝐷 ∈ 𝑌) → (𝐵𝑁𝐷) ∈ ℝ^*)
128	20, 27, 39, 127	syl3anc 1372	. . . . 5 ⊢ (𝜑 → (𝐵𝑁𝐷) ∈ ℝ^*)
129	126, 128	prssd 4825	. . . 4 ⊢ (𝜑 → {(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ^*)
130		xrltso 13117	. . . . . 6 ⊢ < Or ℝ^*
131		supsn 9464	. . . . . 6 ⊢ (( < Or ℝ^* ∧ 0 ∈ ℝ^) → sup({0}, ℝ^, < ) = 0)
132	130, 122, 131	mp2an 691	. . . . 5 ⊢ sup({0}, ℝ^*, < ) = 0
133		supxrcl 13291	. . . . . . 7 ⊢ ({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ^* → sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ) ∈ ℝ^)
134	129, 133	syl 17	. . . . . 6 ⊢ (𝜑 → sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ) ∈ ℝ^)
135		xmetge0 23842	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐶 ∈ 𝑋) → 0 ≤ (𝐴𝑀𝐶))
136	19, 26, 38, 135	syl3anc 1372	. . . . . 6 ⊢ (𝜑 → 0 ≤ (𝐴𝑀𝐶))
137		ovex 7439	. . . . . . . 8 ⊢ (𝐴𝑀𝐶) ∈ V
138	137	prid1 4766	. . . . . . 7 ⊢ (𝐴𝑀𝐶) ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}
139		supxrub 13300	. . . . . . 7 ⊢ (({(𝐴𝑀𝐶), (𝐵𝑁𝐷)} ⊆ ℝ^* ∧ (𝐴𝑀𝐶) ∈ {(𝐴𝑀𝐶), (𝐵𝑁𝐷)}) → (𝐴𝑀𝐶) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))
140	129, 138, 139	sylancl 587	. . . . . 6 ⊢ (𝜑 → (𝐴𝑀𝐶) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))
141	123, 126, 134, 136, 140	xrletrd 13138	. . . . 5 ⊢ (𝜑 → 0 ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^*, < ))
142	132, 141	eqbrtrid 5183	. . . 4 ⊢ (𝜑 → sup({0}, ℝ^, < ) ≤ sup({(𝐴𝑀𝐶), (𝐵𝑁𝐷)}, ℝ^, < ))
143		supxrun 13292	. . . 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 3946 ⊆ wss 3948 ∅c0 4322 {csn 4628 {cpr 4630 ⟨cop 4634 class class class wbr 5148 ↦ cmpt 5231 Or wor 5587 × cxp 5674 ^◡ccnv 5675 ran crn 5677 ↾ cres 5678 Oncon0 6362 Fn wfn 6536 ⟶wf 6537 –1-1-onto→wf1o 6540 ‘cfv 6541 (class class class)co 7406 ∈ cmpo 7408 1_oc1o 8456 2_oc2o 8457 supcsup 9432 0cc0 11107 ℝ^*cxr 11244 < clt 11245 ≤ cle 11246 Basecbs 17141 Scalarcsca 17197 distcds 17203 X_scprds 17388 ×_s cxps 17449 ∞Metcxmet 20922

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 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7722 ax-cnex 11163 ax-resscn 11164 ax-1cn 11165 ax-icn 11166 ax-addcl 11167 ax-addrcl 11168 ax-mulcl 11169 ax-mulrcl 11170 ax-mulcom 11171 ax-addass 11172 ax-mulass 11173 ax-distr 11174 ax-i2m1 11175 ax-1ne0 11176 ax-1rid 11177 ax-rnegex 11178 ax-rrecex 11179 ax-cnre 11180 ax-pre-lttri 11181 ax-pre-lttrn 11182 ax-pre-ltadd 11183 ax-pre-mulgt0 11184 ax-pre-sup 11185

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 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-tp 4633 df-op 4635 df-uni 4909 df-int 4951 df-iun 4999 df-iin 5000 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-se 5632 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6298 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6493 df-fun 6543 df-fn 6544 df-f 6545 df-f1 6546 df-fo 6547 df-f1o 6548 df-fv 6549 df-isom 6550 df-riota 7362 df-ov 7409 df-oprab 7410 df-mpo 7411 df-of 7667 df-om 7853 df-1st 7972 df-2nd 7973 df-supp 8144 df-frecs 8263 df-wrecs 8294 df-recs 8368 df-rdg 8407 df-1o 8463 df-2o 8464 df-er 8700 df-map 8819 df-ixp 8889 df-en 8937 df-dom 8938 df-sdom 8939 df-fin 8940 df-fsupp 9359 df-sup 9434 df-inf 9435 df-oi 9502 df-card 9931 df-pnf 11247 df-mnf 11248 df-xr 11249 df-ltxr 11250 df-le 11251 df-sub 11443 df-neg 11444 df-div 11869 df-nn 12210 df-2 12272 df-3 12273 df-4 12274 df-5 12275 df-6 12276 df-7 12277 df-8 12278 df-9 12279 df-n0 12470 df-z 12556 df-dec 12675 df-uz 12820 df-rp 12972 df-xneg 13089 df-xadd 13090 df-xmul 13091 df-icc 13328 df-fz 13482 df-fzo 13625 df-seq 13964 df-hash 14288 df-struct 17077 df-sets 17094 df-slot 17112 df-ndx 17124 df-base 17142 df-ress 17171 df-plusg 17207 df-mulr 17208 df-sca 17210 df-vsca 17211 df-ip 17212 df-tset 17213 df-ple 17214 df-ds 17216 df-hom 17218 df-cco 17219 df-0g 17384 df-gsum 17385 df-prds 17390 df-xrs 17445 df-imas 17451 df-xps 17453 df-mre 17527 df-mrc 17528 df-acs 17530 df-mgm 18558 df-sgrp 18607 df-mnd 18623 df-submnd 18669 df-mulg 18946 df-cntz 19176 df-cmn 19645 df-xmet 20930

This theorem is referenced by: tmsxpsval 24039

W3C validator