xmetxp - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > xmetxp		GIF version

Theorem xmetxp 15298

Description: The maximum metric (Chebyshev distance) on the product of two sets. (Contributed by Jim Kingdon, 11-Oct-2023.)

**Hypotheses**
Ref	Expression
xmetxp.p	⊢ 𝑃 = (𝑢 ∈ (𝑋 × 𝑌), 𝑣 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^*, < ))
xmetxp.1	⊢ (𝜑 → 𝑀 ∈ (∞Met‘𝑋))
xmetxp.2	⊢ (𝜑 → 𝑁 ∈ (∞Met‘𝑌))

**Assertion**
Ref	Expression
xmetxp	⊢ (𝜑 → 𝑃 ∈ (∞Met‘(𝑋 × 𝑌)))

Distinct variable groups: 𝑢,𝑀,𝑣 𝑢,𝑁,𝑣 𝑢,𝑋,𝑣 𝑢,𝑌,𝑣 Allowed substitution hints: 𝜑(𝑣,𝑢) 𝑃(𝑣,𝑢)

Proof of Theorem xmetxp Dummy variables 𝑟 𝑠 𝑡 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xmetxp.1	. . . 4 ⊢ (𝜑 → 𝑀 ∈ (∞Met‘𝑋))
2		eqid 2231	. . . . 5 ⊢ (MetOpen‘𝑀) = (MetOpen‘𝑀)
3	2	mopnm 15239	. . . 4 ⊢ (𝑀 ∈ (∞Met‘𝑋) → 𝑋 ∈ (MetOpen‘𝑀))
4	1, 3	syl 14	. . 3 ⊢ (𝜑 → 𝑋 ∈ (MetOpen‘𝑀))
5		xmetxp.2	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (∞Met‘𝑌))
6		eqid 2231	. . . . 5 ⊢ (MetOpen‘𝑁) = (MetOpen‘𝑁)
7	6	mopnm 15239	. . . 4 ⊢ (𝑁 ∈ (∞Met‘𝑌) → 𝑌 ∈ (MetOpen‘𝑁))
8	5, 7	syl 14	. . 3 ⊢ (𝜑 → 𝑌 ∈ (MetOpen‘𝑁))
9		xpexg 4846	. . 3 ⊢ ((𝑋 ∈ (MetOpen‘𝑀) ∧ 𝑌 ∈ (MetOpen‘𝑁)) → (𝑋 × 𝑌) ∈ V)
10	4, 8, 9	syl2anc 411	. 2 ⊢ (𝜑 → (𝑋 × 𝑌) ∈ V)
11	1	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
12		xp1st 6337	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (1^st ‘𝑟) ∈ 𝑋)
13	12	ad2antrl 490	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
14		xp1st 6337	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (1^st ‘𝑠) ∈ 𝑋)
15	14	ad2antll 491	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
16		xmetcl 15143	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
17	11, 13, 15, 16	syl3anc 1274	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
18	5	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
19		xp2nd 6338	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑟) ∈ 𝑌)
20	19	ad2antrl 490	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
21		xp2nd 6338	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑠) ∈ 𝑌)
22	21	ad2antll 491	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
23		xmetcl 15143	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
24	18, 20, 22, 23	syl3anc 1274	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
25		xrmaxcl 11873	. . . . 5 ⊢ ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^*)
26	17, 24, 25	syl2anc 411	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^)
27	26	ralrimivva 2615	. . 3 ⊢ (𝜑 → ∀𝑟 ∈ (𝑋 × 𝑌)∀𝑠 ∈ (𝑋 × 𝑌)sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^)
28		xmetxp.p	. . . . 5 ⊢ 𝑃 = (𝑢 ∈ (𝑋 × 𝑌), 𝑣 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^*, < ))
29		fveq2 5648	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (1^st ‘𝑢) = (1^st ‘𝑟))
30	29	oveq1d 6043	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑣)))
31		fveq2 5648	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (2^nd ‘𝑢) = (2^nd ‘𝑟))
32	31	oveq1d 6043	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)))
33	30, 32	preq12d 3760	. . . . . . 7 ⊢ (𝑢 = 𝑟 → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))})
34	33	supeq1d 7229	. . . . . 6 ⊢ (𝑢 = 𝑟 → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ))
35		fveq2 5648	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (1^st ‘𝑣) = (1^st ‘𝑠))
36	35	oveq2d 6044	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((1^st ‘𝑟)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
37		fveq2 5648	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (2^nd ‘𝑣) = (2^nd ‘𝑠))
38	37	oveq2d 6044	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
39	36, 38	preq12d 3760	. . . . . . 7 ⊢ (𝑣 = 𝑠 → {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))})
40	39	supeq1d 7229	. . . . . 6 ⊢ (𝑣 = 𝑠 → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
41	34, 40	cbvmpov 6111	. . . . 5 ⊢ (𝑢 ∈ (𝑋 × 𝑌), 𝑣 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < )) = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
42	28, 41	eqtri 2252	. . . 4 ⊢ 𝑃 = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
43	42	fmpo 6375	. . 3 ⊢ (∀𝑟 ∈ (𝑋 × 𝑌)∀𝑠 ∈ (𝑋 × 𝑌)sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^ ↔ 𝑃:((𝑋 × 𝑌) × (𝑋 × 𝑌))⟶ℝ^*)
44	27, 43	sylib 122	. 2 ⊢ (𝜑 → 𝑃:((𝑋 × 𝑌) × (𝑋 × 𝑌))⟶ℝ^*)
45		simprl 531	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑟 ∈ (𝑋 × 𝑌))
46		simprr 533	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑠 ∈ (𝑋 × 𝑌))
47	34, 40, 28	ovmpog 6166	. . . . . . . 8 ⊢ ((𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
48	45, 46, 26, 47	syl3anc 1274	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
49	48, 26	eqeltrd 2308	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ∈ ℝ^*)
50		0xr 8269	. . . . . . 7 ⊢ 0 ∈ ℝ^*
51	50	a1i 9	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ∈ ℝ^*)
52		xrletri3 10082	. . . . . 6 ⊢ (((𝑟𝑃𝑠) ∈ ℝ^* ∧ 0 ∈ ℝ^*) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
53	49, 51, 52	syl2anc 411	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
54		xmetge0 15156	. . . . . . . . 9 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
55	11, 13, 15, 54	syl3anc 1274	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
56		xrmax1sup 11874	. . . . . . . . 9 ⊢ ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
57	17, 24, 56	syl2anc 411	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
58	51, 17, 26, 55, 57	xrletrd 10090	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
59	58, 48	breqtrrd 4121	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ (𝑟𝑃𝑠))
60	59	biantrud 304	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
61	53, 60	bitr4d 191	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ (𝑟𝑃𝑠) ≤ 0))
62	48	breq1d 4103	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ 0))
63		xrmaxlesup 11880	. . . . 5 ⊢ ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^* ∧ 0 ∈ ℝ^) → (sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ≤ 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0)))
64	17, 24, 51, 63	syl3anc 1274	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0)))
65	61, 62, 64	3bitrd 214	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0)))
66	55	biantrud 304	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))))
67		xrletri3 10082	. . . . . 6 ⊢ ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ 0 ∈ ℝ^*) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))))
68	17, 51, 67	syl2anc 411	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))))
69	66, 68	bitr4d 191	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ↔ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0))
70		xmetge0 15156	. . . . . . 7 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
71	18, 20, 22, 70	syl3anc 1274	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
72	71	biantrud 304	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ↔ (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ∧ 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))))
73		xrletri3 10082	. . . . . 6 ⊢ ((((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^* ∧ 0 ∈ ℝ^*) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ∧ 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))))
74	24, 51, 73	syl2anc 411	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ∧ 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))))
75	72, 74	bitr4d 191	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ↔ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0))
76	69, 75	anbi12d 473	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0) ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0)))
77		xmeteq0 15150	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
78	11, 13, 15, 77	syl3anc 1274	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
79		xmeteq0 15150	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (2^nd ‘𝑟) = (2^nd ‘𝑠)))
80	18, 20, 22, 79	syl3anc 1274	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (2^nd ‘𝑟) = (2^nd ‘𝑠)))
81	78, 80	anbi12d 473	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0) ↔ ((1^st ‘𝑟) = (1^st ‘𝑠) ∧ (2^nd ‘𝑟) = (2^nd ‘𝑠))))
82		xpopth 6348	. . . . 5 ⊢ ((𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌)) → (((1^st ‘𝑟) = (1^st ‘𝑠) ∧ (2^nd ‘𝑟) = (2^nd ‘𝑠)) ↔ 𝑟 = 𝑠))
83	82	adantl 277	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟) = (1^st ‘𝑠) ∧ (2^nd ‘𝑟) = (2^nd ‘𝑠)) ↔ 𝑟 = 𝑠))
84	81, 83	bitrd 188	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0) ↔ 𝑟 = 𝑠))
85	65, 76, 84	3bitrd 214	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ 𝑟 = 𝑠))
86	48	3adantr3 1185	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
87	17	3adantr3 1185	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
88	1	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
89		simpr3 1032	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑡 ∈ (𝑋 × 𝑌))
90		xp1st 6337	. . . . . . . 8 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (1^st ‘𝑡) ∈ 𝑋)
91	89, 90	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑡) ∈ 𝑋)
92		simpr1 1030	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑟 ∈ (𝑋 × 𝑌))
93	92, 12	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
94		xmetcl 15143	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑟) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
95	88, 91, 93, 94	syl3anc 1274	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
96	15	3adantr3 1185	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
97		xmetcl 15143	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
98	88, 91, 96, 97	syl3anc 1274	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
99	95, 98	xaddcld 10162	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ∈ ℝ^*)
100	5	adantr 276	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
101		xp2nd 6338	. . . . . . . . . . 11 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑡) ∈ 𝑌)
102	89, 101	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑡) ∈ 𝑌)
103	92, 19	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
104		xmetcl 15143	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑟) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
105	100, 102, 103, 104	syl3anc 1274	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
106		xrmaxcl 11873	. . . . . . . . 9 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ) ∈ ℝ^*)
107	95, 105, 106	syl2anc 411	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ) ∈ ℝ^)
108		fveq2 5648	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (1^st ‘𝑢) = (1^st ‘𝑡))
109		fveq2 5648	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (1^st ‘𝑣) = (1^st ‘𝑟))
110	108, 109	oveqan12d 6047	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑟)))
111		fveq2 5648	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (2^nd ‘𝑢) = (2^nd ‘𝑡))
112		fveq2 5648	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (2^nd ‘𝑣) = (2^nd ‘𝑟))
113	111, 112	oveqan12d 6047	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)))
114	110, 113	preq12d 3760	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))})
115	114	supeq1d 7229	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ))
116	115, 28	ovmpoga 6161	. . . . . . . 8 ⊢ ((𝑡 ∈ (𝑋 × 𝑌) ∧ 𝑟 ∈ (𝑋 × 𝑌) ∧ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ) ∈ ℝ^) → (𝑡𝑃𝑟) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
117	89, 92, 107, 116	syl3anc 1274	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
118	117, 107	eqeltrd 2308	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) ∈ ℝ^*)
119		simpr2 1031	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑠 ∈ (𝑋 × 𝑌))
120	22	3adantr3 1185	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
121		xmetcl 15143	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
122	100, 102, 120, 121	syl3anc 1274	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
123		xrmaxcl 11873	. . . . . . . . 9 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^*)
124	98, 122, 123	syl2anc 411	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^)
125	108, 35	oveqan12d 6047	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑠)))
126	111, 37	oveqan12d 6047	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)))
127	125, 126	preq12d 3760	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))})
128	127	supeq1d 7229	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
129	128, 28	ovmpoga 6161	. . . . . . . 8 ⊢ ((𝑡 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^) → (𝑡𝑃𝑠) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
130	89, 119, 124, 129	syl3anc 1274	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
131	130, 124	eqeltrd 2308	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) ∈ ℝ^*)
132	118, 131	xaddcld 10162	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∈ ℝ^*)
133		xmettri2 15152	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ ((1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋)) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))))
134	88, 91, 93, 96, 133	syl13anc 1276	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))))
135		xrmax1sup 11874	. . . . . . . 8 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ))
136	95, 105, 135	syl2anc 411	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
137	136, 117	breqtrrd 4121	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ (𝑡𝑃𝑟))
138		xrmax1sup 11874	. . . . . . . 8 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
139	98, 122, 138	syl2anc 411	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
140	139, 130	breqtrrd 4121	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ (𝑡𝑃𝑠))
141		xle2add 10157	. . . . . . 7 ⊢ (((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^* ∧ ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^) ∧ ((𝑡𝑃𝑟) ∈ ℝ^ ∧ (𝑡𝑃𝑠) ∈ ℝ^*)) → ((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ (𝑡𝑃𝑟) ∧ ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ (𝑡𝑃𝑠)) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠))))
142	95, 98, 118, 131, 141	syl22anc 1275	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ (𝑡𝑃𝑟) ∧ ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ (𝑡𝑃𝑠)) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠))))
143	137, 140, 142	mp2and 433	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
144	87, 99, 132, 134, 143	xrletrd 10090	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
145	24	3adantr3 1185	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
146	105, 122	xaddcld 10162	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ∈ ℝ^*)
147		xmettri2 15152	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ ((2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌)) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))))
148	100, 102, 103, 120, 147	syl13anc 1276	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))))
149		xrmax2sup 11875	. . . . . . . 8 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ))
150	95, 105, 149	syl2anc 411	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
151	150, 117	breqtrrd 4121	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ (𝑡𝑃𝑟))
152		xrmax2sup 11875	. . . . . . . 8 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
153	98, 122, 152	syl2anc 411	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
154	153, 130	breqtrrd 4121	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ (𝑡𝑃𝑠))
155		xle2add 10157	. . . . . . 7 ⊢ (((((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^) ∧ ((𝑡𝑃𝑟) ∈ ℝ^ ∧ (𝑡𝑃𝑠) ∈ ℝ^*)) → ((((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ (𝑡𝑃𝑟) ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ (𝑡𝑃𝑠)) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠))))
156	105, 122, 118, 131, 155	syl22anc 1275	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ (𝑡𝑃𝑟) ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ (𝑡𝑃𝑠)) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠))))
157	151, 154, 156	mp2and 433	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
158	145, 146, 132, 148, 157	xrletrd 10090	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
159		xrmaxlesup 11880	. . . . 5 ⊢ ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^* ∧ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∈ ℝ^) → (sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))))
160	87, 145, 132, 159	syl3anc 1274	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))))
161	144, 158, 160	mpbir2and 953	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
162	86, 161	eqbrtrd 4115	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
163	10, 44, 85, 162	isxmetd 15138	1 ⊢ (𝜑 → 𝑃 ∈ (∞Met‘(𝑋 × 𝑌)))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 1005 = wceq 1398 ∈ wcel 2202 ∀wral 2511 Vcvv 2803 {cpr 3674 class class class wbr 4093 × cxp 4729 ⟶wf 5329 ‘cfv 5333 (class class class)co 6028 ∈ cmpo 6030 1^st c1st 6310 2^nd c2nd 6311 supcsup 7224 0cc0 8075 ℝ^*cxr 8256 < clt 8257 ≤ cle 8258 +_𝑒 cxad 10048 ∞Metcxmet 14612 MetOpencmopn 14617

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2204 ax-14 2205 ax-ext 2213 ax-coll 4209 ax-sep 4212 ax-nul 4220 ax-pow 4270 ax-pr 4305 ax-un 4536 ax-setind 4641 ax-iinf 4692 ax-cnex 8166 ax-resscn 8167 ax-1cn 8168 ax-1re 8169 ax-icn 8170 ax-addcl 8171 ax-addrcl 8172 ax-mulcl 8173 ax-mulrcl 8174 ax-addcom 8175 ax-mulcom 8176 ax-addass 8177 ax-mulass 8178 ax-distr 8179 ax-i2m1 8180 ax-0lt1 8181 ax-1rid 8182 ax-0id 8183 ax-rnegex 8184 ax-precex 8185 ax-cnre 8186 ax-pre-ltirr 8187 ax-pre-ltwlin 8188 ax-pre-lttrn 8189 ax-pre-apti 8190 ax-pre-ltadd 8191 ax-pre-mulgt0 8192 ax-pre-mulext 8193 ax-arch 8194 ax-caucvg 8195

This theorem depends on definitions: df-bi 117 df-stab 839 df-dc 843 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1811 df-eu 2082 df-mo 2083 df-clab 2218 df-cleq 2224 df-clel 2227 df-nfc 2364 df-ne 2404 df-nel 2499 df-ral 2516 df-rex 2517 df-reu 2518 df-rmo 2519 df-rab 2520 df-v 2805 df-sbc 3033 df-csb 3129 df-dif 3203 df-un 3205 df-in 3207 df-ss 3214 df-nul 3497 df-if 3608 df-pw 3658 df-sn 3679 df-pr 3680 df-op 3682 df-uni 3899 df-int 3934 df-iun 3977 df-br 4094 df-opab 4156 df-mpt 4157 df-tr 4193 df-id 4396 df-po 4399 df-iso 4400 df-iord 4469 df-on 4471 df-ilim 4472 df-suc 4474 df-iom 4695 df-xp 4737 df-rel 4738 df-cnv 4739 df-co 4740 df-dm 4741 df-rn 4742 df-res 4743 df-ima 4744 df-iota 5293 df-fun 5335 df-fn 5336 df-f 5337 df-f1 5338 df-fo 5339 df-f1o 5340 df-fv 5341 df-isom 5342 df-riota 5981 df-ov 6031 df-oprab 6032 df-mpo 6033 df-1st 6312 df-2nd 6313 df-recs 6514 df-frec 6600 df-map 6862 df-sup 7226 df-inf 7227 df-pnf 8259 df-mnf 8260 df-xr 8261 df-ltxr 8262 df-le 8263 df-sub 8395 df-neg 8396 df-reap 8798 df-ap 8805 df-div 8896 df-inn 9187 df-2 9245 df-3 9246 df-4 9247 df-n0 9446 df-z 9523 df-uz 9799 df-q 9897 df-rp 9932 df-xneg 10050 df-xadd 10051 df-seqfrec 10754 df-exp 10845 df-cj 11463 df-re 11464 df-im 11465 df-rsqrt 11619 df-abs 11620 df-topgen 13404 df-psmet 14619 df-xmet 14620 df-bl 14622 df-mopn 14623 df-top 14789 df-topon 14802 df-bases 14834

This theorem is referenced by: xmetxpbl 15299 xmettxlem 15300 xmettx 15301 txmetcnp 15309

W3C validator