| Step | Hyp | Ref
| Expression |
| 1 | | eqid 2737 |
. . 3
⊢
(MetOpen‘(𝑦
∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1))) = (MetOpen‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1))) |
| 2 | | xlebnum.d |
. . . 4
⊢ (𝜑 → 𝐷 ∈ (∞Met‘𝑋)) |
| 3 | | 1rp 13038 |
. . . 4
⊢ 1 ∈
ℝ+ |
| 4 | | eqid 2737 |
. . . . 5
⊢ (𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) = (𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) |
| 5 | 4 | stdbdmet 24529 |
. . . 4
⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 1 ∈
ℝ+) → (𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) ∈ (Met‘𝑋)) |
| 6 | 2, 3, 5 | sylancl 586 |
. . 3
⊢ (𝜑 → (𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) ∈ (Met‘𝑋)) |
| 7 | | rpxr 13044 |
. . . . . 6
⊢ (1 ∈
ℝ+ → 1 ∈ ℝ*) |
| 8 | 3, 7 | mp1i 13 |
. . . . 5
⊢ (𝜑 → 1 ∈
ℝ*) |
| 9 | | 0lt1 11785 |
. . . . . 6
⊢ 0 <
1 |
| 10 | 9 | a1i 11 |
. . . . 5
⊢ (𝜑 → 0 < 1) |
| 11 | | xlebnum.j |
. . . . . 6
⊢ 𝐽 = (MetOpen‘𝐷) |
| 12 | 4, 11 | stdbdmopn 24531 |
. . . . 5
⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 1 ∈
ℝ* ∧ 0 < 1) → 𝐽 = (MetOpen‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))) |
| 13 | 2, 8, 10, 12 | syl3anc 1373 |
. . . 4
⊢ (𝜑 → 𝐽 = (MetOpen‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))) |
| 14 | | xlebnum.c |
. . . 4
⊢ (𝜑 → 𝐽 ∈ Comp) |
| 15 | 13, 14 | eqeltrrd 2842 |
. . 3
⊢ (𝜑 → (MetOpen‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1))) ∈ Comp) |
| 16 | | xlebnum.s |
. . . 4
⊢ (𝜑 → 𝑈 ⊆ 𝐽) |
| 17 | 16, 13 | sseqtrd 4020 |
. . 3
⊢ (𝜑 → 𝑈 ⊆ (MetOpen‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))) |
| 18 | | xlebnum.u |
. . 3
⊢ (𝜑 → 𝑋 = ∪ 𝑈) |
| 19 | 1, 6, 15, 17, 18 | lebnum 24996 |
. 2
⊢ (𝜑 → ∃𝑟 ∈ ℝ+ ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) ⊆ 𝑢) |
| 20 | | simpr 484 |
. . . . 5
⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → 𝑟 ∈
ℝ+) |
| 21 | | ifcl 4571 |
. . . . 5
⊢ ((𝑟 ∈ ℝ+
∧ 1 ∈ ℝ+) → if(𝑟 ≤ 1, 𝑟, 1) ∈
ℝ+) |
| 22 | 20, 3, 21 | sylancl 586 |
. . . 4
⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → if(𝑟 ≤ 1, 𝑟, 1) ∈
ℝ+) |
| 23 | 2 | ad2antrr 726 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → 𝐷 ∈ (∞Met‘𝑋)) |
| 24 | 3, 7 | mp1i 13 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → 1 ∈
ℝ*) |
| 25 | 9 | a1i 11 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → 0 < 1) |
| 26 | | simpr 484 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → 𝑥 ∈ 𝑋) |
| 27 | 22 | adantr 480 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → if(𝑟 ≤ 1, 𝑟, 1) ∈
ℝ+) |
| 28 | | rpxr 13044 |
. . . . . . . . . 10
⊢ (if(𝑟 ≤ 1, 𝑟, 1) ∈ ℝ+ →
if(𝑟 ≤ 1, 𝑟, 1) ∈
ℝ*) |
| 29 | 27, 28 | syl 17 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → if(𝑟 ≤ 1, 𝑟, 1) ∈
ℝ*) |
| 30 | | rpre 13043 |
. . . . . . . . . . 11
⊢ (𝑟 ∈ ℝ+
→ 𝑟 ∈
ℝ) |
| 31 | 30 | ad2antlr 727 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → 𝑟 ∈ ℝ) |
| 32 | | 1re 11261 |
. . . . . . . . . 10
⊢ 1 ∈
ℝ |
| 33 | | min2 13232 |
. . . . . . . . . 10
⊢ ((𝑟 ∈ ℝ ∧ 1 ∈
ℝ) → if(𝑟 ≤
1, 𝑟, 1) ≤
1) |
| 34 | 31, 32, 33 | sylancl 586 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → if(𝑟 ≤ 1, 𝑟, 1) ≤ 1) |
| 35 | 4 | stdbdbl 24530 |
. . . . . . . . 9
⊢ (((𝐷 ∈ (∞Met‘𝑋) ∧ 1 ∈
ℝ* ∧ 0 < 1) ∧ (𝑥 ∈ 𝑋 ∧ if(𝑟 ≤ 1, 𝑟, 1) ∈ ℝ* ∧
if(𝑟 ≤ 1, 𝑟, 1) ≤ 1)) → (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))if(𝑟 ≤ 1, 𝑟, 1)) = (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1))) |
| 36 | 23, 24, 25, 26, 29, 34, 35 | syl33anc 1387 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))if(𝑟 ≤ 1, 𝑟, 1)) = (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1))) |
| 37 | 6 | ad2antrr 726 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → (𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) ∈ (Met‘𝑋)) |
| 38 | | metxmet 24344 |
. . . . . . . . . 10
⊢ ((𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) ∈ (Met‘𝑋) → (𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) ∈ (∞Met‘𝑋)) |
| 39 | 37, 38 | syl 17 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → (𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) ∈ (∞Met‘𝑋)) |
| 40 | | rpxr 13044 |
. . . . . . . . . 10
⊢ (𝑟 ∈ ℝ+
→ 𝑟 ∈
ℝ*) |
| 41 | 40 | ad2antlr 727 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → 𝑟 ∈ ℝ*) |
| 42 | | min1 13231 |
. . . . . . . . . 10
⊢ ((𝑟 ∈ ℝ ∧ 1 ∈
ℝ) → if(𝑟 ≤
1, 𝑟, 1) ≤ 𝑟) |
| 43 | 31, 32, 42 | sylancl 586 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → if(𝑟 ≤ 1, 𝑟, 1) ≤ 𝑟) |
| 44 | | ssbl 24433 |
. . . . . . . . 9
⊢ ((((𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)) ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋) ∧ (if(𝑟 ≤ 1, 𝑟, 1) ∈ ℝ* ∧ 𝑟 ∈ ℝ*)
∧ if(𝑟 ≤ 1, 𝑟, 1) ≤ 𝑟) → (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))if(𝑟 ≤ 1, 𝑟, 1)) ⊆ (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟)) |
| 45 | 39, 26, 29, 41, 43, 44 | syl221anc 1383 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))if(𝑟 ≤ 1, 𝑟, 1)) ⊆ (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟)) |
| 46 | 36, 45 | eqsstrrd 4019 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟)) |
| 47 | | sstr2 3990 |
. . . . . . 7
⊢ ((𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) → ((𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) ⊆ 𝑢 → (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢)) |
| 48 | 46, 47 | syl 17 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → ((𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) ⊆ 𝑢 → (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢)) |
| 49 | 48 | reximdv 3170 |
. . . . 5
⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → (∃𝑢 ∈ 𝑈 (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) ⊆ 𝑢 → ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢)) |
| 50 | 49 | ralimdva 3167 |
. . . 4
⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) →
(∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) ⊆ 𝑢 → ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢)) |
| 51 | | oveq2 7439 |
. . . . . . . 8
⊢ (𝑑 = if(𝑟 ≤ 1, 𝑟, 1) → (𝑥(ball‘𝐷)𝑑) = (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1))) |
| 52 | 51 | sseq1d 4015 |
. . . . . . 7
⊢ (𝑑 = if(𝑟 ≤ 1, 𝑟, 1) → ((𝑥(ball‘𝐷)𝑑) ⊆ 𝑢 ↔ (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢)) |
| 53 | 52 | rexbidv 3179 |
. . . . . 6
⊢ (𝑑 = if(𝑟 ≤ 1, 𝑟, 1) → (∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)𝑑) ⊆ 𝑢 ↔ ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢)) |
| 54 | 53 | ralbidv 3178 |
. . . . 5
⊢ (𝑑 = if(𝑟 ≤ 1, 𝑟, 1) → (∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)𝑑) ⊆ 𝑢 ↔ ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢)) |
| 55 | 54 | rspcev 3622 |
. . . 4
⊢
((if(𝑟 ≤ 1, 𝑟, 1) ∈ ℝ+
∧ ∀𝑥 ∈
𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)if(𝑟 ≤ 1, 𝑟, 1)) ⊆ 𝑢) → ∃𝑑 ∈ ℝ+ ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)𝑑) ⊆ 𝑢) |
| 56 | 22, 50, 55 | syl6an 684 |
. . 3
⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) →
(∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) ⊆ 𝑢 → ∃𝑑 ∈ ℝ+ ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)𝑑) ⊆ 𝑢)) |
| 57 | 56 | rexlimdva 3155 |
. 2
⊢ (𝜑 → (∃𝑟 ∈ ℝ+ ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘(𝑦 ∈ 𝑋, 𝑧 ∈ 𝑋 ↦ if((𝑦𝐷𝑧) ≤ 1, (𝑦𝐷𝑧), 1)))𝑟) ⊆ 𝑢 → ∃𝑑 ∈ ℝ+ ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)𝑑) ⊆ 𝑢)) |
| 58 | 19, 57 | mpd 15 |
1
⊢ (𝜑 → ∃𝑑 ∈ ℝ+ ∀𝑥 ∈ 𝑋 ∃𝑢 ∈ 𝑈 (𝑥(ball‘𝐷)𝑑) ⊆ 𝑢) |