xmetxp - Intuitionistic Logic Explorer

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

Theorem xmetxp 13147

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 2165	. . . . 5 ⊢ (MetOpen‘𝑀) = (MetOpen‘𝑀)
3	2	mopnm 13088	. . . 4 ⊢ (𝑀 ∈ (∞Met‘𝑋) → 𝑋 ∈ (MetOpen‘𝑀))
4	1, 3	syl 14	. . 3 ⊢ (𝜑 → 𝑋 ∈ (MetOpen‘𝑀))
5		xmetxp.2	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (∞Met‘𝑌))
6		eqid 2165	. . . . 5 ⊢ (MetOpen‘𝑁) = (MetOpen‘𝑁)
7	6	mopnm 13088	. . . 4 ⊢ (𝑁 ∈ (∞Met‘𝑌) → 𝑌 ∈ (MetOpen‘𝑁))
8	5, 7	syl 14	. . 3 ⊢ (𝜑 → 𝑌 ∈ (MetOpen‘𝑁))
9		xpexg 4718	. . 3 ⊢ ((𝑋 ∈ (MetOpen‘𝑀) ∧ 𝑌 ∈ (MetOpen‘𝑁)) → (𝑋 × 𝑌) ∈ V)
10	4, 8, 9	syl2anc 409	. 2 ⊢ (𝜑 → (𝑋 × 𝑌) ∈ V)
11	1	adantr 274	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
12		xp1st 6133	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (1^st ‘𝑟) ∈ 𝑋)
13	12	ad2antrl 482	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
14		xp1st 6133	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (1^st ‘𝑠) ∈ 𝑋)
15	14	ad2antll 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
16		xmetcl 12992	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
17	11, 13, 15, 16	syl3anc 1228	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
18	5	adantr 274	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
19		xp2nd 6134	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑟) ∈ 𝑌)
20	19	ad2antrl 482	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
21		xp2nd 6134	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑠) ∈ 𝑌)
22	21	ad2antll 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
23		xmetcl 12992	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
24	18, 20, 22, 23	syl3anc 1228	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
25		xrmaxcl 11193	. . . . 5 ⊢ ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^*)
26	17, 24, 25	syl2anc 409	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^)
27	26	ralrimivva 2548	. . 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 5486	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (1^st ‘𝑢) = (1^st ‘𝑟))
30	29	oveq1d 5857	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑣)))
31		fveq2 5486	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (2^nd ‘𝑢) = (2^nd ‘𝑟))
32	31	oveq1d 5857	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)))
33	30, 32	preq12d 3661	. . . . . . 7 ⊢ (𝑢 = 𝑟 → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))})
34	33	supeq1d 6952	. . . . . 6 ⊢ (𝑢 = 𝑟 → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ))
35		fveq2 5486	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (1^st ‘𝑣) = (1^st ‘𝑠))
36	35	oveq2d 5858	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((1^st ‘𝑟)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
37		fveq2 5486	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (2^nd ‘𝑣) = (2^nd ‘𝑠))
38	37	oveq2d 5858	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
39	36, 38	preq12d 3661	. . . . . . 7 ⊢ (𝑣 = 𝑠 → {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))})
40	39	supeq1d 6952	. . . . . 6 ⊢ (𝑣 = 𝑠 → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
41	34, 40	cbvmpov 5922	. . . . 5 ⊢ (𝑢 ∈ (𝑋 × 𝑌), 𝑣 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < )) = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
42	28, 41	eqtri 2186	. . . 4 ⊢ 𝑃 = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
43	42	fmpo 6169	. . 3 ⊢ (∀𝑟 ∈ (𝑋 × 𝑌)∀𝑠 ∈ (𝑋 × 𝑌)sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^ ↔ 𝑃:((𝑋 × 𝑌) × (𝑋 × 𝑌))⟶ℝ^*)
44	27, 43	sylib 121	. 2 ⊢ (𝜑 → 𝑃:((𝑋 × 𝑌) × (𝑋 × 𝑌))⟶ℝ^*)
45		simprl 521	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑟 ∈ (𝑋 × 𝑌))
46		simprr 522	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑠 ∈ (𝑋 × 𝑌))
47	34, 40, 28	ovmpog 5976	. . . . . . . 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 1228	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
49	48, 26	eqeltrd 2243	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ∈ ℝ^*)
50		0xr 7945	. . . . . . 7 ⊢ 0 ∈ ℝ^*
51	50	a1i 9	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ∈ ℝ^*)
52		xrletri3 9740	. . . . . 6 ⊢ (((𝑟𝑃𝑠) ∈ ℝ^* ∧ 0 ∈ ℝ^*) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
53	49, 51, 52	syl2anc 409	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
54		xmetge0 13005	. . . . . . . . 9 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
55	11, 13, 15, 54	syl3anc 1228	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
56		xrmax1sup 11194	. . . . . . . . 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 409	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
58	51, 17, 26, 55, 57	xrletrd 9748	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
59	58, 48	breqtrrd 4010	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ (𝑟𝑃𝑠))
60	59	biantrud 302	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
61	53, 60	bitr4d 190	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ (𝑟𝑃𝑠) ≤ 0))
62	48	breq1d 3992	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ 0))
63		xrmaxlesup 11200	. . . . 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 1228	. . . 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 213	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0)))
66	55	biantrud 302	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))))
67		xrletri3 9740	. . . . . 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 409	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))))
69	66, 68	bitr4d 190	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ↔ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0))
70		xmetge0 13005	. . . . . . 7 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
71	18, 20, 22, 70	syl3anc 1228	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
72	71	biantrud 302	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ↔ (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ∧ 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))))
73		xrletri3 9740	. . . . . 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 409	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ∧ 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))))
75	72, 74	bitr4d 190	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0 ↔ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0))
76	69, 75	anbi12d 465	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ 0) ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0)))
77		xmeteq0 12999	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
78	11, 13, 15, 77	syl3anc 1228	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
79		xmeteq0 12999	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (2^nd ‘𝑟) = (2^nd ‘𝑠)))
80	18, 20, 22, 79	syl3anc 1228	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (2^nd ‘𝑟) = (2^nd ‘𝑠)))
81	78, 80	anbi12d 465	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0) ↔ ((1^st ‘𝑟) = (1^st ‘𝑠) ∧ (2^nd ‘𝑟) = (2^nd ‘𝑠))))
82		xpopth 6144	. . . . 5 ⊢ ((𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌)) → (((1^st ‘𝑟) = (1^st ‘𝑠) ∧ (2^nd ‘𝑟) = (2^nd ‘𝑠)) ↔ 𝑟 = 𝑠))
83	82	adantl 275	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟) = (1^st ‘𝑠) ∧ (2^nd ‘𝑟) = (2^nd ‘𝑠)) ↔ 𝑟 = 𝑠))
84	81, 83	bitrd 187	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0) ↔ 𝑟 = 𝑠))
85	65, 76, 84	3bitrd 213	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ 𝑟 = 𝑠))
86	48	3adantr3 1148	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
87	17	3adantr3 1148	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
88	1	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
89		simpr3 995	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑡 ∈ (𝑋 × 𝑌))
90		xp1st 6133	. . . . . . . 8 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (1^st ‘𝑡) ∈ 𝑋)
91	89, 90	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑡) ∈ 𝑋)
92		simpr1 993	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑟 ∈ (𝑋 × 𝑌))
93	92, 12	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
94		xmetcl 12992	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑟) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
95	88, 91, 93, 94	syl3anc 1228	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
96	15	3adantr3 1148	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
97		xmetcl 12992	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
98	88, 91, 96, 97	syl3anc 1228	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
99	95, 98	xaddcld 9820	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ∈ ℝ^*)
100	5	adantr 274	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
101		xp2nd 6134	. . . . . . . . . . 11 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑡) ∈ 𝑌)
102	89, 101	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑡) ∈ 𝑌)
103	92, 19	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
104		xmetcl 12992	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑟) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
105	100, 102, 103, 104	syl3anc 1228	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
106		xrmaxcl 11193	. . . . . . . . 9 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ) ∈ ℝ^*)
107	95, 105, 106	syl2anc 409	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ) ∈ ℝ^)
108		fveq2 5486	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (1^st ‘𝑢) = (1^st ‘𝑡))
109		fveq2 5486	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (1^st ‘𝑣) = (1^st ‘𝑟))
110	108, 109	oveqan12d 5861	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑟)))
111		fveq2 5486	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (2^nd ‘𝑢) = (2^nd ‘𝑡))
112		fveq2 5486	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (2^nd ‘𝑣) = (2^nd ‘𝑟))
113	111, 112	oveqan12d 5861	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)))
114	110, 113	preq12d 3661	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))})
115	114	supeq1d 6952	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ))
116	115, 28	ovmpoga 5971	. . . . . . . 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 1228	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
118	117, 107	eqeltrd 2243	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) ∈ ℝ^*)
119		simpr2 994	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑠 ∈ (𝑋 × 𝑌))
120	22	3adantr3 1148	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
121		xmetcl 12992	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
122	100, 102, 120, 121	syl3anc 1228	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
123		xrmaxcl 11193	. . . . . . . . 9 ⊢ ((((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^* ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^*)
124	98, 122, 123	syl2anc 409	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^)
125	108, 35	oveqan12d 5861	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑠)))
126	111, 37	oveqan12d 5861	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)))
127	125, 126	preq12d 3661	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))})
128	127	supeq1d 6952	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
129	128, 28	ovmpoga 5971	. . . . . . . 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 1228	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
131	130, 124	eqeltrd 2243	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) ∈ ℝ^*)
132	118, 131	xaddcld 9820	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∈ ℝ^*)
133		xmettri2 13001	. . . . . 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 1230	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))))
135		xrmax1sup 11194	. . . . . . . 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 409	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
137	136, 117	breqtrrd 4010	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ (𝑡𝑃𝑟))
138		xrmax1sup 11194	. . . . . . . 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 409	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
140	139, 130	breqtrrd 4010	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ (𝑡𝑃𝑠))
141		xle2add 9815	. . . . . . 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 1229	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ (𝑡𝑃𝑟) ∧ ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ (𝑡𝑃𝑠)) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠))))
143	137, 140, 142	mp2and 430	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
144	87, 99, 132, 134, 143	xrletrd 9748	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
145	24	3adantr3 1148	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
146	105, 122	xaddcld 9820	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ∈ ℝ^*)
147		xmettri2 13001	. . . . . 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 1230	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))))
149		xrmax2sup 11195	. . . . . . . 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 409	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
151	150, 117	breqtrrd 4010	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ (𝑡𝑃𝑟))
152		xrmax2sup 11195	. . . . . . . 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 409	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
154	153, 130	breqtrrd 4010	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ (𝑡𝑃𝑠))
155		xle2add 9815	. . . . . . 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 1229	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ (𝑡𝑃𝑟) ∧ ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ (𝑡𝑃𝑠)) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠))))
157	151, 154, 156	mp2and 430	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
158	145, 146, 132, 148, 157	xrletrd 9748	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
159		xrmaxlesup 11200	. . . . 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 1228	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))))
161	144, 158, 160	mpbir2and 934	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
162	86, 161	eqbrtrd 4004	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
163	10, 44, 85, 162	isxmetd 12987	1 ⊢ (𝜑 → 𝑃 ∈ (∞Met‘(𝑋 × 𝑌)))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 ↔ wb 104 ∧ w3a 968 = wceq 1343 ∈ wcel 2136 ∀wral 2444 Vcvv 2726 {cpr 3577 class class class wbr 3982 × cxp 4602 ⟶wf 5184 ‘cfv 5188 (class class class)co 5842 ∈ cmpo 5844 1^st c1st 6106 2^nd c2nd 6107 supcsup 6947 0cc0 7753 ℝ^*cxr 7932 < clt 7933 ≤ cle 7934 +_𝑒 cxad 9706 ∞Metcxmet 12620 MetOpencmopn 12625

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 604 ax-in2 605 ax-io 699 ax-5 1435 ax-7 1436 ax-gen 1437 ax-ie1 1481 ax-ie2 1482 ax-8 1492 ax-10 1493 ax-11 1494 ax-i12 1495 ax-bndl 1497 ax-4 1498 ax-17 1514 ax-i9 1518 ax-ial 1522 ax-i5r 1523 ax-13 2138 ax-14 2139 ax-ext 2147 ax-coll 4097 ax-sep 4100 ax-nul 4108 ax-pow 4153 ax-pr 4187 ax-un 4411 ax-setind 4514 ax-iinf 4565 ax-cnex 7844 ax-resscn 7845 ax-1cn 7846 ax-1re 7847 ax-icn 7848 ax-addcl 7849 ax-addrcl 7850 ax-mulcl 7851 ax-mulrcl 7852 ax-addcom 7853 ax-mulcom 7854 ax-addass 7855 ax-mulass 7856 ax-distr 7857 ax-i2m1 7858 ax-0lt1 7859 ax-1rid 7860 ax-0id 7861 ax-rnegex 7862 ax-precex 7863 ax-cnre 7864 ax-pre-ltirr 7865 ax-pre-ltwlin 7866 ax-pre-lttrn 7867 ax-pre-apti 7868 ax-pre-ltadd 7869 ax-pre-mulgt0 7870 ax-pre-mulext 7871 ax-arch 7872 ax-caucvg 7873

This theorem depends on definitions: df-bi 116 df-stab 821 df-dc 825 df-3or 969 df-3an 970 df-tru 1346 df-fal 1349 df-nf 1449 df-sb 1751 df-eu 2017 df-mo 2018 df-clab 2152 df-cleq 2158 df-clel 2161 df-nfc 2297 df-ne 2337 df-nel 2432 df-ral 2449 df-rex 2450 df-reu 2451 df-rmo 2452 df-rab 2453 df-v 2728 df-sbc 2952 df-csb 3046 df-dif 3118 df-un 3120 df-in 3122 df-ss 3129 df-nul 3410 df-if 3521 df-pw 3561 df-sn 3582 df-pr 3583 df-op 3585 df-uni 3790 df-int 3825 df-iun 3868 df-br 3983 df-opab 4044 df-mpt 4045 df-tr 4081 df-id 4271 df-po 4274 df-iso 4275 df-iord 4344 df-on 4346 df-ilim 4347 df-suc 4349 df-iom 4568 df-xp 4610 df-rel 4611 df-cnv 4612 df-co 4613 df-dm 4614 df-rn 4615 df-res 4616 df-ima 4617 df-iota 5153 df-fun 5190 df-fn 5191 df-f 5192 df-f1 5193 df-fo 5194 df-f1o 5195 df-fv 5196 df-isom 5197 df-riota 5798 df-ov 5845 df-oprab 5846 df-mpo 5847 df-1st 6108 df-2nd 6109 df-recs 6273 df-frec 6359 df-map 6616 df-sup 6949 df-inf 6950 df-pnf 7935 df-mnf 7936 df-xr 7937 df-ltxr 7938 df-le 7939 df-sub 8071 df-neg 8072 df-reap 8473 df-ap 8480 df-div 8569 df-inn 8858 df-2 8916 df-3 8917 df-4 8918 df-n0 9115 df-z 9192 df-uz 9467 df-q 9558 df-rp 9590 df-xneg 9708 df-xadd 9709 df-seqfrec 10381 df-exp 10455 df-cj 10784 df-re 10785 df-im 10786 df-rsqrt 10940 df-abs 10941 df-topgen 12577 df-psmet 12627 df-xmet 12628 df-bl 12630 df-mopn 12631 df-top 12636 df-topon 12649 df-bases 12681

This theorem is referenced by: xmetxpbl 13148 xmettxlem 13149 xmettx 13150 txmetcnp 13158

W3C validator