suplesup - Mathbox for Glauco Siliprandi

	Mathbox for Glauco Siliprandi		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > suplesup		Structured version Visualization version GIF version

Theorem suplesup 44534

Description: If any element of 𝐴 can be approximated from below by members of 𝐵, then the supremum of 𝐴 is less than or equal to the supremum of 𝐵. (Contributed by Glauco Siliprandi, 17-Aug-2020.)

**Hypotheses**
Ref	Expression
suplesup.a	⊢ (𝜑 → 𝐴 ⊆ ℝ)
suplesup.b	⊢ (𝜑 → 𝐵 ⊆ ℝ^*)
suplesup.c	⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)

**Assertion**
Ref	Expression
suplesup	⊢ (𝜑 → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^, < ))

Distinct variable groups: 𝑥,𝐴,𝑧 𝑥,𝐵,𝑦,𝑧 𝜑,𝑥,𝑧 Allowed substitution hints: 𝜑(𝑦) 𝐴(𝑦)

Proof of Theorem suplesup Dummy variables 𝑟 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		suplesup.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ⊆ ℝ)
2		ressxr 11255	. . . . . 6 ⊢ ℝ ⊆ ℝ^*
3	1, 2	sstrdi 3986	. . . . 5 ⊢ (𝜑 → 𝐴 ⊆ ℝ^*)
4		supxrcl 13291	. . . . 5 ⊢ (𝐴 ⊆ ℝ^* → sup(𝐴, ℝ^, < ) ∈ ℝ^)
5	3, 4	syl 17	. . . 4 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) ∈ ℝ^)
6	5	adantr 480	. . 3 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ∈ ℝ^*)
7		eqidd 2725	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → +∞ = +∞)
8		simpr 484	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) = +∞)
9		peano2re 11384	. . . . . . . . . 10 ⊢ (𝑤 ∈ ℝ → (𝑤 + 1) ∈ ℝ)
10	9	adantl 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑤 + 1) ∈ ℝ)
11	3	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → 𝐴 ⊆ ℝ^)
12		supxrunb2 13296	. . . . . . . . . . . 12 ⊢ (𝐴 ⊆ ℝ^* → (∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ^*, < ) = +∞))
13	11, 12	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → (∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ^, < ) = +∞))
14	8, 13	mpbird 257	. . . . . . . . . 10 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥)
15	14	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥)
16		breq1 5141	. . . . . . . . . . 11 ⊢ (𝑟 = (𝑤 + 1) → (𝑟 < 𝑥 ↔ (𝑤 + 1) < 𝑥))
17	16	rexbidv 3170	. . . . . . . . . 10 ⊢ (𝑟 = (𝑤 + 1) → (∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥))
18	17	rspcva 3602	. . . . . . . . 9 ⊢ (((𝑤 + 1) ∈ ℝ ∧ ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥) → ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥)
19	10, 15, 18	syl2anc 583	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥)
20		1rp 12975	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℝ⁺
21	20	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 1 ∈ ℝ⁺)
22		suplesup.c	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
23	22	r19.21bi 3240	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
24		oveq2 7409	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 1 → (𝑥 − 𝑦) = (𝑥 − 1))
25	24	breq1d 5148	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 1 → ((𝑥 − 𝑦) < 𝑧 ↔ (𝑥 − 1) < 𝑧))
26	25	rexbidv 3170	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 1 → (∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧 ↔ ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧))
27	26	rspcva 3602	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℝ⁺ ∧ ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
28	21, 23, 27	syl2anc 583	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
29	28	adantlr 712	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
30	29	3adant3 1129	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
31		nfv 1909	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑧((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥)
32		simp11r 1282	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ)
33	2, 32	sselid 3972	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ^*)
34	1	sselda 3974	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
35		1red 11212	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 1 ∈ ℝ)
36	34, 35	resubcld 11639	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑥 − 1) ∈ ℝ)
37	36	adantlr 712	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → (𝑥 − 1) ∈ ℝ)
38	37	3adant3 1129	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑥 − 1) ∈ ℝ)
39	38	3ad2ant1 1130	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ)
40	2, 39	sselid 3972	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ^*)
41		suplesup.b	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐵 ⊆ ℝ^*)
42	41	sselda 3974	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ ℝ^*)
43	42	adantlr 712	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ ℝ^*)
44	43	3ad2antl1 1182	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ ℝ^*)
45	44	3adant3 1129	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑧 ∈ ℝ^*)
46		simp3 1135	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑤 + 1) < 𝑥)
47		simp1r 1195	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑤 ∈ ℝ)
48		1red 11212	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 1 ∈ ℝ)
49	34	adantlr 712	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
50	49	3adant3 1129	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑥 ∈ ℝ)
51	47, 48, 50	ltaddsubd 11811	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ((𝑤 + 1) < 𝑥 ↔ 𝑤 < (𝑥 − 1)))
52	46, 51	mpbid 231	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑤 < (𝑥 − 1))
53	52	3ad2ant1 1130	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 < (𝑥 − 1))
54		simp3 1135	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) < 𝑧)
55	33, 40, 45, 53, 54	xrlttrd 13135	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 < 𝑧)
56	55	3exp 1116	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑧 ∈ 𝐵 → ((𝑥 − 1) < 𝑧 → 𝑤 < 𝑧)))
57	31, 56	reximdai 3250	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧))
58	30, 57	mpd 15	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)
59	58	3exp 1116	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ) → (𝑥 ∈ 𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)))
60	59	adantlr 712	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑥 ∈ 𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)))
61	60	rexlimdv 3145	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧))
62	19, 61	mpd 15	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)
63	2	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℝ ⊆ ℝ^*)
64	63	sselda 3974	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ) → 𝑤 ∈ ℝ^*)
65	64	ad2antrr 723	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 ∈ ℝ^*)
66	43	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑧 ∈ ℝ^*)
67		simpr 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 < 𝑧)
68	65, 66, 67	xrltled 13126	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 ≤ 𝑧)
69	68	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → (𝑤 < 𝑧 → 𝑤 ≤ 𝑧))
70	69	adantllr 716	. . . . . . . 8 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → (𝑤 < 𝑧 → 𝑤 ≤ 𝑧))
71	70	reximdva 3160	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑧 ∈ 𝐵 𝑤 < 𝑧 → ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧))
72	62, 71	mpd 15	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧)
73	72	ralrimiva 3138	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → ∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧)
74		supxrunb1 13295	. . . . . . 7 ⊢ (𝐵 ⊆ ℝ^* → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^*, < ) = +∞))
75	41, 74	syl 17	. . . . . 6 ⊢ (𝜑 → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^*, < ) = +∞))
76	75	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^, < ) = +∞))
77	73, 76	mpbid 231	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐵, ℝ^, < ) = +∞)
78	7, 8, 77	3eqtr4d 2774	. . 3 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) = sup(𝐵, ℝ^*, < ))
79	6, 78	xreqled 44525	. 2 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
80		supeq1 9436	. . . . . . 7 ⊢ (𝐴 = ∅ → sup(𝐴, ℝ^, < ) = sup(∅, ℝ^, < ))
81		xrsup0 13299	. . . . . . . 8 ⊢ sup(∅, ℝ^*, < ) = -∞
82	81	a1i 11	. . . . . . 7 ⊢ (𝐴 = ∅ → sup(∅, ℝ^*, < ) = -∞)
83	80, 82	eqtrd 2764	. . . . . 6 ⊢ (𝐴 = ∅ → sup(𝐴, ℝ^*, < ) = -∞)
84	83	adantl 481	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 = ∅) → sup(𝐴, ℝ^*, < ) = -∞)
85		supxrcl 13291	. . . . . . . 8 ⊢ (𝐵 ⊆ ℝ^* → sup(𝐵, ℝ^, < ) ∈ ℝ^)
86	41, 85	syl 17	. . . . . . 7 ⊢ (𝜑 → sup(𝐵, ℝ^, < ) ∈ ℝ^)
87		mnfle 13111	. . . . . . 7 ⊢ (sup(𝐵, ℝ^, < ) ∈ ℝ^ → -∞ ≤ sup(𝐵, ℝ^*, < ))
88	86, 87	syl 17	. . . . . 6 ⊢ (𝜑 → -∞ ≤ sup(𝐵, ℝ^*, < ))
89	88	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 = ∅) → -∞ ≤ sup(𝐵, ℝ^*, < ))
90	84, 89	eqbrtrd 5160	. . . 4 ⊢ ((𝜑 ∧ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^, < ))
91	90	adantlr 712	. . 3 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
92		simpll 764	. . . 4 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → 𝜑)
93	1	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ⊆ ℝ)
94		neqne 2940	. . . . . . . . 9 ⊢ (¬ 𝐴 = ∅ → 𝐴 ≠ ∅)
95	94	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ≠ ∅)
96		supxrgtmnf 13305	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ ∧ 𝐴 ≠ ∅) → -∞ < sup(𝐴, ℝ^*, < ))
97	93, 95, 96	syl2anc 583	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ^*, < ))
98	97	adantlr 712	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ^, < ))
99		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → ¬ sup(𝐴, ℝ^, < ) = +∞)
100		simpl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^*, < ) = +∞) → 𝜑)
101		nltpnft 13140	. . . . . . . . . 10 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ^ → (sup(𝐴, ℝ^, < ) = +∞ ↔ ¬ sup(𝐴, ℝ^, < ) < +∞))
102	100, 5, 101	3syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → (sup(𝐴, ℝ^, < ) = +∞ ↔ ¬ sup(𝐴, ℝ^*, < ) < +∞))
103	99, 102	mtbid 324	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → ¬ ¬ sup(𝐴, ℝ^, < ) < +∞)
104		notnotr 130	. . . . . . . 8 ⊢ (¬ ¬ sup(𝐴, ℝ^, < ) < +∞ → sup(𝐴, ℝ^, < ) < +∞)
105	103, 104	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) < +∞)
106	105	adantr 480	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) < +∞)
107	98, 106	jca 511	. . . . 5 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^*, < ) < +∞))
108	92, 5	syl 17	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ∈ ℝ^*)
109		xrrebnd 13144	. . . . . 6 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ^ → (sup(𝐴, ℝ^, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^*, < ) < +∞)))
110	108, 109	syl 17	. . . . 5 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (sup(𝐴, ℝ^, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^, < ) < +∞)))
111	107, 110	mpbird 257	. . . 4 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ∈ ℝ)
112		nfv 1909	. . . . 5 ⊢ Ⅎ𝑤(𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ)
113	41	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → 𝐵 ⊆ ℝ^)
114		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → sup(𝐴, ℝ^, < ) ∈ ℝ)
115	114	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → sup(𝐴, ℝ^, < ) ∈ ℝ)
116		simpr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℝ⁺)
117	116	rphalfcld 13025	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℝ⁺)
118	115, 117	ltsubrpd 13045	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^*, < ))
119	3	ad2antrr 723	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → 𝐴 ⊆ ℝ^)
120		rpre 12979	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℝ)
121		2re 12283	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
122	121	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 2 ∈ ℝ)
123		2ne0 12313	. . . . . . . . . . . . 13 ⊢ 2 ≠ 0
124	123	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 2 ≠ 0)
125	120, 122, 124	redivcld 12039	. . . . . . . . . . 11 ⊢ (𝑤 ∈ ℝ⁺ → (𝑤 / 2) ∈ ℝ)
126	125	adantl 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℝ)
127	115, 126	resubcld 11639	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ)
128	2, 127	sselid 3972	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ^*)
129		supxrlub 13301	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ^* ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ^) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^, < ) ↔ ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) < 𝑥))
130	119, 128, 129	syl2anc 583	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^, < ) ↔ ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥))
131	118, 130	mpbid 231	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥)
132		rphalfcl 12998	. . . . . . . . . . 11 ⊢ (𝑤 ∈ ℝ⁺ → (𝑤 / 2) ∈ ℝ⁺)
133	132	3ad2ant2 1131	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → (𝑤 / 2) ∈ ℝ⁺)
134	23	3adant2 1128	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
135		oveq2 7409	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑤 / 2) → (𝑥 − 𝑦) = (𝑥 − (𝑤 / 2)))
136	135	breq1d 5148	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑤 / 2) → ((𝑥 − 𝑦) < 𝑧 ↔ (𝑥 − (𝑤 / 2)) < 𝑧))
137	136	rexbidv 3170	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑤 / 2) → (∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧 ↔ ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧))
138	137	rspcva 3602	. . . . . . . . . 10 ⊢ (((𝑤 / 2) ∈ ℝ⁺ ∧ ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
139	133, 134, 138	syl2anc 583	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
140	139	ad5ant134 1364	. . . . . . . 8 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
141		recn 11196	. . . . . . . . . . . . . . . . 17 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ → sup(𝐴, ℝ^, < ) ∈ ℂ)
142	141	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → sup(𝐴, ℝ^, < ) ∈ ℂ)
143	120	recnd 11239	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℂ)
144	143	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((sup(𝐴, ℝ^*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℂ)
145	144	halfcld 12454	. . . . . . . . . . . . . . . 16 ⊢ ((sup(𝐴, ℝ^*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℂ)
146	142, 145, 145	subsub4d 11599	. . . . . . . . . . . . . . 15 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) = (sup(𝐴, ℝ^*, < ) − ((𝑤 / 2) + (𝑤 / 2))))
147	143	2halvesd 12455	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ ℝ⁺ → ((𝑤 / 2) + (𝑤 / 2)) = 𝑤)
148	147	oveq2d 7417	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ ℝ⁺ → (sup(𝐴, ℝ^, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ^, < ) − 𝑤))
149	148	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ^*, < ) − 𝑤))
150	146, 149	eqtr2d 2765	. . . . . . . . . . . . . 14 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
151	150	adantll 711	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
152	151	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
153	152	ad3antrrr 727	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)))
154	127, 126	resubcld 11639	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
155	154	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
156	155	ad3antrrr 727	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
157	2, 156	sselid 3972	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ^)
158	120, 49	sylanl2 678	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
159	125	ad2antlr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑤 / 2) ∈ ℝ)
160	158, 159	resubcld 11639	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
161	160	adantllr 716	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
162	161	ad3antrrr 727	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
163	2, 162	sselid 3972	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ^*)
164		simp-6l 784	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝜑)
165		simplr 766	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧 ∈ 𝐵)
166	164, 165, 42	syl2anc 583	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧 ∈ ℝ^*)
167		simp-6r 785	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → sup(𝐴, ℝ^*, < ) ∈ ℝ)
168	120	ad5antlr 732	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑤 ∈ ℝ)
169	168	rehalfcld 12456	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑤 / 2) ∈ ℝ)
170	167, 169	resubcld 11639	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) ∈ ℝ)
171		simp-4r 781	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥 ∈ 𝐴)
172	164, 171, 34	syl2anc 583	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥 ∈ ℝ)
173		simpllr 773	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) < 𝑥)
174	170, 172, 169, 173	ltsub1dd 11823	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < (𝑥 − (𝑤 / 2)))
175		simpr 484	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) < 𝑧)
176	157, 163, 166, 174, 175	xrlttrd 13135	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < 𝑧)
177	153, 176	eqbrtrd 5160	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧)
178	177	ex 412	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) → ((𝑥 − (𝑤 / 2)) < 𝑧 → (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
179	178	reximdva 3160	. . . . . . . 8 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → (∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧 → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
180	140, 179	mpd 15	. . . . . . 7 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧)
181	180	rexlimdva2 3149	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥 → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
182	131, 181	mpd 15	. . . . 5 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^, < ) − 𝑤) < 𝑧)
183	112, 113, 114, 182	supxrgere 44528	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
184	92, 111, 183	syl2anc 583	. . 3 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
185	91, 184	pm2.61dan 810	. 2 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
186	79, 185	pm2.61dan 810	1 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^, < ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 ∧ w3a 1084 = wceq 1533 ∈ wcel 2098 ≠ wne 2932 ∀wral 3053 ∃wrex 3062 ⊆ wss 3940 ∅c0 4314 class class class wbr 5138 (class class class)co 7401 supcsup 9431 ℂcc 11104 ℝcr 11105 0cc0 11106 1c1 11107 + caddc 11109 +∞cpnf 11242 -∞cmnf 11243 ℝ^*cxr 11244 < clt 11245 ≤ cle 11246 − cmin 11441 / cdiv 11868 2c2 12264 ℝ⁺crp 12971

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2163 ax-ext 2695 ax-sep 5289 ax-nul 5296 ax-pow 5353 ax-pr 5417 ax-un 7718 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183 ax-pre-sup 11184

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2526 df-eu 2555 df-clab 2702 df-cleq 2716 df-clel 2802 df-nfc 2877 df-ne 2933 df-nel 3039 df-ral 3054 df-rex 3063 df-rmo 3368 df-reu 3369 df-rab 3425 df-v 3468 df-sbc 3770 df-csb 3886 df-dif 3943 df-un 3945 df-in 3947 df-ss 3957 df-nul 4315 df-if 4521 df-pw 4596 df-sn 4621 df-pr 4623 df-op 4627 df-uni 4900 df-br 5139 df-opab 5201 df-mpt 5222 df-id 5564 df-po 5578 df-so 5579 df-xp 5672 df-rel 5673 df-cnv 5674 df-co 5675 df-dm 5676 df-rn 5677 df-res 5678 df-ima 5679 df-iota 6485 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-riota 7357 df-ov 7404 df-oprab 7405 df-mpo 7406 df-er 8699 df-en 8936 df-dom 8937 df-sdom 8938 df-sup 9433 df-pnf 11247 df-mnf 11248 df-xr 11249 df-ltxr 11250 df-le 11251 df-sub 11443 df-neg 11444 df-div 11869 df-2 12272 df-rp 12972

This theorem is referenced by: (None)

W3C validator