Step | Hyp | Ref
| Expression |
1 | | rpxr 9597 |
. . . . . . . 8
⊢ (𝑟 ∈ ℝ+
→ 𝑟 ∈
ℝ*) |
2 | 1 | ad2antll 483 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑟 ∈
ℝ*) |
3 | | simpl2 991 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑅 ∈
ℝ*) |
4 | | xrmincl 11207 |
. . . . . . 7
⊢ ((𝑟 ∈ ℝ*
∧ 𝑅 ∈
ℝ*) → inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ*) |
5 | 2, 3, 4 | syl2anc 409 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ*) |
6 | | rpre 9596 |
. . . . . . 7
⊢ (𝑟 ∈ ℝ+
→ 𝑟 ∈
ℝ) |
7 | 6 | ad2antll 483 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑟 ∈
ℝ) |
8 | | 0xr 7945 |
. . . . . . . 8
⊢ 0 ∈
ℝ* |
9 | 8 | a1i 9 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 ∈
ℝ*) |
10 | | rpgt0 9601 |
. . . . . . . . 9
⊢ (𝑟 ∈ ℝ+
→ 0 < 𝑟) |
11 | 10 | ad2antll 483 |
. . . . . . . 8
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 <
𝑟) |
12 | | simpl3 992 |
. . . . . . . 8
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 <
𝑅) |
13 | | xrltmininf 11211 |
. . . . . . . . 9
⊢ ((0
∈ ℝ* ∧ 𝑟 ∈ ℝ* ∧ 𝑅 ∈ ℝ*)
→ (0 < inf({𝑟,
𝑅}, ℝ*,
< ) ↔ (0 < 𝑟
∧ 0 < 𝑅))) |
14 | 8, 2, 3, 13 | mp3an2i 1332 |
. . . . . . . 8
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (0 <
inf({𝑟, 𝑅}, ℝ*, < ) ↔ (0
< 𝑟 ∧ 0 < 𝑅))) |
15 | 11, 12, 14 | mpbir2and 934 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 <
inf({𝑟, 𝑅}, ℝ*, <
)) |
16 | 9, 5, 15 | xrltled 9735 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 ≤
inf({𝑟, 𝑅}, ℝ*, <
)) |
17 | | xrmin1inf 11208 |
. . . . . . 7
⊢ ((𝑟 ∈ ℝ*
∧ 𝑅 ∈
ℝ*) → inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟) |
18 | 2, 3, 17 | syl2anc 409 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟) |
19 | | xrrege0 9761 |
. . . . . 6
⊢
(((inf({𝑟, 𝑅}, ℝ*, < )
∈ ℝ* ∧ 𝑟 ∈ ℝ) ∧ (0 ≤ inf({𝑟, 𝑅}, ℝ*, < ) ∧
inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟)) → inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ) |
20 | 5, 7, 16, 18, 19 | syl22anc 1229 |
. . . . 5
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ) |
21 | 20, 15 | elrpd 9629 |
. . . 4
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ+) |
22 | | simprl 521 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑧 ∈ 𝑋) |
23 | | xrmin2inf 11209 |
. . . . . . . 8
⊢ ((𝑟 ∈ ℝ*
∧ 𝑅 ∈
ℝ*) → inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅) |
24 | 2, 3, 23 | syl2anc 409 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅) |
25 | 22, 5, 24 | 3jca 1167 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (𝑧 ∈ 𝑋 ∧ inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ* ∧ inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅)) |
26 | | stdbdmet.1 |
. . . . . . 7
⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ inf({(𝑥𝐶𝑦), 𝑅}, ℝ*, <
)) |
27 | 26 | bdbl 13143 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ* ∧ inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅)) → (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, <
))) |
28 | 25, 27 | syldan 280 |
. . . . 5
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, <
))) |
29 | 28 | eqcomd 2171 |
. . . 4
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
))) |
30 | | breq1 3985 |
. . . . . 6
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) → (𝑠 ≤ 𝑟 ↔ inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟)) |
31 | | oveq2 5850 |
. . . . . . 7
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) → (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, <
))) |
32 | | oveq2 5850 |
. . . . . . 7
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) → (𝑧(ball‘𝐷)𝑠) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
))) |
33 | 31, 32 | eqeq12d 2180 |
. . . . . 6
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) →
((𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠) ↔ (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
)))) |
34 | 30, 33 | anbi12d 465 |
. . . . 5
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) →
((𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) ↔ (inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
))))) |
35 | 34 | rspcev 2830 |
. . . 4
⊢
((inf({𝑟, 𝑅}, ℝ*, < )
∈ ℝ+ ∧ (inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, < )))) →
∃𝑠 ∈
ℝ+ (𝑠 ≤
𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠))) |
36 | 21, 18, 29, 35 | syl12anc 1226 |
. . 3
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
∃𝑠 ∈
ℝ+ (𝑠 ≤
𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠))) |
37 | 36 | ralrimivva 2548 |
. 2
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → ∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+
(𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠))) |
38 | | simp1 987 |
. . 3
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → 𝐶 ∈ (∞Met‘𝑋)) |
39 | 26 | bdxmet 13141 |
. . 3
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → 𝐷 ∈ (∞Met‘𝑋)) |
40 | | stdbdmopn.2 |
. . . 4
⊢ 𝐽 = (MetOpen‘𝐶) |
41 | | eqid 2165 |
. . . 4
⊢
(MetOpen‘𝐷) =
(MetOpen‘𝐷) |
42 | 40, 41 | metequiv2 13136 |
. . 3
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝐷 ∈ (∞Met‘𝑋)) → (∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+
(𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) → 𝐽 = (MetOpen‘𝐷))) |
43 | 38, 39, 42 | syl2anc 409 |
. 2
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → (∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+
(𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) → 𝐽 = (MetOpen‘𝐷))) |
44 | 37, 43 | mpd 13 |
1
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → 𝐽 = (MetOpen‘𝐷)) |