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 46320

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 11346	. . . . . 6 ⊢ ℝ ⊆ ℝ^*
3	1, 2	sstrdi 3943	. . . . 5 ⊢ (𝜑 → 𝐴 ⊆ ℝ^*)
4		supxrcl 13438	. . . . 5 ⊢ (𝐴 ⊆ ℝ^* → sup(𝐴, ℝ^, < ) ∈ ℝ^)
5	3, 4	syl 18	. . . 4 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) ∈ ℝ^)
6	5	adantr 486	. . 3 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ∈ ℝ^*)
7		eqidd 2762	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → +∞ = +∞)
8		simpr 490	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) = +∞)
9		peano2re 11476	. . . . . . . . . 10 ⊢ (𝑤 ∈ ℝ → (𝑤 + 1) ∈ ℝ)
10	9	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑤 + 1) ∈ ℝ)
11	3	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → 𝐴 ⊆ ℝ^)
12		supxrunb2 13443	. . . . . . . . . . . 12 ⊢ (𝐴 ⊆ ℝ^* → (∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ^*, < ) = +∞))
13	11, 12	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → (∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ^, < ) = +∞))
14	8, 13	mpbird 260	. . . . . . . . . 10 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥)
15	14	adantr 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥)
16		breq1 5106	. . . . . . . . . . 11 ⊢ (𝑟 = (𝑤 + 1) → (𝑟 < 𝑥 ↔ (𝑤 + 1) < 𝑥))
17	16	rexbidv 3187	. . . . . . . . . 10 ⊢ (𝑟 = (𝑤 + 1) → (∃𝑥 ∈ 𝐴 𝑟 < 𝑥 ↔ ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥))
18	17	rspcva 3575	. . . . . . . . 9 ⊢ (((𝑤 + 1) ∈ ℝ ∧ ∀𝑟 ∈ ℝ ∃𝑥 ∈ 𝐴 𝑟 < 𝑥) → ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥)
19	10, 15, 18	syl2anc 596	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥)
20		1rp 13117	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℝ⁺
21	20	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 1 ∈ ℝ⁺)
22		suplesup.c	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
23	22	r19.21bi 3255	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
24		oveq2 7426	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 1 → (𝑥 − 𝑦) = (𝑥 − 1))
25	24	breq1d 5113	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 1 → ((𝑥 − 𝑦) < 𝑧 ↔ (𝑥 − 1) < 𝑧))
26	25	rexbidv 3187	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 1 → (∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧 ↔ ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧))
27	26	rspcva 3575	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℝ⁺ ∧ ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
28	21, 23, 27	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
29	28	adantlr 728	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
30	29	3adant3 1150	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧)
31		nfv 1947	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑧((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥)
32		simp11r 1304	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ)
33	2, 32	sselid 3929	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ^*)
34	1	sselda 3931	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
35		1red 11302	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 1 ∈ ℝ)
36	34, 35	resubcld 11737	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑥 − 1) ∈ ℝ)
37	36	adantlr 728	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → (𝑥 − 1) ∈ ℝ)
38	37	3adant3 1150	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑥 − 1) ∈ ℝ)
39	38	3ad2ant1 1151	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ)
40	2, 39	sselid 3929	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ^*)
41		suplesup.b	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐵 ⊆ ℝ^*)
42	41	sselda 3931	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ ℝ^*)
43	42	adantlr 728	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ ℝ^*)
44	43	3ad2antl1 1204	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ ℝ^*)
45	44	3adant3 1150	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑧 ∈ ℝ^*)
46		simp3 1156	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑤 + 1) < 𝑥)
47		simp1r 1217	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑤 ∈ ℝ)
48		1red 11302	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 1 ∈ ℝ)
49	34	adantlr 728	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
50	49	3adant3 1150	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑥 ∈ ℝ)
51	47, 48, 50	ltaddsubd 11909	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ((𝑤 + 1) < 𝑥 ↔ 𝑤 < (𝑥 − 1)))
52	46, 51	mpbid 235	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑤 < (𝑥 − 1))
53	52	3ad2ant1 1151	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 < (𝑥 − 1))
54		simp3 1156	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) < 𝑧)
55	33, 40, 45, 53, 54	xrlttrd 13281	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧 ∈ 𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 < 𝑧)
56	55	3exp 1137	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑧 ∈ 𝐵 → ((𝑥 − 1) < 𝑧 → 𝑤 < 𝑧)))
57	31, 56	reximdai 3265	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → (∃𝑧 ∈ 𝐵 (𝑥 − 1) < 𝑧 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧))
58	30, 57	mpd 16	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑥 ∈ 𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)
59	58	3exp 1137	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ) → (𝑥 ∈ 𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)))
60	59	adantlr 728	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑥 ∈ 𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)))
61	60	rexlimdv 3162	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑥 ∈ 𝐴 (𝑤 + 1) < 𝑥 → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧))
62	19, 61	mpd 16	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧 ∈ 𝐵 𝑤 < 𝑧)
63	2	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℝ ⊆ ℝ^*)
64	63	sselda 3931	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ) → 𝑤 ∈ ℝ^*)
65	64	ad2antrr 739	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 ∈ ℝ^*)
66	43	adantr 486	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑧 ∈ ℝ^*)
67		simpr 490	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 < 𝑧)
68	65, 66, 67	xrltled 13272	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) ∧ 𝑤 < 𝑧) → 𝑤 ≤ 𝑧)
69	68	ex 418	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → (𝑤 < 𝑧 → 𝑤 ≤ 𝑧))
70	69	adantllr 732	. . . . . . . 8 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) ∧ 𝑧 ∈ 𝐵) → (𝑤 < 𝑧 → 𝑤 ≤ 𝑧))
71	70	reximdva 3176	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑧 ∈ 𝐵 𝑤 < 𝑧 → ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧))
72	62, 71	mpd 16	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧)
73	72	ralrimiva 3155	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^*, < ) = +∞) → ∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧)
74		supxrunb1 13442	. . . . . . 7 ⊢ (𝐵 ⊆ ℝ^* → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^*, < ) = +∞))
75	41, 74	syl 18	. . . . . 6 ⊢ (𝜑 → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^*, < ) = +∞))
76	75	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → (∀𝑤 ∈ ℝ ∃𝑧 ∈ 𝐵 𝑤 ≤ 𝑧 ↔ sup(𝐵, ℝ^, < ) = +∞))
77	73, 76	mpbid 235	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐵, ℝ^, < ) = +∞)
78	7, 8, 77	3eqtr4d 2806	. . 3 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) = sup(𝐵, ℝ^*, < ))
79	6, 78	xreqled 46311	. 2 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
80		supeq1 9430	. . . . . . 7 ⊢ (𝐴 = ∅ → sup(𝐴, ℝ^, < ) = sup(∅, ℝ^, < ))
81		xrsup0 13446	. . . . . . . 8 ⊢ sup(∅, ℝ^*, < ) = -∞
82	81	a1i 11	. . . . . . 7 ⊢ (𝐴 = ∅ → sup(∅, ℝ^*, < ) = -∞)
83	80, 82	eqtrd 2796	. . . . . 6 ⊢ (𝐴 = ∅ → sup(𝐴, ℝ^*, < ) = -∞)
84	83	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 = ∅) → sup(𝐴, ℝ^*, < ) = -∞)
85		supxrcl 13438	. . . . . . . 8 ⊢ (𝐵 ⊆ ℝ^* → sup(𝐵, ℝ^, < ) ∈ ℝ^)
86	41, 85	syl 18	. . . . . . 7 ⊢ (𝜑 → sup(𝐵, ℝ^, < ) ∈ ℝ^)
87		mnfle 13257	. . . . . . 7 ⊢ (sup(𝐵, ℝ^, < ) ∈ ℝ^ → -∞ ≤ sup(𝐵, ℝ^*, < ))
88	86, 87	syl 18	. . . . . 6 ⊢ (𝜑 → -∞ ≤ sup(𝐵, ℝ^*, < ))
89	88	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 = ∅) → -∞ ≤ sup(𝐵, ℝ^*, < ))
90	84, 89	eqbrtrd 5127	. . . 4 ⊢ ((𝜑 ∧ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^, < ))
91	90	adantlr 728	. . 3 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
92		simpll 779	. . . 4 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → 𝜑)
93	1	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ⊆ ℝ)
94		neqne 2964	. . . . . . . . 9 ⊢ (¬ 𝐴 = ∅ → 𝐴 ≠ ∅)
95	94	adantl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ≠ ∅)
96		supxrgtmnf 13452	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ ∧ 𝐴 ≠ ∅) → -∞ < sup(𝐴, ℝ^*, < ))
97	93, 95, 96	syl2anc 596	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ^*, < ))
98	97	adantlr 728	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ^, < ))
99		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → ¬ sup(𝐴, ℝ^, < ) = +∞)
100		simpl 488	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^*, < ) = +∞) → 𝜑)
101		nltpnft 13287	. . . . . . . . . 10 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ^ → (sup(𝐴, ℝ^, < ) = +∞ ↔ ¬ sup(𝐴, ℝ^, < ) < +∞))
102	100, 5, 101	3syl 19	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → (sup(𝐴, ℝ^, < ) = +∞ ↔ ¬ sup(𝐴, ℝ^*, < ) < +∞))
103	99, 102	mtbid 327	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → ¬ ¬ sup(𝐴, ℝ^, < ) < +∞)
104		notnotr 131	. . . . . . . 8 ⊢ (¬ ¬ sup(𝐴, ℝ^, < ) < +∞ → sup(𝐴, ℝ^, < ) < +∞)
105	103, 104	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) < +∞)
106	105	adantr 486	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) < +∞)
107	98, 106	jca 521	. . . . 5 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^*, < ) < +∞))
108	92, 5	syl 18	. . . . . 6 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ∈ ℝ^*)
109		xrrebnd 13291	. . . . . 6 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ^ → (sup(𝐴, ℝ^, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^*, < ) < +∞)))
110	108, 109	syl 18	. . . . 5 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (sup(𝐴, ℝ^, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ^, < ) ∧ sup(𝐴, ℝ^, < ) < +∞)))
111	107, 110	mpbird 260	. . . 4 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ∈ ℝ)
112		nfv 1947	. . . . 5 ⊢ Ⅎ𝑤(𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ)
113	41	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → 𝐵 ⊆ ℝ^)
114		simpr 490	. . . . 5 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → sup(𝐴, ℝ^, < ) ∈ ℝ)
115	114	adantr 486	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → sup(𝐴, ℝ^, < ) ∈ ℝ)
116		simpr 490	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℝ⁺)
117	116	rphalfcld 13169	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℝ⁺)
118	115, 117	ltsubrpd 13189	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^*, < ))
119	3	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → 𝐴 ⊆ ℝ^)
120		rpre 13122	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℝ)
121		2re 12410	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
122	121	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 2 ∈ ℝ)
123		2ne0 12442	. . . . . . . . . . . . 13 ⊢ 2 ≠ 0
124	123	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ ℝ⁺ → 2 ≠ 0)
125	120, 122, 124	redivcld 12138	. . . . . . . . . . 11 ⊢ (𝑤 ∈ ℝ⁺ → (𝑤 / 2) ∈ ℝ)
126	125	adantl 487	. . . . . . . . . 10 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℝ)
127	115, 126	resubcld 11737	. . . . . . . . 9 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ)
128	2, 127	sselid 3929	. . . . . . . 8 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ^*)
129		supxrlub 13448	. . . . . . . 8 ⊢ ((𝐴 ⊆ ℝ^* ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) ∈ ℝ^) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^, < ) ↔ ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) < 𝑥))
130	119, 128, 129	syl2anc 596	. . . . . . 7 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < sup(𝐴, ℝ^, < ) ↔ ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥))
131	118, 130	mpbid 235	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥)
132		rphalfcl 13142	. . . . . . . . . . 11 ⊢ (𝑤 ∈ ℝ⁺ → (𝑤 / 2) ∈ ℝ⁺)
133	132	3ad2ant2 1152	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → (𝑤 / 2) ∈ ℝ⁺)
134	23	3adant2 1149	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧)
135		oveq2 7426	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑤 / 2) → (𝑥 − 𝑦) = (𝑥 − (𝑤 / 2)))
136	135	breq1d 5113	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑤 / 2) → ((𝑥 − 𝑦) < 𝑧 ↔ (𝑥 − (𝑤 / 2)) < 𝑧))
137	136	rexbidv 3187	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑤 / 2) → (∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧 ↔ ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧))
138	137	rspcva 3575	. . . . . . . . . 10 ⊢ (((𝑤 / 2) ∈ ℝ⁺ ∧ ∀𝑦 ∈ ℝ⁺ ∃𝑧 ∈ 𝐵 (𝑥 − 𝑦) < 𝑧) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
139	133, 134, 138	syl2anc 596	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ ℝ⁺ ∧ 𝑥 ∈ 𝐴) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
140	139	ad5ant134 1392	. . . . . . . 8 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
141		recn 11283	. . . . . . . . . . . . . . . . 17 ⊢ (sup(𝐴, ℝ^, < ) ∈ ℝ → sup(𝐴, ℝ^, < ) ∈ ℂ)
142	141	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → sup(𝐴, ℝ^, < ) ∈ ℂ)
143	120	recnd 11330	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℂ)
144	143	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((sup(𝐴, ℝ^*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℂ)
145	144	halfcld 12584	. . . . . . . . . . . . . . . 16 ⊢ ((sup(𝐴, ℝ^*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (𝑤 / 2) ∈ ℂ)
146	142, 145, 145	subsub4d 11693	. . . . . . . . . . . . . . 15 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) = (sup(𝐴, ℝ^*, < ) − ((𝑤 / 2) + (𝑤 / 2))))
147	143	2halvesd 12585	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ ℝ⁺ → ((𝑤 / 2) + (𝑤 / 2)) = 𝑤)
148	147	oveq2d 7434	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ ℝ⁺ → (sup(𝐴, ℝ^, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ^, < ) − 𝑤))
149	148	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ^*, < ) − 𝑤))
150	146, 149	eqtr2d 2797	. . . . . . . . . . . . . 14 ⊢ ((sup(𝐴, ℝ^, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
151	150	adantll 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
152	151	adantr 486	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
153	152	ad3antrrr 743	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^, < ) − 𝑤) = ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)))
154	127, 126	resubcld 11737	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
155	154	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
156	155	ad3antrrr 743	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
157	2, 156	sselid 3929	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ^)
158	120, 49	sylanl2 694	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ)
159	125	ad2antlr 740	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑤 / 2) ∈ ℝ)
160	158, 159	resubcld 11737	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
161	160	adantllr 732	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ sup(𝐴, ℝ^*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
162	161	ad3antrrr 743	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
163	2, 162	sselid 3929	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ^*)
164		simp-6l 799	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝜑)
165		simplr 781	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧 ∈ 𝐵)
166	164, 165, 42	syl2anc 596	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧 ∈ ℝ^*)
167		simp-6r 800	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → sup(𝐴, ℝ^*, < ) ∈ ℝ)
168	120	ad5antlr 748	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑤 ∈ ℝ)
169	168	rehalfcld 12586	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑤 / 2) ∈ ℝ)
170	167, 169	resubcld 11737	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) ∈ ℝ)
171		simp-4r 796	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥 ∈ 𝐴)
172	164, 171, 34	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥 ∈ ℝ)
173		simpllr 788	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) < 𝑥)
174	170, 172, 169, 173	ltsub1dd 11921	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < (𝑥 − (𝑤 / 2)))
175		simpr 490	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) < 𝑧)
176	157, 163, 166, 174, 175	xrlttrd 13281	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ^*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < 𝑧)
177	153, 176	eqbrtrd 5127	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧)
178	177	ex 418	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧 ∈ 𝐵) → ((𝑥 − (𝑤 / 2)) < 𝑧 → (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
179	178	reximdva 3176	. . . . . . . 8 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → (∃𝑧 ∈ 𝐵 (𝑥 − (𝑤 / 2)) < 𝑧 → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
180	140, 179	mpd 16	. . . . . . 7 ⊢ (((((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) ∧ 𝑥 ∈ 𝐴) ∧ (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧)
181	180	rexlimdva2 3166	. . . . . 6 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → (∃𝑥 ∈ 𝐴 (sup(𝐴, ℝ^, < ) − (𝑤 / 2)) < 𝑥 → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^*, < ) − 𝑤) < 𝑧))
182	131, 181	mpd 16	. . . . 5 ⊢ (((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ⁺) → ∃𝑧 ∈ 𝐵 (sup(𝐴, ℝ^, < ) − 𝑤) < 𝑧)
183	112, 113, 114, 182	supxrgere 46314	. . . 4 ⊢ ((𝜑 ∧ sup(𝐴, ℝ^, < ) ∈ ℝ) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
184	92, 111, 183	syl2anc 596	. . 3 ⊢ (((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
185	91, 184	pm2.61dan 825	. 2 ⊢ ((𝜑 ∧ ¬ sup(𝐴, ℝ^, < ) = +∞) → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^*, < ))
186	79, 185	pm2.61dan 825	1 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) ≤ sup(𝐵, ℝ^, < ))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ≠ wne 2956 ∀wral 3077 ∃wrex 3087 ⊆ wss 3899 ∅c0 4279 class class class wbr 5103 (class class class)co 7418 supcsup 9425 ℂcc 11191 ℝcr 11192 0cc0 11193 1c1 11194 + caddc 11196 +∞cpnf 11333 -∞cmnf 11334 ℝ^*cxr 11335 < clt 11336 ≤ cle 11337 − cmin 11534 / cdiv 11966 2c2 12390 ℝ⁺crp 13113

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7749 ax-cnex 11249 ax-resscn 11250 ax-1cn 11251 ax-icn 11252 ax-addcl 11253 ax-addrcl 11254 ax-mulcl 11255 ax-mulrcl 11256 ax-mulcom 11257 ax-addass 11258 ax-mulass 11259 ax-distr 11260 ax-i2m1 11261 ax-1ne0 11262 ax-1rid 11263 ax-rnegex 11264 ax-rrecex 11265 ax-cnre 11266 ax-pre-lttri 11267 ax-pre-lttrn 11268 ax-pre-ltadd 11269 ax-pre-mulgt0 11270 ax-pre-sup 11271

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-op 4591 df-uni 4868 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-riota 7375 df-ov 7421 df-oprab 7422 df-mpo 7423 df-om 7876 df-2nd 8000 df-frecs 8292 df-wrecs 8323 df-recs 8372 df-rdg 8411 df-er 8710 df-en 8967 df-dom 8968 df-sdom 8969 df-sup 9427 df-pnf 11338 df-mnf 11339 df-xr 11340 df-ltxr 11341 df-le 11342 df-sub 11536 df-neg 11537 df-div 11967 df-nn 12329 df-2 12398 df-rp 13114

This theorem is used by: (None)

W3C validator