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 41971

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 10674	. . . . . 6 ⊢ ℝ ⊆ ℝ^*
3	1, 2	sstrdi 3927	. . . . 5 ⊢ (𝜑 → 𝐴 ⊆ ℝ^*)
4		supxrcl 12696	. . . . 5 ⊢ (𝐴 ⊆ ℝ^* → sup(𝐴, ℝ^, < ) ∈ ℝ^)
5	3, 4	syl 17	. . . 4 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) ∈ ℝ^)
6	5	adantr 484	. . 3 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ∈ ℝ^*)
7		eqidd 2799	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → +∞ = +∞)
8		simpr 488	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) = +∞)
9		peano2re 10802	. . . . . . . . . 10 ⊢ (𝑤 ∈ ℝ → (𝑤 + 1) ∈ ℝ)
10	9	adantl 485	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑤 + 1) ∈ ℝ)
11	3	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → 𝐴 ⊆ ℝ^)
12		supxrunb2 12701	. . . . . . . . . . . 12 ⊢ (𝐴 ⊆ ℝ^* → (∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ^*, < ) = +∞))
13	11, 12	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → (∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ^, < ) = +∞))
14	8, 13	mpbird 260	. . . . . . . . . 10 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥)
15	14	adantr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥)
16		breq1 5033	. . . . . . . . . . 11 ⊢ (𝑟 = (𝑤 + 1) → (𝑟 < 𝑥 ↔ (𝑤 + 1) < 𝑥))
17	16	rexbidv 3256	. . . . . . . . . 10 ⊢ (𝑟 = (𝑤 + 1) → (∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥))
18	17	rspcva 3569	. . . . . . . . 9 ⊢ (((𝑤 + 1) ∈ ℝ ∧ ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥) → ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥)
19	10, 15, 18	syl2anc 587	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥)
20		1rp 12381	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℝ⁺
21	20	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 1 ∈ ℝ⁺)
22		suplesup.c	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
23	22	r19.21bi 3173	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
24		oveq2 7143	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 1 → (𝑥 − 𝑦) = (𝑥 − 1))
25	24	breq1d 5040	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 1 → ((𝑥 − 𝑦) < 𝑧 ↔ (𝑥 − 1) < 𝑧))
26	25	rexbidv 3256	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 1 → (∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧 ↔ ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧))
27	26	rspcva 3569	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℝ⁺ ∧ ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
28	21, 23, 27	syl2anc 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
29	28	adantlr 714	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
30	29	3adant3 1129	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
31		nfv 1915	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑧((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥)
32		simp11r 1282	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ)
33	2, 32	sseldi 3913	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ^*)
34	1	sselda 3915	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
35		1red 10631	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 1 ∈ ℝ)
36	34, 35	resubcld 11057	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑥 − 1) ∈ ℝ)
37	36	adantlr 714	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → (𝑥 − 1) ∈ ℝ)
38	37	3adant3 1129	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑥 − 1) ∈ ℝ)
39	38	3ad2ant1 1130	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ)
40	2, 39	sseldi 3913	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ^*)
41		suplesup.b	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐵 ⊆ ℝ^*)
42	41	sselda 3915	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ ℝ^*)
43	42	adantlr 714	. . . . . . . . . . . . . . . . 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 10631	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 1 ∈ ℝ)
49	34	adantlr 714	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
50	49	3adant3 1129	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑥 ∈ ℝ)
51	47, 48, 50	ltaddsubd 11229	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ((𝑤 + 1) < 𝑥 ↔ 𝑤 < (𝑥 − 1)))
52	46, 51	mpbid 235	. . . . . . . . . . . . . . . 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 12540	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 < 𝑧)
56	55	3exp 1116	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑧 ∈ 𝐵 → ((𝑥 − 1) < 𝑧 → 𝑤 < 𝑧)))
57	31, 56	reximdai 3270	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧))
58	30, 57	mpd 15	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)
59	58	3exp 1116	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ) → (𝑥 ∈ 𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)))
60	59	adantlr 714	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑥 ∈ 𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)))
61	60	rexlimdv 3242	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧))
62	19, 61	mpd 15	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)
63	2	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℝ ⊆ ℝ^*)
64	63	sselda 3915	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ) → 𝑤 ∈ ℝ^*)
65	64	ad2antrr 725	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 ∈ ℝ^*)
66	43	adantr 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑧 ∈ ℝ^*)
67		simpr 488	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 < 𝑧)
68	65, 66, 67	xrltled 12531	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 ≤ 𝑧)
69	68	ex 416	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → (𝑤 < 𝑧 → 𝑤 ≤ 𝑧))
70	69	adantllr 718	. . . . . . . 8 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → (𝑤 < 𝑧 → 𝑤 ≤ 𝑧))
71	70	reximdva 3233	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑧 ∈ 𝐵 𝑤 < 𝑧 → ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧))
72	62, 71	mpd 15	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧)
73	72	ralrimiva 3149	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → ∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧)
74		supxrunb1 12700	. . . . . . 7 ⊢ (𝐵 ⊆ ℝ^* → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^*, < ) = +∞))
75	41, 74	syl 17	. . . . . 6 ⊢ (𝜑 → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^*, < ) = +∞))
76	75	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^, < ) = +∞))
77	73, 76	mpbid 235	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐵, ℝ^, < ) = +∞)
78	7, 8, 77	3eqtr4d 2843	. . 3 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) = sup(𝐵, ℝ^*, < ))
79	6, 78	xreqled 41962	. 2 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
80		supeq1 8893	. . . . . . 7 ⊢ (𝐴 = ∅ → sup(𝐴, ℝ^, < ) = sup(∅, ℝ^, < ))
81		xrsup0 12704	. . . . . . . 8 ⊢ sup(∅, ℝ^*, < ) = -∞
82	81	a1i 11	. . . . . . 7 ⊢ (𝐴 = ∅ → sup(∅, ℝ^*, < ) = -∞)
83	80, 82	eqtrd 2833	. . . . . 6 ⊢ (𝐴 = ∅ → sup(𝐴, ℝ^*, < ) = -∞)
84	83	adantl 485	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 = ∅) → sup(𝐴, ℝ^*, < ) = -∞)
85		supxrcl 12696	. . . . . . . 8 ⊢ (𝐵 ⊆ ℝ^* → sup(𝐵, ℝ^, < ) ∈ ℝ^)
86	41, 85	syl 17	. . . . . . 7 ⊢ (𝜑 → sup(𝐵, ℝ^, < ) ∈ ℝ^)
87		mnfle 12517	. . . . . . 7 ⊢ (sup(𝐵, ℝ^, < ) ∈ ℝ^ → -∞ ≤ sup(𝐵, ℝ^*, < ))
88	86, 87	syl 17	. . . . . 6 ⊢ (𝜑 → -∞ ≤ sup(𝐵, ℝ^*, < ))
89	88	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 = ∅) → -∞ ≤ sup(𝐵, ℝ^*, < ))
90	84, 89	eqbrtrd 5052	. . . 4 ⊢ ((𝜑 ∧ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^, < ))
91	90	adantlr 714	. . 3 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
92		simpll 766	. . . 4 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → 𝜑)
93	1	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ⊆ ℝ)
94		neqne 2995	. . . . . . . . 9 ⊢ (¬ 𝐴 = ∅ → 𝐴 ≠ ∅)
95	94	adantl 485	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ≠ ∅)
96		supxrgtmnf 12710	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ ∧ 𝐴 ≠ ∅) → -∞ < sup(𝐴, ℝ^*, < ))
97	93, 95, 96	syl2anc 587	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ^*, < ))
98	97	adantlr 714	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ^, < ))
99		simpr 488	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → ¬ sup(𝐴, ℝ^, < ) = +∞)
100		simpl 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^*, < ) = +∞) → 𝜑)
101		nltpnft 12545	. . . . . . . . . 10 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ^ → (sup(𝐴, ℝ^, < ) = +∞ ↔ ¬ sup(𝐴, ℝ^, < ) < +∞))
102	100, 5, 101	3syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → (sup(𝐴, ℝ^, < ) = +∞ ↔ ¬ sup(𝐴, ℝ^*, < ) < +∞))
103	99, 102	mtbid 327	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → ¬ ¬ sup(𝐴, ℝ^, < ) < +∞)
104		notnotr 132	. . . . . . . 8 ⊢ (¬ ¬ sup(𝐴, ℝ^, < ) < +∞ → sup(𝐴, ℝ^, < ) < +∞)
105	103, 104	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) < +∞)
106	105	adantr 484	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) < +∞)
107	98, 106	jca 515	. . . . 5 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^*, < ) < +∞))
108	92, 5	syl 17	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ∈ ℝ^*)
109		xrrebnd 12549	. . . . . 6 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ^ → (sup(𝐴, ℝ^, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^*, < ) < +∞)))
110	108, 109	syl 17	. . . . 5 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (sup(𝐴, ℝ^, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^, < ) < +∞)))
111	107, 110	mpbird 260	. . . 4 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ∈ ℝ)
112		nfv 1915	. . . . 5 ⊢ Ⅎ𝑤(𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ)
113	41	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → 𝐵 ⊆ ℝ^)
114		simpr 488	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → sup(𝐴, ℝ^, < ) ∈ ℝ)
115	114	adantr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → sup(𝐴, ℝ^, < ) ∈ ℝ)
116		simpr 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℝ⁺)
117	116	rphalfcld 12431	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℝ⁺)
118	115, 117	ltsubrpd 12451	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^*, < ))
119	3	ad2antrr 725	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → 𝐴 ⊆ ℝ^)
120		rpre 12385	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℝ)
121		2re 11699	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
122	121	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 2 ∈ ℝ)
123		2ne0 11729	. . . . . . . . . . . . 13 ⊢ 2 ≠ 0
124	123	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 2 ≠ 0)
125	120, 122, 124	redivcld 11457	. . . . . . . . . . 11 ⊢ (𝑤 ∈ ℝ⁺ → (𝑤 / 2) ∈ ℝ)
126	125	adantl 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℝ)
127	115, 126	resubcld 11057	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ)
128	2, 127	sseldi 3913	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ^*)
129		supxrlub 12706	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ^* ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ^) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^, < ) ↔ ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) < 𝑥))
130	119, 128, 129	syl2anc 587	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^, < ) ↔ ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥))
131	118, 130	mpbid 235	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥)
132		rphalfcl 12404	. . . . . . . . . . 11 ⊢ (𝑤 ∈ ℝ⁺ → (𝑤 / 2) ∈ ℝ⁺)
133	132	3ad2ant2 1131	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → (𝑤 / 2) ∈ ℝ⁺)
134	23	3adant2 1128	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
135		oveq2 7143	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑤 / 2) → (𝑥 − 𝑦) = (𝑥 − (𝑤 / 2)))
136	135	breq1d 5040	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑤 / 2) → ((𝑥 − 𝑦) < 𝑧 ↔ (𝑥 − (𝑤 / 2)) < 𝑧))
137	136	rexbidv 3256	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑤 / 2) → (∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧 ↔ ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧))
138	137	rspcva 3569	. . . . . . . . . 10 ⊢ (((𝑤 / 2) ∈ ℝ⁺ ∧ ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
139	133, 134, 138	syl2anc 587	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
140	139	ad5ant134 1364	. . . . . . . 8 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
141		recn 10616	. . . . . . . . . . . . . . . . 17 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ → sup(𝐴, ℝ^, < ) ∈ ℂ)
142	141	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → sup(𝐴, ℝ^, < ) ∈ ℂ)
143	120	recnd 10658	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℂ)
144	143	adantl 485	. . . . . . . . . . . . . . . . 17 ⊢ ((sup(𝐴, ℝ^*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℂ)
145	144	halfcld 11870	. . . . . . . . . . . . . . . 16 ⊢ ((sup(𝐴, ℝ^*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℂ)
146	142, 145, 145	subsub4d 11017	. . . . . . . . . . . . . . 15 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) = (sup(𝐴, ℝ^*, < ) − ((𝑤 / 2) + (𝑤 / 2))))
147	143	2halvesd 11871	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ ℝ⁺ → ((𝑤 / 2) + (𝑤 / 2)) = 𝑤)
148	147	oveq2d 7151	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ ℝ⁺ → (sup(𝐴, ℝ^, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ^, < ) − 𝑤))
149	148	adantl 485	. . . . . . . . . . . . . . 15 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ^*, < ) − 𝑤))
150	146, 149	eqtr2d 2834	. . . . . . . . . . . . . 14 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
151	150	adantll 713	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
152	151	adantr 484	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
153	152	ad3antrrr 729	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)))
154	127, 126	resubcld 11057	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
155	154	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
156	155	ad3antrrr 729	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
157	2, 156	sseldi 3913	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ^)
158	120, 49	sylanl2 680	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
159	125	ad2antlr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑤 / 2) ∈ ℝ)
160	158, 159	resubcld 11057	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
161	160	adantllr 718	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
162	161	ad3antrrr 729	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
163	2, 162	sseldi 3913	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ^*)
164		simp-6l 786	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝜑)
165		simplr 768	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧 ∈ 𝐵)
166	164, 165, 42	syl2anc 587	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧 ∈ ℝ^*)
167		simp-6r 787	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → sup(𝐴, ℝ^*, < ) ∈ ℝ)
168	120	ad5antlr 734	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑤 ∈ ℝ)
169	168	rehalfcld 11872	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑤 / 2) ∈ ℝ)
170	167, 169	resubcld 11057	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) ∈ ℝ)
171		simp-4r 783	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥 ∈ 𝐴)
172	164, 171, 34	syl2anc 587	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥 ∈ ℝ)
173		simpllr 775	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) < 𝑥)
174	170, 172, 169, 173	ltsub1dd 11241	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < (𝑥 − (𝑤 / 2)))
175		simpr 488	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) < 𝑧)
176	157, 163, 166, 174, 175	xrlttrd 12540	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < 𝑧)
177	153, 176	eqbrtrd 5052	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧)
178	177	ex 416	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) → ((𝑥 − (𝑤 / 2)) < 𝑧 → (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
179	178	reximdva 3233	. . . . . . . 8 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → (∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧 → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
180	140, 179	mpd 15	. . . . . . 7 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧)
181	180	rexlimdva2 3246	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥 → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
182	131, 181	mpd 15	. . . . 5 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^, < ) − 𝑤) < 𝑧)
183	112, 113, 114, 182	supxrgere 41965	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
184	92, 111, 183	syl2anc 587	. . 3 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
185	91, 184	pm2.61dan 812	. 2 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
186	79, 185	pm2.61dan 812	1 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^, < ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 399 ∧ w3a 1084 = wceq 1538 ∈ wcel 2111 ≠ wne 2987 ∀wral 3106 ∃wrex 3107 ⊆ wss 3881 ∅c0 4243 class class class wbr 5030 (class class class)co 7135 supcsup 8888 ℂcc 10524 ℝcr 10525 0cc0 10526 1c1 10527 + caddc 10529 +∞cpnf 10661 -∞cmnf 10662 ℝ^*cxr 10663 < clt 10664 ≤ cle 10665 − cmin 10859 / cdiv 11286 2c2 11680 ℝ⁺crp 12377

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2113 ax-9 2121 ax-10 2142 ax-11 2158 ax-12 2175 ax-ext 2770 ax-sep 5167 ax-nul 5174 ax-pow 5231 ax-pr 5295 ax-un 7441 ax-cnex 10582 ax-resscn 10583 ax-1cn 10584 ax-icn 10585 ax-addcl 10586 ax-addrcl 10587 ax-mulcl 10588 ax-mulrcl 10589 ax-mulcom 10590 ax-addass 10591 ax-mulass 10592 ax-distr 10593 ax-i2m1 10594 ax-1ne0 10595 ax-1rid 10596 ax-rnegex 10597 ax-rrecex 10598 ax-cnre 10599 ax-pre-lttri 10600 ax-pre-lttrn 10601 ax-pre-ltadd 10602 ax-pre-mulgt0 10603 ax-pre-sup 10604

This theorem depends on definitions: df-bi 210 df-an 400 df-or 845 df-3or 1085 df-3an 1086 df-tru 1541 df-ex 1782 df-nf 1786 df-sb 2070 df-mo 2598 df-eu 2629 df-clab 2777 df-cleq 2791 df-clel 2870 df-nfc 2938 df-ne 2988 df-nel 3092 df-ral 3111 df-rex 3112 df-reu 3113 df-rmo 3114 df-rab 3115 df-v 3443 df-sbc 3721 df-csb 3829 df-dif 3884 df-un 3886 df-in 3888 df-ss 3898 df-nul 4244 df-if 4426 df-pw 4499 df-sn 4526 df-pr 4528 df-op 4532 df-uni 4801 df-br 5031 df-opab 5093 df-mpt 5111 df-id 5425 df-po 5438 df-so 5439 df-xp 5525 df-rel 5526 df-cnv 5527 df-co 5528 df-dm 5529 df-rn 5530 df-res 5531 df-ima 5532 df-iota 6283 df-fun 6326 df-fn 6327 df-f 6328 df-f1 6329 df-fo 6330 df-f1o 6331 df-fv 6332 df-riota 7093 df-ov 7138 df-oprab 7139 df-mpo 7140 df-er 8272 df-en 8493 df-dom 8494 df-sdom 8495 df-sup 8890 df-pnf 10666 df-mnf 10667 df-xr 10668 df-ltxr 10669 df-le 10670 df-sub 10861 df-neg 10862 df-div 11287 df-2 11688 df-rp 12378

This theorem is referenced by: (None)

W3C validator