Metamath Proof Explorer


Theorem rpnnen1lem4

Description: Lemma for rpnnen1 . (Contributed by Mario Carneiro, 12-May-2013) (Revised by NM, 13-Aug-2021) (Proof modification is discouraged.)

Ref Expression
Hypotheses rpnnen1lem.1 ⊢ T = n ∈ ℤ | n k < x
rpnnen1lem.2 ⊢ F = x ∈ ℝ ⟼ k ∈ ℕ ⟼ sup T ℝ < k
rpnnen1lem.n ⊢ ℕ ∈ V
rpnnen1lem.q ⊢ ℚ ∈ V
Assertion rpnnen1lem4 ⊢ x ∈ ℝ → sup ran ⁡ F ⁡ x ℝ < ∈ ℝ

Proof

Step Hyp Ref Expression
1 rpnnen1lem.1 ⊢ T = n ∈ ℤ | n k < x
2 rpnnen1lem.2 ⊢ F = x ∈ ℝ ⟼ k ∈ ℕ ⟼ sup T ℝ < k
3 rpnnen1lem.n ⊢ ℕ ∈ V
4 rpnnen1lem.q ⊢ ℚ ∈ V
5 1 2 3 4 rpnnen1lem1 ⊢ x ∈ ℝ → F ⁡ x ∈ ℚ ℕ
6 4 3 elmap ⊢ F ⁡ x ∈ ℚ ℕ ↔ F ⁡ x : ℕ ⟶ ℚ
7 5 6 sylib ⊢ x ∈ ℝ → F ⁡ x : ℕ ⟶ ℚ
8 frn ⊢ F ⁡ x : ℕ ⟶ ℚ → ran ⁡ F ⁡ x ⊆ ℚ
9 qssre ⊢ ℚ ⊆ ℝ
10 8 9 sstrdi ⊢ F ⁡ x : ℕ ⟶ ℚ → ran ⁡ F ⁡ x ⊆ ℝ
11 7 10 syl ⊢ x ∈ ℝ → ran ⁡ F ⁡ x ⊆ ℝ
12 1nn ⊢ 1 ∈ ℕ
13 12 ne0ii ⊢ ℕ ≠ ∅
14 fdm ⊢ F ⁡ x : ℕ ⟶ ℚ → dom ⁡ F ⁡ x = ℕ
15 14 neeq1d ⊢ F ⁡ x : ℕ ⟶ ℚ → dom ⁡ F ⁡ x ≠ ∅ ↔ ℕ ≠ ∅
16 13 15 mpbiri ⊢ F ⁡ x : ℕ ⟶ ℚ → dom ⁡ F ⁡ x ≠ ∅
17 dm0rn0 ⊢ dom ⁡ F ⁡ x = ∅ ↔ ran ⁡ F ⁡ x = ∅
18 17 necon3bii ⊢ dom ⁡ F ⁡ x ≠ ∅ ↔ ran ⁡ F ⁡ x ≠ ∅
19 16 18 sylib ⊢ F ⁡ x : ℕ ⟶ ℚ → ran ⁡ F ⁡ x ≠ ∅
20 7 19 syl ⊢ x ∈ ℝ → ran ⁡ F ⁡ x ≠ ∅
21 1 2 3 4 rpnnen1lem3 ⊢ x ∈ ℝ → ∀ n ∈ ran ⁡ F ⁡ x n ≤ x
22 breq2 ⊢ y = x → n ≤ y ↔ n ≤ x
23 22 ralbidv ⊢ y = x → ∀ n ∈ ran ⁡ F ⁡ x n ≤ y ↔ ∀ n ∈ ran ⁡ F ⁡ x n ≤ x
24 23 rspcev ⊢ x ∈ ℝ ∧ ∀ n ∈ ran ⁡ F ⁡ x n ≤ x → ∃ y ∈ ℝ ∀ n ∈ ran ⁡ F ⁡ x n ≤ y
25 21 24 mpdan ⊢ x ∈ ℝ → ∃ y ∈ ℝ ∀ n ∈ ran ⁡ F ⁡ x n ≤ y
26 suprcl ⊢ ran ⁡ F ⁡ x ⊆ ℝ ∧ ran ⁡ F ⁡ x ≠ ∅ ∧ ∃ y ∈ ℝ ∀ n ∈ ran ⁡ F ⁡ x n ≤ y → sup ran ⁡ F ⁡ x ℝ < ∈ ℝ
27 11 20 25 26 syl3anc ⊢ x ∈ ℝ → sup ran ⁡ F ⁡ x ℝ < ∈ ℝ