Step | Hyp | Ref
| Expression |
1 | | rpxr 9618 |
. . . . . . . 8
⊢ (𝑟 ∈ ℝ+
→ 𝑟 ∈
ℝ*) |
2 | 1 | ad2antll 488 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑟 ∈
ℝ*) |
3 | | simpl2 996 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑅 ∈
ℝ*) |
4 | | xrmincl 11229 |
. . . . . . 7
⊢ ((𝑟 ∈ ℝ*
∧ 𝑅 ∈
ℝ*) → inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ*) |
5 | 2, 3, 4 | syl2anc 409 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ*) |
6 | | rpre 9617 |
. . . . . . 7
⊢ (𝑟 ∈ ℝ+
→ 𝑟 ∈
ℝ) |
7 | 6 | ad2antll 488 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑟 ∈
ℝ) |
8 | | 0xr 7966 |
. . . . . . . 8
⊢ 0 ∈
ℝ* |
9 | 8 | a1i 9 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 ∈
ℝ*) |
10 | | rpgt0 9622 |
. . . . . . . . 9
⊢ (𝑟 ∈ ℝ+
→ 0 < 𝑟) |
11 | 10 | ad2antll 488 |
. . . . . . . 8
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 <
𝑟) |
12 | | simpl3 997 |
. . . . . . . 8
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 <
𝑅) |
13 | | xrltmininf 11233 |
. . . . . . . . 9
⊢ ((0
∈ ℝ* ∧ 𝑟 ∈ ℝ* ∧ 𝑅 ∈ ℝ*)
→ (0 < inf({𝑟,
𝑅}, ℝ*,
< ) ↔ (0 < 𝑟
∧ 0 < 𝑅))) |
14 | 8, 2, 3, 13 | mp3an2i 1337 |
. . . . . . . 8
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (0 <
inf({𝑟, 𝑅}, ℝ*, < ) ↔ (0
< 𝑟 ∧ 0 < 𝑅))) |
15 | 11, 12, 14 | mpbir2and 939 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 <
inf({𝑟, 𝑅}, ℝ*, <
)) |
16 | 9, 5, 15 | xrltled 9756 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 0 ≤
inf({𝑟, 𝑅}, ℝ*, <
)) |
17 | | xrmin1inf 11230 |
. . . . . . 7
⊢ ((𝑟 ∈ ℝ*
∧ 𝑅 ∈
ℝ*) → inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟) |
18 | 2, 3, 17 | syl2anc 409 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟) |
19 | | xrrege0 9782 |
. . . . . 6
⊢
(((inf({𝑟, 𝑅}, ℝ*, < )
∈ ℝ* ∧ 𝑟 ∈ ℝ) ∧ (0 ≤ inf({𝑟, 𝑅}, ℝ*, < ) ∧
inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟)) → inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ) |
20 | 5, 7, 16, 18, 19 | syl22anc 1234 |
. . . . 5
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ) |
21 | 20, 15 | elrpd 9650 |
. . . 4
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ+) |
22 | | simprl 526 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑧 ∈ 𝑋) |
23 | | xrmin2inf 11231 |
. . . . . . . 8
⊢ ((𝑟 ∈ ℝ*
∧ 𝑅 ∈
ℝ*) → inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅) |
24 | 2, 3, 23 | syl2anc 409 |
. . . . . . 7
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅) |
25 | 22, 5, 24 | 3jca 1172 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (𝑧 ∈ 𝑋 ∧ inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ* ∧ inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅)) |
26 | | stdbdmet.1 |
. . . . . . 7
⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ inf({(𝑥𝐶𝑦), 𝑅}, ℝ*, <
)) |
27 | 26 | bdbl 13297 |
. . . . . 6
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ inf({𝑟, 𝑅}, ℝ*, < ) ∈
ℝ* ∧ inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑅)) → (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, <
))) |
28 | 25, 27 | syldan 280 |
. . . . 5
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, <
))) |
29 | 28 | eqcomd 2176 |
. . . 4
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
))) |
30 | | breq1 3992 |
. . . . . 6
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) → (𝑠 ≤ 𝑟 ↔ inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟)) |
31 | | oveq2 5861 |
. . . . . . 7
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) → (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, <
))) |
32 | | oveq2 5861 |
. . . . . . 7
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) → (𝑧(ball‘𝐷)𝑠) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
))) |
33 | 31, 32 | eqeq12d 2185 |
. . . . . 6
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) →
((𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠) ↔ (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
)))) |
34 | 30, 33 | anbi12d 470 |
. . . . 5
⊢ (𝑠 = inf({𝑟, 𝑅}, ℝ*, < ) →
((𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) ↔ (inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, <
))))) |
35 | 34 | rspcev 2834 |
. . . 4
⊢
((inf({𝑟, 𝑅}, ℝ*, < )
∈ ℝ+ ∧ (inf({𝑟, 𝑅}, ℝ*, < ) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)inf({𝑟, 𝑅}, ℝ*, < )) = (𝑧(ball‘𝐷)inf({𝑟, 𝑅}, ℝ*, < )))) →
∃𝑠 ∈
ℝ+ (𝑠 ≤
𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠))) |
36 | 21, 18, 29, 35 | syl12anc 1231 |
. . 3
⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) →
∃𝑠 ∈
ℝ+ (𝑠 ≤
𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠))) |
37 | 36 | ralrimivva 2552 |
. 2
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → ∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+
(𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠))) |
38 | | simp1 992 |
. . 3
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → 𝐶 ∈ (∞Met‘𝑋)) |
39 | 26 | bdxmet 13295 |
. . 3
⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ* ∧ 0 <
𝑅) → 𝐷 ∈ (∞Met‘𝑋)) |
40 | | stdbdmopn.2 |
. . . 4
⊢ 𝐽 = (MetOpen‘𝐶) |
41 | | eqid 2170 |
. . . 4
⊢
(MetOpen‘𝐷) =
(MetOpen‘𝐷) |
42 | 40, 41 | metequiv2 13290 |
. . 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‘𝐷)) |