xmetxp - Intuitionistic Logic Explorer

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

Theorem xmetxp 12715

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 2140	. . . . 5 ⊢ (MetOpen‘𝑀) = (MetOpen‘𝑀)
3	2	mopnm 12656	. . . 4 ⊢ (𝑀 ∈ (∞Met‘𝑋) → 𝑋 ∈ (MetOpen‘𝑀))
4	1, 3	syl 14	. . 3 ⊢ (𝜑 → 𝑋 ∈ (MetOpen‘𝑀))
5		xmetxp.2	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (∞Met‘𝑌))
6		eqid 2140	. . . . 5 ⊢ (MetOpen‘𝑁) = (MetOpen‘𝑁)
7	6	mopnm 12656	. . . 4 ⊢ (𝑁 ∈ (∞Met‘𝑌) → 𝑌 ∈ (MetOpen‘𝑁))
8	5, 7	syl 14	. . 3 ⊢ (𝜑 → 𝑌 ∈ (MetOpen‘𝑁))
9		xpexg 4661	. . 3 ⊢ ((𝑋 ∈ (MetOpen‘𝑀) ∧ 𝑌 ∈ (MetOpen‘𝑁)) → (𝑋 × 𝑌) ∈ V)
10	4, 8, 9	syl2anc 409	. 2 ⊢ (𝜑 → (𝑋 × 𝑌) ∈ V)
11	1	adantr 274	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
12		xp1st 6071	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (1^st ‘𝑟) ∈ 𝑋)
13	12	ad2antrl 482	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
14		xp1st 6071	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (1^st ‘𝑠) ∈ 𝑋)
15	14	ad2antll 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
16		xmetcl 12560	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
17	11, 13, 15, 16	syl3anc 1217	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
18	5	adantr 274	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
19		xp2nd 6072	. . . . . . 7 ⊢ (𝑟 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑟) ∈ 𝑌)
20	19	ad2antrl 482	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
21		xp2nd 6072	. . . . . . 7 ⊢ (𝑠 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑠) ∈ 𝑌)
22	21	ad2antll 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
23		xmetcl 12560	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
24	18, 20, 22, 23	syl3anc 1217	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
25		xrmaxcl 11053	. . . . 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 2517	. . 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 5429	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (1^st ‘𝑢) = (1^st ‘𝑟))
30	29	oveq1d 5797	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑣)))
31		fveq2 5429	. . . . . . . . 9 ⊢ (𝑢 = 𝑟 → (2^nd ‘𝑢) = (2^nd ‘𝑟))
32	31	oveq1d 5797	. . . . . . . 8 ⊢ (𝑢 = 𝑟 → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)))
33	30, 32	preq12d 3616	. . . . . . 7 ⊢ (𝑢 = 𝑟 → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))})
34	33	supeq1d 6882	. . . . . 6 ⊢ (𝑢 = 𝑟 → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ))
35		fveq2 5429	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (1^st ‘𝑣) = (1^st ‘𝑠))
36	35	oveq2d 5798	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((1^st ‘𝑟)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
37		fveq2 5429	. . . . . . . . 9 ⊢ (𝑣 = 𝑠 → (2^nd ‘𝑣) = (2^nd ‘𝑠))
38	37	oveq2d 5798	. . . . . . . 8 ⊢ (𝑣 = 𝑠 → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
39	36, 38	preq12d 3616	. . . . . . 7 ⊢ (𝑣 = 𝑠 → {((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))})
40	39	supeq1d 6882	. . . . . 6 ⊢ (𝑣 = 𝑠 → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
41	34, 40	cbvmpov 5859	. . . . 5 ⊢ (𝑢 ∈ (𝑋 × 𝑌), 𝑣 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < )) = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
42	28, 41	eqtri 2161	. . . 4 ⊢ 𝑃 = (𝑟 ∈ (𝑋 × 𝑌), 𝑠 ∈ (𝑋 × 𝑌) ↦ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
43	42	fmpo 6107	. . 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 5913	. . . . . . . 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 1217	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
49	48, 26	eqeltrd 2217	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ∈ ℝ^*)
50		0xr 7836	. . . . . . 7 ⊢ 0 ∈ ℝ^*
51	50	a1i 9	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ∈ ℝ^*)
52		xrletri3 9618	. . . . . 6 ⊢ (((𝑟𝑃𝑠) ∈ ℝ^* ∧ 0 ∈ ℝ^*) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
53	49, 51, 52	syl2anc 409	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
54		xmetge0 12573	. . . . . . . . 9 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
55	11, 13, 15, 54	syl3anc 1217	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ ((1^st ‘𝑟)𝑀(1^st ‘𝑠)))
56		xrmax1sup 11054	. . . . . . . . 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 9625	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
59	58, 48	breqtrrd 3964	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → 0 ≤ (𝑟𝑃𝑠))
60	59	biantrud 302	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ ((𝑟𝑃𝑠) ≤ 0 ∧ 0 ≤ (𝑟𝑃𝑠))))
61	53, 60	bitr4d 190	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) = 0 ↔ (𝑟𝑃𝑠) ≤ 0))
62	48	breq1d 3947	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → ((𝑟𝑃𝑠) ≤ 0 ↔ sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ 0))
63		xrmaxlesup 11060	. . . . 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 1217	. . . 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 9618	. . . . . 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 12573	. . . . . . 7 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → 0 ≤ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)))
71	18, 20, 22, 70	syl3anc 1217	. . . . . 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 9618	. . . . . 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 12567	. . . . . 6 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑟) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
78	11, 13, 15, 77	syl3anc 1217	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) = 0 ↔ (1^st ‘𝑟) = (1^st ‘𝑠)))
79		xmeteq0 12567	. . . . . 6 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑟) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → (((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) = 0 ↔ (2^nd ‘𝑟) = (2^nd ‘𝑠)))
80	18, 20, 22, 79	syl3anc 1217	. . . . 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 6082	. . . . 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 1143	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) = sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
87	17	3adantr3 1143	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
88	1	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑀 ∈ (∞Met‘𝑋))
89		simpr3 990	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑡 ∈ (𝑋 × 𝑌))
90		xp1st 6071	. . . . . . . 8 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (1^st ‘𝑡) ∈ 𝑋)
91	89, 90	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑡) ∈ 𝑋)
92		simpr1 988	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑟 ∈ (𝑋 × 𝑌))
93	92, 12	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑟) ∈ 𝑋)
94		xmetcl 12560	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑟) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
95	88, 91, 93, 94	syl3anc 1217	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ∈ ℝ^*)
96	15	3adantr3 1143	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (1^st ‘𝑠) ∈ 𝑋)
97		xmetcl 12560	. . . . . . 7 ⊢ ((𝑀 ∈ (∞Met‘𝑋) ∧ (1^st ‘𝑡) ∈ 𝑋 ∧ (1^st ‘𝑠) ∈ 𝑋) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
98	88, 91, 96, 97	syl3anc 1217	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ∈ ℝ^*)
99	95, 98	xaddcld 9697	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))) ∈ ℝ^*)
100	5	adantr 274	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑁 ∈ (∞Met‘𝑌))
101		xp2nd 6072	. . . . . . . . . . 11 ⊢ (𝑡 ∈ (𝑋 × 𝑌) → (2^nd ‘𝑡) ∈ 𝑌)
102	89, 101	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑡) ∈ 𝑌)
103	92, 19	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑟) ∈ 𝑌)
104		xmetcl 12560	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑟) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
105	100, 102, 103, 104	syl3anc 1217	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ∈ ℝ^*)
106		xrmaxcl 11053	. . . . . . . . 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 5429	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (1^st ‘𝑢) = (1^st ‘𝑡))
109		fveq2 5429	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (1^st ‘𝑣) = (1^st ‘𝑟))
110	108, 109	oveqan12d 5801	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑟)))
111		fveq2 5429	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑡 → (2^nd ‘𝑢) = (2^nd ‘𝑡))
112		fveq2 5429	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑟 → (2^nd ‘𝑣) = (2^nd ‘𝑟))
113	111, 112	oveqan12d 5801	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)))
114	110, 113	preq12d 3616	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))})
115	114	supeq1d 6882	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑟) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^, < ))
116	115, 28	ovmpoga 5908	. . . . . . . 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 1217	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑟)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟))}, ℝ^*, < ))
118	117, 107	eqeltrd 2217	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑟) ∈ ℝ^*)
119		simpr2 989	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → 𝑠 ∈ (𝑋 × 𝑌))
120	22	3adantr3 1143	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (2^nd ‘𝑠) ∈ 𝑌)
121		xmetcl 12560	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑌) ∧ (2^nd ‘𝑡) ∈ 𝑌 ∧ (2^nd ‘𝑠) ∈ 𝑌) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
122	100, 102, 120, 121	syl3anc 1217	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
123		xrmaxcl 11053	. . . . . . . . 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 5801	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((1^st ‘𝑢)𝑀(1^st ‘𝑣)) = ((1^st ‘𝑡)𝑀(1^st ‘𝑠)))
126	111, 37	oveqan12d 5801	. . . . . . . . . . 11 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣)) = ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)))
127	125, 126	preq12d 3616	. . . . . . . . . 10 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → {((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))} = {((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))})
128	127	supeq1d 6882	. . . . . . . . 9 ⊢ ((𝑢 = 𝑡 ∧ 𝑣 = 𝑠) → sup({((1^st ‘𝑢)𝑀(1^st ‘𝑣)), ((2^nd ‘𝑢)𝑁(2^nd ‘𝑣))}, ℝ^, < ) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^, < ))
129	128, 28	ovmpoga 5908	. . . . . . . 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 1217	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) = sup({((1^st ‘𝑡)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))}, ℝ^*, < ))
131	130, 124	eqeltrd 2217	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑡𝑃𝑠) ∈ ℝ^*)
132	118, 131	xaddcld 9697	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∈ ℝ^*)
133		xmettri2 12569	. . . . . 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 1219	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ (((1^st ‘𝑡)𝑀(1^st ‘𝑟)) +_𝑒 ((1^st ‘𝑡)𝑀(1^st ‘𝑠))))
135		xrmax1sup 11054	. . . . . . . 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 3964	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑟)) ≤ (𝑡𝑃𝑟))
138		xrmax1sup 11054	. . . . . . . 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 3964	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑡)𝑀(1^st ‘𝑠)) ≤ (𝑡𝑃𝑠))
141		xle2add 9692	. . . . . . 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 1218	. . . . . 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 9625	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
145	24	3adantr3 1143	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ∈ ℝ^*)
146	105, 122	xaddcld 9697	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))) ∈ ℝ^*)
147		xmettri2 12569	. . . . . 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 1219	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ (((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) +_𝑒 ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠))))
149		xrmax2sup 11055	. . . . . . . 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 3964	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑟)) ≤ (𝑡𝑃𝑟))
152		xrmax2sup 11055	. . . . . . . 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 3964	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑡)𝑁(2^nd ‘𝑠)) ≤ (𝑡𝑃𝑠))
155		xle2add 9692	. . . . . . 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 1218	. . . . . 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 9625	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
159		xrmaxlesup 11060	. . . . 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 1217	. . . 4 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ↔ (((1^st ‘𝑟)𝑀(1^st ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)) ∧ ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠)) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))))
161	144, 158, 160	mpbir2and 929	. . 3 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → sup({((1^st ‘𝑟)𝑀(1^st ‘𝑠)), ((2^nd ‘𝑟)𝑁(2^nd ‘𝑠))}, ℝ^*, < ) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
162	86, 161	eqbrtrd 3958	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (𝑋 × 𝑌) ∧ 𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌))) → (𝑟𝑃𝑠) ≤ ((𝑡𝑃𝑟) +_𝑒 (𝑡𝑃𝑠)))
163	10, 44, 85, 162	isxmetd 12555	1 ⊢ (𝜑 → 𝑃 ∈ (∞Met‘(𝑋 × 𝑌)))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 ↔ wb 104 ∧ w3a 963 = wceq 1332 ∈ wcel 1481 ∀wral 2417 Vcvv 2689 {cpr 3533 class class class wbr 3937 × cxp 4545 ⟶wf 5127 ‘cfv 5131 (class class class)co 5782 ∈ cmpo 5784 1^st c1st 6044 2^nd c2nd 6045 supcsup 6877 0cc0 7644 ℝ^*cxr 7823 < clt 7824 ≤ cle 7825 +_𝑒 cxad 9587 ∞Metcxmet 12188 MetOpencmopn 12193

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 1424 ax-7 1425 ax-gen 1426 ax-ie1 1470 ax-ie2 1471 ax-8 1483 ax-10 1484 ax-11 1485 ax-i12 1486 ax-bndl 1487 ax-4 1488 ax-13 1492 ax-14 1493 ax-17 1507 ax-i9 1511 ax-ial 1515 ax-i5r 1516 ax-ext 2122 ax-coll 4051 ax-sep 4054 ax-nul 4062 ax-pow 4106 ax-pr 4139 ax-un 4363 ax-setind 4460 ax-iinf 4510 ax-cnex 7735 ax-resscn 7736 ax-1cn 7737 ax-1re 7738 ax-icn 7739 ax-addcl 7740 ax-addrcl 7741 ax-mulcl 7742 ax-mulrcl 7743 ax-addcom 7744 ax-mulcom 7745 ax-addass 7746 ax-mulass 7747 ax-distr 7748 ax-i2m1 7749 ax-0lt1 7750 ax-1rid 7751 ax-0id 7752 ax-rnegex 7753 ax-precex 7754 ax-cnre 7755 ax-pre-ltirr 7756 ax-pre-ltwlin 7757 ax-pre-lttrn 7758 ax-pre-apti 7759 ax-pre-ltadd 7760 ax-pre-mulgt0 7761 ax-pre-mulext 7762 ax-arch 7763 ax-caucvg 7764

This theorem depends on definitions: df-bi 116 df-stab 817 df-dc 821 df-3or 964 df-3an 965 df-tru 1335 df-fal 1338 df-nf 1438 df-sb 1737 df-eu 2003 df-mo 2004 df-clab 2127 df-cleq 2133 df-clel 2136 df-nfc 2271 df-ne 2310 df-nel 2405 df-ral 2422 df-rex 2423 df-reu 2424 df-rmo 2425 df-rab 2426 df-v 2691 df-sbc 2914 df-csb 3008 df-dif 3078 df-un 3080 df-in 3082 df-ss 3089 df-nul 3369 df-if 3480 df-pw 3517 df-sn 3538 df-pr 3539 df-op 3541 df-uni 3745 df-int 3780 df-iun 3823 df-br 3938 df-opab 3998 df-mpt 3999 df-tr 4035 df-id 4223 df-po 4226 df-iso 4227 df-iord 4296 df-on 4298 df-ilim 4299 df-suc 4301 df-iom 4513 df-xp 4553 df-rel 4554 df-cnv 4555 df-co 4556 df-dm 4557 df-rn 4558 df-res 4559 df-ima 4560 df-iota 5096 df-fun 5133 df-fn 5134 df-f 5135 df-f1 5136 df-fo 5137 df-f1o 5138 df-fv 5139 df-isom 5140 df-riota 5738 df-ov 5785 df-oprab 5786 df-mpo 5787 df-1st 6046 df-2nd 6047 df-recs 6210 df-frec 6296 df-map 6552 df-sup 6879 df-inf 6880 df-pnf 7826 df-mnf 7827 df-xr 7828 df-ltxr 7829 df-le 7830 df-sub 7959 df-neg 7960 df-reap 8361 df-ap 8368 df-div 8457 df-inn 8745 df-2 8803 df-3 8804 df-4 8805 df-n0 9002 df-z 9079 df-uz 9351 df-q 9439 df-rp 9471 df-xneg 9589 df-xadd 9590 df-seqfrec 10250 df-exp 10324 df-cj 10646 df-re 10647 df-im 10648 df-rsqrt 10802 df-abs 10803 df-topgen 12180 df-psmet 12195 df-xmet 12196 df-bl 12198 df-mopn 12199 df-top 12204 df-topon 12217 df-bases 12249

This theorem is referenced by: xmetxpbl 12716 xmettxlem 12717 xmettx 12718 txmetcnp 12726

W3C validator