xmetxp - Intuitionistic Logic Explorer

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

Theorem xmetxp 14010

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 2177	. . . . 5 ⊢ (MetOpen‘𝑀) = (MetOpen‘𝑀)
3	2	mopnm 13951	. . . 4 ⊢ (𝑀 ∈ (∞Met‘𝑋) → 𝑋 ∈ (MetOpen‘𝑀))
4	1, 3	syl 14	. . 3 ⊢ (𝜑 → 𝑋 ∈ (MetOpen‘𝑀))
5		xmetxp.2	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (∞Met‘𝑌))
6		eqid 2177	. . . . 5 ⊢ (MetOpen‘𝑁) = (MetOpen‘𝑁)
7	6	mopnm 13951	. . . 4 ⊢ (𝑁 ∈ (∞Met‘𝑌) → 𝑌 ∈ (MetOpen‘𝑁))
8	5, 7	syl 14	. . 3 ⊢ (𝜑 → 𝑌 ∈ (MetOpen‘𝑁))
9		xpexg 4741	. . 3 ⊢ ((𝑋 ∈ (MetOpen‘𝑀) ∧ 𝑌 ∈ (MetOpen‘𝑁)) → (𝑋 × 𝑌) ∈ V)
10	4, 8, 9	syl2anc 411	. 2 ⊢ (𝜑 → (𝑋 × 𝑌) ∈ V)
11	1	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
12		xp1st 6166	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (1^st ‘𝑟) ∈ 𝑋)
13	12	ad2antrl 490	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
14		xp1st 6166	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (1^st ‘𝑠) ∈ 𝑋)
15	14	ad2antll 491	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
16		xmetcl 13855	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
17	11, 13, 15, 16	syl3anc 1238	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
18	5	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
19		xp2nd 6167	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑟) ∈ 𝑌)
20	19	ad2antrl 490	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
21		xp2nd 6167	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑠) ∈ 𝑌)
22	21	ad2antll 491	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
23		xmetcl 13855	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
24	18, 20, 22, 23	syl3anc 1238	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
25		xrmaxcl 11260	. . . . 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 2559	. . 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 5516	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (1^st ‘𝑢) = (1^st ‘𝑟))
30	29	oveq1d 5890	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑣)))
31		fveq2 5516	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (2^nd ‘𝑢) = (2^nd ‘𝑟))
32	31	oveq1d 5890	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)))
33	30, 32	preq12d 3678	. . . . . . 7 ⊢ (𝑢 = 𝑟 → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))})
34	33	supeq1d 6986	. . . . . 6 ⊢ (𝑢 = 𝑟 → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ))
35		fveq2 5516	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (1^st ‘𝑣) = (1^st ‘𝑠))
36	35	oveq2d 5891	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((1^st ‘𝑟)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
37		fveq2 5516	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (2^nd ‘𝑣) = (2^nd ‘𝑠))
38	37	oveq2d 5891	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
39	36, 38	preq12d 3678	. . . . . . 7 ⊢ (𝑣 = 𝑠 → {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))})
40	39	supeq1d 6986	. . . . . 6 ⊢ (𝑣 = 𝑠 → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
41	34, 40	cbvmpov 5955	. . . . 5 ⊢ (𝑢 ∈ (𝑋 × 𝑌), 𝑣 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < )) = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
42	28, 41	eqtri 2198	. . . 4 ⊢ 𝑃 = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
43	42	fmpo 6202	. . 3 ⊢ (∀𝑟 ∈ (𝑋 × 𝑌)∀𝑠 ∈ (𝑋 × 𝑌)sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ) ∈ ℝ^ ↔ 𝑃:((𝑋 × 𝑌) × (𝑋 × 𝑌))⟶ℝ^*)
44	27, 43	sylib 122	. 2 ⊢ (𝜑 → 𝑃:((𝑋 × 𝑌) × (𝑋 × 𝑌))⟶ℝ^*)
45		simprl 529	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑟 ∈ (𝑋 × 𝑌))
46		simprr 531	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑠 ∈ (𝑋 × 𝑌))
47	34, 40, 28	ovmpog 6009	. . . . . . . 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 1238	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
49	48, 26	eqeltrd 2254	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ∈ ℝ^*)
50		0xr 8004	. . . . . . 7 ⊢ 0 ∈ ℝ^*
51	50	a1i 9	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ∈ ℝ^*)
52		xrletri3 9804	. . . . . 6 ⊢ (((𝑟𝑃𝑠) ∈ ℝ^* ∧ 0 ∈ ℝ^*) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
53	49, 51, 52	syl2anc 411	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
54		xmetge0 13868	. . . . . . . . 9 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
55	11, 13, 15, 54	syl3anc 1238	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
56		xrmax1sup 11261	. . . . . . . . 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 9812	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
59	58, 48	breqtrrd 4032	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ (𝑟𝑃𝑠))
60	59	biantrud 304	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
61	53, 60	bitr4d 191	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ (𝑟𝑃𝑠) ≤ 0))
62	48	breq1d 4014	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ 0))
63		xrmaxlesup 11267	. . . . 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 1238	. . . 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 9804	. . . . . 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 13868	. . . . . . 7 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
71	18, 20, 22, 70	syl3anc 1238	. . . . . 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 9804	. . . . . 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 13862	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
78	11, 13, 15, 77	syl3anc 1238	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
79		xmeteq0 13862	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (2^nd ‘𝑟) = (2^nd ‘𝑠)))
80	18, 20, 22, 79	syl3anc 1238	. . . . 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 6177	. . . . 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 1158	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
87	17	3adantr3 1158	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
88	1	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
89		simpr3 1005	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑡 ∈ (𝑋 × 𝑌))
90		xp1st 6166	. . . . . . . 8 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (1^st ‘𝑡) ∈ 𝑋)
91	89, 90	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑡) ∈ 𝑋)
92		simpr1 1003	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑟 ∈ (𝑋 × 𝑌))
93	92, 12	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
94		xmetcl 13855	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑟) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
95	88, 91, 93, 94	syl3anc 1238	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
96	15	3adantr3 1158	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
97		xmetcl 13855	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
98	88, 91, 96, 97	syl3anc 1238	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
99	95, 98	xaddcld 9884	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ∈ ℝ^*)
100	5	adantr 276	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
101		xp2nd 6167	. . . . . . . . . . 11 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑡) ∈ 𝑌)
102	89, 101	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑡) ∈ 𝑌)
103	92, 19	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
104		xmetcl 13855	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑟) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
105	100, 102, 103, 104	syl3anc 1238	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
106		xrmaxcl 11260	. . . . . . . . 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 5516	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (1^st ‘𝑢) = (1^st ‘𝑡))
109		fveq2 5516	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (1^st ‘𝑣) = (1^st ‘𝑟))
110	108, 109	oveqan12d 5894	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑟)))
111		fveq2 5516	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (2^nd ‘𝑢) = (2^nd ‘𝑡))
112		fveq2 5516	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (2^nd ‘𝑣) = (2^nd ‘𝑟))
113	111, 112	oveqan12d 5894	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)))
114	110, 113	preq12d 3678	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))})
115	114	supeq1d 6986	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ))
116	115, 28	ovmpoga 6004	. . . . . . . 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 1238	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
118	117, 107	eqeltrd 2254	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) ∈ ℝ^*)
119		simpr2 1004	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑠 ∈ (𝑋 × 𝑌))
120	22	3adantr3 1158	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
121		xmetcl 13855	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
122	100, 102, 120, 121	syl3anc 1238	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
123		xrmaxcl 11260	. . . . . . . . 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 5894	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑠)))
126	111, 37	oveqan12d 5894	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)))
127	125, 126	preq12d 3678	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))})
128	127	supeq1d 6986	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
129	128, 28	ovmpoga 6004	. . . . . . . 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 1238	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
131	130, 124	eqeltrd 2254	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) ∈ ℝ^*)
132	118, 131	xaddcld 9884	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∈ ℝ^*)
133		xmettri2 13864	. . . . . 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 1240	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))))
135		xrmax1sup 11261	. . . . . . . 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 4032	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ (𝑡𝑃𝑟))
138		xrmax1sup 11261	. . . . . . . 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 4032	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ (𝑡𝑃𝑠))
141		xle2add 9879	. . . . . . 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 1239	. . . . . 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 9812	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
145	24	3adantr3 1158	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
146	105, 122	xaddcld 9884	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ∈ ℝ^*)
147		xmettri2 13864	. . . . . 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 1240	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))))
149		xrmax2sup 11262	. . . . . . . 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 4032	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ (𝑡𝑃𝑟))
152		xrmax2sup 11262	. . . . . . . 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 4032	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ (𝑡𝑃𝑠))
155		xle2add 9879	. . . . . . 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 1239	. . . . . 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 9812	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
159		xrmaxlesup 11267	. . . . 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 1238	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))))
161	144, 158, 160	mpbir2and 944	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
162	86, 161	eqbrtrd 4026	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
163	10, 44, 85, 162	isxmetd 13850	1 ⊢ (𝜑 → 𝑃 ∈ (∞Met‘(𝑋 × 𝑌)))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 978 = wceq 1353 ∈ wcel 2148 ∀wral 2455 Vcvv 2738 {cpr 3594 class class class wbr 4004 × cxp 4625 ⟶wf 5213 ‘cfv 5217 (class class class)co 5875 ∈ cmpo 5877 1^st c1st 6139 2^nd c2nd 6140 supcsup 6981 0cc0 7811 ℝ^*cxr 7991 < clt 7992 ≤ cle 7993 +_𝑒 cxad 9770 ∞Metcxmet 13443 MetOpencmopn 13448

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 614 ax-in2 615 ax-io 709 ax-5 1447 ax-7 1448 ax-gen 1449 ax-ie1 1493 ax-ie2 1494 ax-8 1504 ax-10 1505 ax-11 1506 ax-i12 1507 ax-bndl 1509 ax-4 1510 ax-17 1526 ax-i9 1530 ax-ial 1534 ax-i5r 1535 ax-13 2150 ax-14 2151 ax-ext 2159 ax-coll 4119 ax-sep 4122 ax-nul 4130 ax-pow 4175 ax-pr 4210 ax-un 4434 ax-setind 4537 ax-iinf 4588 ax-cnex 7902 ax-resscn 7903 ax-1cn 7904 ax-1re 7905 ax-icn 7906 ax-addcl 7907 ax-addrcl 7908 ax-mulcl 7909 ax-mulrcl 7910 ax-addcom 7911 ax-mulcom 7912 ax-addass 7913 ax-mulass 7914 ax-distr 7915 ax-i2m1 7916 ax-0lt1 7917 ax-1rid 7918 ax-0id 7919 ax-rnegex 7920 ax-precex 7921 ax-cnre 7922 ax-pre-ltirr 7923 ax-pre-ltwlin 7924 ax-pre-lttrn 7925 ax-pre-apti 7926 ax-pre-ltadd 7927 ax-pre-mulgt0 7928 ax-pre-mulext 7929 ax-arch 7930 ax-caucvg 7931

This theorem depends on definitions: df-bi 117 df-stab 831 df-dc 835 df-3or 979 df-3an 980 df-tru 1356 df-fal 1359 df-nf 1461 df-sb 1763 df-eu 2029 df-mo 2030 df-clab 2164 df-cleq 2170 df-clel 2173 df-nfc 2308 df-ne 2348 df-nel 2443 df-ral 2460 df-rex 2461 df-reu 2462 df-rmo 2463 df-rab 2464 df-v 2740 df-sbc 2964 df-csb 3059 df-dif 3132 df-un 3134 df-in 3136 df-ss 3143 df-nul 3424 df-if 3536 df-pw 3578 df-sn 3599 df-pr 3600 df-op 3602 df-uni 3811 df-int 3846 df-iun 3889 df-br 4005 df-opab 4066 df-mpt 4067 df-tr 4103 df-id 4294 df-po 4297 df-iso 4298 df-iord 4367 df-on 4369 df-ilim 4370 df-suc 4372 df-iom 4591 df-xp 4633 df-rel 4634 df-cnv 4635 df-co 4636 df-dm 4637 df-rn 4638 df-res 4639 df-ima 4640 df-iota 5179 df-fun 5219 df-fn 5220 df-f 5221 df-f1 5222 df-fo 5223 df-f1o 5224 df-fv 5225 df-isom 5226 df-riota 5831 df-ov 5878 df-oprab 5879 df-mpo 5880 df-1st 6141 df-2nd 6142 df-recs 6306 df-frec 6392 df-map 6650 df-sup 6983 df-inf 6984 df-pnf 7994 df-mnf 7995 df-xr 7996 df-ltxr 7997 df-le 7998 df-sub 8130 df-neg 8131 df-reap 8532 df-ap 8539 df-div 8630 df-inn 8920 df-2 8978 df-3 8979 df-4 8980 df-n0 9177 df-z 9254 df-uz 9529 df-q 9620 df-rp 9654 df-xneg 9772 df-xadd 9773 df-seqfrec 10446 df-exp 10520 df-cj 10851 df-re 10852 df-im 10853 df-rsqrt 11007 df-abs 11008 df-topgen 12709 df-psmet 13450 df-xmet 13451 df-bl 13453 df-mopn 13454 df-top 13501 df-topon 13514 df-bases 13546

This theorem is referenced by: xmetxpbl 14011 xmettxlem 14012 xmettx 14013 txmetcnp 14021

W3C validator