Proof of Theorem opnrebl2
Step | Hyp | Ref
| Expression |
1 | | eqid 2738 |
. . . . 5
⊢ ((abs
∘ − ) ↾ (ℝ × ℝ)) = ((abs ∘ − )
↾ (ℝ × ℝ)) |
2 | 1 | rexmet 23860 |
. . . 4
⊢ ((abs
∘ − ) ↾ (ℝ × ℝ)) ∈
(∞Met‘ℝ) |
3 | | eqid 2738 |
. . . . . 6
⊢
(MetOpen‘((abs ∘ − ) ↾ (ℝ ×
ℝ))) = (MetOpen‘((abs ∘ − ) ↾ (ℝ ×
ℝ))) |
4 | 1, 3 | tgioo 23865 |
. . . . 5
⊢
(topGen‘ran (,)) = (MetOpen‘((abs ∘ − ) ↾
(ℝ × ℝ))) |
5 | 4 | mopnss 23507 |
. . . 4
⊢ ((((abs
∘ − ) ↾ (ℝ × ℝ)) ∈
(∞Met‘ℝ) ∧ 𝐴 ∈ (topGen‘ran (,))) → 𝐴 ⊆
ℝ) |
6 | 2, 5 | mpan 686 |
. . 3
⊢ (𝐴 ∈ (topGen‘ran (,))
→ 𝐴 ⊆
ℝ) |
7 | 4 | mopni3 23556 |
. . . . . . . 8
⊢ (((((abs
∘ − ) ↾ (ℝ × ℝ)) ∈
(∞Met‘ℝ) ∧ 𝐴 ∈ (topGen‘ran (,)) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ ℝ+) →
∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴)) |
8 | 7 | ex 412 |
. . . . . . 7
⊢ ((((abs
∘ − ) ↾ (ℝ × ℝ)) ∈
(∞Met‘ℝ) ∧ 𝐴 ∈ (topGen‘ran (,)) ∧ 𝑥 ∈ 𝐴) → (𝑦 ∈ ℝ+ →
∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴))) |
9 | 2, 8 | mp3an1 1446 |
. . . . . 6
⊢ ((𝐴 ∈ (topGen‘ran (,))
∧ 𝑥 ∈ 𝐴) → (𝑦 ∈ ℝ+ →
∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴))) |
10 | 6 | sselda 3917 |
. . . . . . 7
⊢ ((𝐴 ∈ (topGen‘ran (,))
∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ) |
11 | | rpre 12667 |
. . . . . . . . . . . . 13
⊢ (𝑧 ∈ ℝ+
→ 𝑧 ∈
ℝ) |
12 | 1 | bl2ioo 23861 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ) → (𝑥(ball‘((abs ∘
− ) ↾ (ℝ × ℝ)))𝑧) = ((𝑥 − 𝑧)(,)(𝑥 + 𝑧))) |
13 | 11, 12 | sylan2 592 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ+)
→ (𝑥(ball‘((abs
∘ − ) ↾ (ℝ × ℝ)))𝑧) = ((𝑥 − 𝑧)(,)(𝑥 + 𝑧))) |
14 | 13 | sseq1d 3948 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ+)
→ ((𝑥(ball‘((abs
∘ − ) ↾ (ℝ × ℝ)))𝑧) ⊆ 𝐴 ↔ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)) |
15 | 14 | anbi2d 628 |
. . . . . . . . . 10
⊢ ((𝑥 ∈ ℝ ∧ 𝑧 ∈ ℝ+)
→ ((𝑧 < 𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴) ↔ (𝑧 < 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
16 | 15 | rexbidva 3224 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ →
(∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴) ↔ ∃𝑧 ∈ ℝ+ (𝑧 < 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
17 | 16 | biimpd 228 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ →
(∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ (𝑧 < 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
18 | | rpre 12667 |
. . . . . . . . . . 11
⊢ (𝑦 ∈ ℝ+
→ 𝑦 ∈
ℝ) |
19 | | ltle 10994 |
. . . . . . . . . . 11
⊢ ((𝑧 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑧 < 𝑦 → 𝑧 ≤ 𝑦)) |
20 | 11, 18, 19 | syl2anr 596 |
. . . . . . . . . 10
⊢ ((𝑦 ∈ ℝ+
∧ 𝑧 ∈
ℝ+) → (𝑧 < 𝑦 → 𝑧 ≤ 𝑦)) |
21 | 20 | anim1d 610 |
. . . . . . . . 9
⊢ ((𝑦 ∈ ℝ+
∧ 𝑧 ∈
ℝ+) → ((𝑧 < 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → (𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
22 | 21 | reximdva 3202 |
. . . . . . . 8
⊢ (𝑦 ∈ ℝ+
→ (∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ (𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
23 | 17, 22 | syl9 77 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ → (𝑦 ∈ ℝ+
→ (∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ (𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)))) |
24 | 10, 23 | syl 17 |
. . . . . 6
⊢ ((𝐴 ∈ (topGen‘ran (,))
∧ 𝑥 ∈ 𝐴) → (𝑦 ∈ ℝ+ →
(∃𝑧 ∈
ℝ+ (𝑧 <
𝑦 ∧ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ (𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)))) |
25 | 9, 24 | mpdd 43 |
. . . . 5
⊢ ((𝐴 ∈ (topGen‘ran (,))
∧ 𝑥 ∈ 𝐴) → (𝑦 ∈ ℝ+ →
∃𝑧 ∈
ℝ+ (𝑧 ≤
𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
26 | 25 | expimpd 453 |
. . . 4
⊢ (𝐴 ∈ (topGen‘ran (,))
→ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ ℝ+) →
∃𝑧 ∈
ℝ+ (𝑧 ≤
𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
27 | 26 | ralrimivv 3113 |
. . 3
⊢ (𝐴 ∈ (topGen‘ran (,))
→ ∀𝑥 ∈
𝐴 ∀𝑦 ∈ ℝ+
∃𝑧 ∈
ℝ+ (𝑧 ≤
𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)) |
28 | 6, 27 | jca 511 |
. 2
⊢ (𝐴 ∈ (topGen‘ran (,))
→ (𝐴 ⊆ ℝ
∧ ∀𝑥 ∈
𝐴 ∀𝑦 ∈ ℝ+
∃𝑧 ∈
ℝ+ (𝑧 ≤
𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |
29 | | ssel2 3912 |
. . . . . 6
⊢ ((𝐴 ⊆ ℝ ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ ℝ) |
30 | | 1rp 12663 |
. . . . . . . 8
⊢ 1 ∈
ℝ+ |
31 | | simpr 484 |
. . . . . . . . . 10
⊢ ((𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) |
32 | 31 | reximi 3174 |
. . . . . . . . 9
⊢
(∃𝑧 ∈
ℝ+ (𝑧 ≤
𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) |
33 | 32 | ralimi 3086 |
. . . . . . . 8
⊢
(∀𝑦 ∈
ℝ+ ∃𝑧 ∈ ℝ+ (𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ∀𝑦 ∈ ℝ+ ∃𝑧 ∈ ℝ+
((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) |
34 | | biidd 261 |
. . . . . . . . 9
⊢ (𝑦 = 1 → (∃𝑧 ∈ ℝ+
((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴 ↔ ∃𝑧 ∈ ℝ+ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)) |
35 | 34 | rspcv 3547 |
. . . . . . . 8
⊢ (1 ∈
ℝ+ → (∀𝑦 ∈ ℝ+ ∃𝑧 ∈ ℝ+
((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴 → ∃𝑧 ∈ ℝ+ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)) |
36 | 30, 33, 35 | mpsyl 68 |
. . . . . . 7
⊢
(∀𝑦 ∈
ℝ+ ∃𝑧 ∈ ℝ+ (𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) |
37 | 14 | rexbidva 3224 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ →
(∃𝑧 ∈
ℝ+ (𝑥(ball‘((abs ∘ − ) ↾
(ℝ × ℝ)))𝑧) ⊆ 𝐴 ↔ ∃𝑧 ∈ ℝ+ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)) |
38 | 36, 37 | syl5ibr 245 |
. . . . . 6
⊢ (𝑥 ∈ ℝ →
(∀𝑦 ∈
ℝ+ ∃𝑧 ∈ ℝ+ (𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ (𝑥(ball‘((abs ∘
− ) ↾ (ℝ × ℝ)))𝑧) ⊆ 𝐴)) |
39 | 29, 38 | syl 17 |
. . . . 5
⊢ ((𝐴 ⊆ ℝ ∧ 𝑥 ∈ 𝐴) → (∀𝑦 ∈ ℝ+ ∃𝑧 ∈ ℝ+
(𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ∃𝑧 ∈ ℝ+ (𝑥(ball‘((abs ∘
− ) ↾ (ℝ × ℝ)))𝑧) ⊆ 𝐴)) |
40 | 39 | ralimdva 3102 |
. . . 4
⊢ (𝐴 ⊆ ℝ →
(∀𝑥 ∈ 𝐴 ∀𝑦 ∈ ℝ+ ∃𝑧 ∈ ℝ+
(𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴) → ∀𝑥 ∈ 𝐴 ∃𝑧 ∈ ℝ+ (𝑥(ball‘((abs ∘
− ) ↾ (ℝ × ℝ)))𝑧) ⊆ 𝐴)) |
41 | 40 | imdistani 568 |
. . 3
⊢ ((𝐴 ⊆ ℝ ∧
∀𝑥 ∈ 𝐴 ∀𝑦 ∈ ℝ+ ∃𝑧 ∈ ℝ+
(𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)) → (𝐴 ⊆ ℝ ∧ ∀𝑥 ∈ 𝐴 ∃𝑧 ∈ ℝ+ (𝑥(ball‘((abs ∘
− ) ↾ (ℝ × ℝ)))𝑧) ⊆ 𝐴)) |
42 | 4 | elmopn2 23506 |
. . . 4
⊢ (((abs
∘ − ) ↾ (ℝ × ℝ)) ∈
(∞Met‘ℝ) → (𝐴 ∈ (topGen‘ran (,)) ↔ (𝐴 ⊆ ℝ ∧
∀𝑥 ∈ 𝐴 ∃𝑧 ∈ ℝ+ (𝑥(ball‘((abs ∘
− ) ↾ (ℝ × ℝ)))𝑧) ⊆ 𝐴))) |
43 | 2, 42 | ax-mp 5 |
. . 3
⊢ (𝐴 ∈ (topGen‘ran (,))
↔ (𝐴 ⊆ ℝ
∧ ∀𝑥 ∈
𝐴 ∃𝑧 ∈ ℝ+ (𝑥(ball‘((abs ∘
− ) ↾ (ℝ × ℝ)))𝑧) ⊆ 𝐴)) |
44 | 41, 43 | sylibr 233 |
. 2
⊢ ((𝐴 ⊆ ℝ ∧
∀𝑥 ∈ 𝐴 ∀𝑦 ∈ ℝ+ ∃𝑧 ∈ ℝ+
(𝑧 ≤ 𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴)) → 𝐴 ∈ (topGen‘ran
(,))) |
45 | 28, 44 | impbii 208 |
1
⊢ (𝐴 ∈ (topGen‘ran (,))
↔ (𝐴 ⊆ ℝ
∧ ∀𝑥 ∈
𝐴 ∀𝑦 ∈ ℝ+
∃𝑧 ∈
ℝ+ (𝑧 ≤
𝑦 ∧ ((𝑥 − 𝑧)(,)(𝑥 + 𝑧)) ⊆ 𝐴))) |