Users' Mathboxes Mathbox for Brendan Leahy < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  opnmbllem0 Structured version   Visualization version   GIF version

Theorem opnmbllem0 36143
Description: Lemma for ismblfin 36148; could also be used to shorten proof of opnmbllem 24981. (Contributed by Brendan Leahy, 13-Jul-2018.)
Assertion
Ref Expression
opnmbllem0 (𝐴 ∈ (topGenβ€˜ran (,)) β†’ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) = 𝐴)
Distinct variable group:   π‘₯,𝑦,𝑧,𝐴

Proof of Theorem opnmbllem0
Dummy variables 𝑛 π‘Ÿ 𝑠 𝑀 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6847 . . . . . . . 8 (𝑧 = 𝑀 β†’ ([,]β€˜π‘§) = ([,]β€˜π‘€))
21sseq1d 3980 . . . . . . 7 (𝑧 = 𝑀 β†’ (([,]β€˜π‘§) βŠ† 𝐴 ↔ ([,]β€˜π‘€) βŠ† 𝐴))
32elrab 3650 . . . . . 6 (𝑀 ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} ↔ (𝑀 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∧ ([,]β€˜π‘€) βŠ† 𝐴))
4 simprr 772 . . . . . . 7 ((𝐴 ∈ (topGenβ€˜ran (,)) ∧ (𝑀 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∧ ([,]β€˜π‘€) βŠ† 𝐴)) β†’ ([,]β€˜π‘€) βŠ† 𝐴)
5 fvex 6860 . . . . . . . 8 ([,]β€˜π‘€) ∈ V
65elpw 4569 . . . . . . 7 (([,]β€˜π‘€) ∈ 𝒫 𝐴 ↔ ([,]β€˜π‘€) βŠ† 𝐴)
74, 6sylibr 233 . . . . . 6 ((𝐴 ∈ (topGenβ€˜ran (,)) ∧ (𝑀 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∧ ([,]β€˜π‘€) βŠ† 𝐴)) β†’ ([,]β€˜π‘€) ∈ 𝒫 𝐴)
83, 7sylan2b 595 . . . . 5 ((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) β†’ ([,]β€˜π‘€) ∈ 𝒫 𝐴)
98ralrimiva 3144 . . . 4 (𝐴 ∈ (topGenβ€˜ran (,)) β†’ βˆ€π‘€ ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} ([,]β€˜π‘€) ∈ 𝒫 𝐴)
10 iccf 13372 . . . . . 6 [,]:(ℝ* Γ— ℝ*)βŸΆπ’« ℝ*
11 ffun 6676 . . . . . 6 ([,]:(ℝ* Γ— ℝ*)βŸΆπ’« ℝ* β†’ Fun [,])
1210, 11ax-mp 5 . . . . 5 Fun [,]
13 ssrab2 4042 . . . . . . 7 {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} βŠ† ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)
14 oveq1 7369 . . . . . . . . . . . 12 (π‘₯ = π‘Ÿ β†’ (π‘₯ / (2↑𝑦)) = (π‘Ÿ / (2↑𝑦)))
15 oveq1 7369 . . . . . . . . . . . . 13 (π‘₯ = π‘Ÿ β†’ (π‘₯ + 1) = (π‘Ÿ + 1))
1615oveq1d 7377 . . . . . . . . . . . 12 (π‘₯ = π‘Ÿ β†’ ((π‘₯ + 1) / (2↑𝑦)) = ((π‘Ÿ + 1) / (2↑𝑦)))
1714, 16opeq12d 4843 . . . . . . . . . . 11 (π‘₯ = π‘Ÿ β†’ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩ = ⟨(π‘Ÿ / (2↑𝑦)), ((π‘Ÿ + 1) / (2↑𝑦))⟩)
18 oveq2 7370 . . . . . . . . . . . . 13 (𝑦 = 𝑠 β†’ (2↑𝑦) = (2↑𝑠))
1918oveq2d 7378 . . . . . . . . . . . 12 (𝑦 = 𝑠 β†’ (π‘Ÿ / (2↑𝑦)) = (π‘Ÿ / (2↑𝑠)))
2018oveq2d 7378 . . . . . . . . . . . 12 (𝑦 = 𝑠 β†’ ((π‘Ÿ + 1) / (2↑𝑦)) = ((π‘Ÿ + 1) / (2↑𝑠)))
2119, 20opeq12d 4843 . . . . . . . . . . 11 (𝑦 = 𝑠 β†’ ⟨(π‘Ÿ / (2↑𝑦)), ((π‘Ÿ + 1) / (2↑𝑦))⟩ = ⟨(π‘Ÿ / (2↑𝑠)), ((π‘Ÿ + 1) / (2↑𝑠))⟩)
2217, 21cbvmpov 7457 . . . . . . . . . 10 (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) = (π‘Ÿ ∈ β„€, 𝑠 ∈ β„•0 ↦ ⟨(π‘Ÿ / (2↑𝑠)), ((π‘Ÿ + 1) / (2↑𝑠))⟩)
2322dyadf 24971 . . . . . . . . 9 (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩):(β„€ Γ— β„•0)⟢( ≀ ∩ (ℝ Γ— ℝ))
24 frn 6680 . . . . . . . . 9 ((π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩):(β„€ Γ— β„•0)⟢( ≀ ∩ (ℝ Γ— ℝ)) β†’ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) βŠ† ( ≀ ∩ (ℝ Γ— ℝ)))
2523, 24ax-mp 5 . . . . . . . 8 ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) βŠ† ( ≀ ∩ (ℝ Γ— ℝ))
26 inss2 4194 . . . . . . . . 9 ( ≀ ∩ (ℝ Γ— ℝ)) βŠ† (ℝ Γ— ℝ)
27 rexpssxrxp 11207 . . . . . . . . 9 (ℝ Γ— ℝ) βŠ† (ℝ* Γ— ℝ*)
2826, 27sstri 3958 . . . . . . . 8 ( ≀ ∩ (ℝ Γ— ℝ)) βŠ† (ℝ* Γ— ℝ*)
2925, 28sstri 3958 . . . . . . 7 ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) βŠ† (ℝ* Γ— ℝ*)
3013, 29sstri 3958 . . . . . 6 {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} βŠ† (ℝ* Γ— ℝ*)
3110fdmi 6685 . . . . . 6 dom [,] = (ℝ* Γ— ℝ*)
3230, 31sseqtrri 3986 . . . . 5 {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} βŠ† dom [,]
33 funimass4 6912 . . . . 5 ((Fun [,] ∧ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} βŠ† dom [,]) β†’ (([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) βŠ† 𝒫 𝐴 ↔ βˆ€π‘€ ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} ([,]β€˜π‘€) ∈ 𝒫 𝐴))
3412, 32, 33mp2an 691 . . . 4 (([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) βŠ† 𝒫 𝐴 ↔ βˆ€π‘€ ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} ([,]β€˜π‘€) ∈ 𝒫 𝐴)
359, 34sylibr 233 . . 3 (𝐴 ∈ (topGenβ€˜ran (,)) β†’ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) βŠ† 𝒫 𝐴)
36 sspwuni 5065 . . 3 (([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) βŠ† 𝒫 𝐴 ↔ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) βŠ† 𝐴)
3735, 36sylib 217 . 2 (𝐴 ∈ (topGenβ€˜ran (,)) β†’ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) βŠ† 𝐴)
38 eqid 2737 . . . . 5 ((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)) = ((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ))
3938rexmet 24170 . . . 4 ((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)) ∈ (∞Metβ€˜β„)
40 eqid 2737 . . . . . 6 (MetOpenβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ))) = (MetOpenβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))
4138, 40tgioo 24175 . . . . 5 (topGenβ€˜ran (,)) = (MetOpenβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))
4241mopni2 23865 . . . 4 ((((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)) ∈ (∞Metβ€˜β„) ∧ 𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) β†’ βˆƒπ‘Ÿ ∈ ℝ+ (𝑀(ballβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))π‘Ÿ) βŠ† 𝐴)
4339, 42mp3an1 1449 . . 3 ((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) β†’ βˆƒπ‘Ÿ ∈ ℝ+ (𝑀(ballβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))π‘Ÿ) βŠ† 𝐴)
44 elssuni 4903 . . . . . . . . 9 (𝐴 ∈ (topGenβ€˜ran (,)) β†’ 𝐴 βŠ† βˆͺ (topGenβ€˜ran (,)))
45 uniretop 24142 . . . . . . . . 9 ℝ = βˆͺ (topGenβ€˜ran (,))
4644, 45sseqtrrdi 4000 . . . . . . . 8 (𝐴 ∈ (topGenβ€˜ran (,)) β†’ 𝐴 βŠ† ℝ)
4746sselda 3949 . . . . . . 7 ((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) β†’ 𝑀 ∈ ℝ)
48 rpre 12930 . . . . . . 7 (π‘Ÿ ∈ ℝ+ β†’ π‘Ÿ ∈ ℝ)
4938bl2ioo 24171 . . . . . . 7 ((𝑀 ∈ ℝ ∧ π‘Ÿ ∈ ℝ) β†’ (𝑀(ballβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))π‘Ÿ) = ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)))
5047, 48, 49syl2an 597 . . . . . 6 (((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ π‘Ÿ ∈ ℝ+) β†’ (𝑀(ballβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))π‘Ÿ) = ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)))
5150sseq1d 3980 . . . . 5 (((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ π‘Ÿ ∈ ℝ+) β†’ ((𝑀(ballβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))π‘Ÿ) βŠ† 𝐴 ↔ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴))
52 2re 12234 . . . . . . . . 9 2 ∈ ℝ
53 1lt2 12331 . . . . . . . . 9 1 < 2
54 expnlbnd 14143 . . . . . . . . 9 ((π‘Ÿ ∈ ℝ+ ∧ 2 ∈ ℝ ∧ 1 < 2) β†’ βˆƒπ‘› ∈ β„• (1 / (2↑𝑛)) < π‘Ÿ)
5552, 53, 54mp3an23 1454 . . . . . . . 8 (π‘Ÿ ∈ ℝ+ β†’ βˆƒπ‘› ∈ β„• (1 / (2↑𝑛)) < π‘Ÿ)
5655ad2antrl 727 . . . . . . 7 (((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) β†’ βˆƒπ‘› ∈ β„• (1 / (2↑𝑛)) < π‘Ÿ)
5747ad2antrr 725 . . . . . . . . . 10 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑀 ∈ ℝ)
58 2nn 12233 . . . . . . . . . . . . . . . 16 2 ∈ β„•
59 nnnn0 12427 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ β„• β†’ 𝑛 ∈ β„•0)
6059ad2antrl 727 . . . . . . . . . . . . . . . 16 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑛 ∈ β„•0)
61 nnexpcl 13987 . . . . . . . . . . . . . . . 16 ((2 ∈ β„• ∧ 𝑛 ∈ β„•0) β†’ (2↑𝑛) ∈ β„•)
6258, 60, 61sylancr 588 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (2↑𝑛) ∈ β„•)
6362nnred 12175 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (2↑𝑛) ∈ ℝ)
6457, 63remulcld 11192 . . . . . . . . . . . . 13 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 Β· (2↑𝑛)) ∈ ℝ)
65 fllelt 13709 . . . . . . . . . . . . 13 ((𝑀 Β· (2↑𝑛)) ∈ ℝ β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ≀ (𝑀 Β· (2↑𝑛)) ∧ (𝑀 Β· (2↑𝑛)) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1)))
6664, 65syl 17 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ≀ (𝑀 Β· (2↑𝑛)) ∧ (𝑀 Β· (2↑𝑛)) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1)))
6766simpld 496 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ≀ (𝑀 Β· (2↑𝑛)))
68 reflcl 13708 . . . . . . . . . . . . 13 ((𝑀 Β· (2↑𝑛)) ∈ ℝ β†’ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ ℝ)
6964, 68syl 17 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ ℝ)
7062nngt0d 12209 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 0 < (2↑𝑛))
71 ledivmul2 12041 . . . . . . . . . . . 12 (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ ((2↑𝑛) ∈ ℝ ∧ 0 < (2↑𝑛))) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ≀ 𝑀 ↔ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ≀ (𝑀 Β· (2↑𝑛))))
7269, 57, 63, 70, 71syl112anc 1375 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ≀ 𝑀 ↔ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ≀ (𝑀 Β· (2↑𝑛))))
7367, 72mpbird 257 . . . . . . . . . 10 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ≀ 𝑀)
74 peano2re 11335 . . . . . . . . . . . . 13 ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ ℝ β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) ∈ ℝ)
7569, 74syl 17 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) ∈ ℝ)
7675, 62nndivred 12214 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)) ∈ ℝ)
7766simprd 497 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 Β· (2↑𝑛)) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1))
78 ltmuldiv 12035 . . . . . . . . . . . . 13 ((𝑀 ∈ ℝ ∧ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) ∈ ℝ ∧ ((2↑𝑛) ∈ ℝ ∧ 0 < (2↑𝑛))) β†’ ((𝑀 Β· (2↑𝑛)) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) ↔ 𝑀 < (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))))
7957, 75, 63, 70, 78syl112anc 1375 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((𝑀 Β· (2↑𝑛)) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) ↔ 𝑀 < (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))))
8077, 79mpbid 231 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑀 < (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)))
8157, 76, 80ltled 11310 . . . . . . . . . 10 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑀 ≀ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)))
8269, 62nndivred 12214 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ∈ ℝ)
83 elicc2 13336 . . . . . . . . . . 11 ((((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ∈ ℝ ∧ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)) ∈ ℝ) β†’ (𝑀 ∈ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛))[,](((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))) ↔ (𝑀 ∈ ℝ ∧ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ≀ 𝑀 ∧ 𝑀 ≀ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)))))
8482, 76, 83syl2anc 585 . . . . . . . . . 10 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 ∈ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛))[,](((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))) ↔ (𝑀 ∈ ℝ ∧ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ≀ 𝑀 ∧ 𝑀 ≀ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)))))
8557, 73, 81, 84mpbir3and 1343 . . . . . . . . 9 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑀 ∈ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛))[,](((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))))
8664flcld 13710 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ β„€)
8722dyadval 24972 . . . . . . . . . . . 12 (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ β„€ ∧ 𝑛 ∈ β„•0) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) = ⟨((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)), (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))⟩)
8886, 60, 87syl2anc 585 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) = ⟨((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)), (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))⟩)
8988fveq2d 6851 . . . . . . . . . 10 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) = ([,]β€˜βŸ¨((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)), (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))⟩))
90 df-ov 7365 . . . . . . . . . 10 (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛))[,](((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))) = ([,]β€˜βŸ¨((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)), (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))⟩)
9189, 90eqtr4di 2795 . . . . . . . . 9 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) = (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛))[,](((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))))
9285, 91eleqtrrd 2841 . . . . . . . 8 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑀 ∈ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)))
93 ffn 6673 . . . . . . . . . . . . 13 ((π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩):(β„€ Γ— β„•0)⟢( ≀ ∩ (ℝ Γ— ℝ)) β†’ (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) Fn (β„€ Γ— β„•0))
9423, 93ax-mp 5 . . . . . . . . . . . 12 (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) Fn (β„€ Γ— β„•0)
95 fnovrn 7534 . . . . . . . . . . . 12 (((π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) Fn (β„€ Γ— β„•0) ∧ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ β„€ ∧ 𝑛 ∈ β„•0) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩))
9694, 95mp3an1 1449 . . . . . . . . . . 11 (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ β„€ ∧ 𝑛 ∈ β„•0) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩))
9786, 60, 96syl2anc 585 . . . . . . . . . 10 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩))
98 simplrl 776 . . . . . . . . . . . . . . . 16 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ π‘Ÿ ∈ ℝ+)
9998rpred 12964 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ π‘Ÿ ∈ ℝ)
10057, 99resubcld 11590 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 βˆ’ π‘Ÿ) ∈ ℝ)
101100rexrd 11212 . . . . . . . . . . . . 13 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 βˆ’ π‘Ÿ) ∈ ℝ*)
10257, 99readdcld 11191 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 + π‘Ÿ) ∈ ℝ)
103102rexrd 11212 . . . . . . . . . . . . 13 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 + π‘Ÿ) ∈ ℝ*)
10482, 99readdcld 11191 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + π‘Ÿ) ∈ ℝ)
10569recnd 11190 . . . . . . . . . . . . . . . . 17 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (βŒŠβ€˜(𝑀 Β· (2↑𝑛))) ∈ β„‚)
106 1cnd 11157 . . . . . . . . . . . . . . . . 17 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 1 ∈ β„‚)
10763recnd 11190 . . . . . . . . . . . . . . . . 17 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (2↑𝑛) ∈ β„‚)
10862nnne0d 12210 . . . . . . . . . . . . . . . . 17 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (2↑𝑛) β‰  0)
109105, 106, 107, 108divdird 11976 . . . . . . . . . . . . . . . 16 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)) = (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + (1 / (2↑𝑛))))
11062nnrecred 12211 . . . . . . . . . . . . . . . . 17 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (1 / (2↑𝑛)) ∈ ℝ)
111 simprr 772 . . . . . . . . . . . . . . . . 17 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (1 / (2↑𝑛)) < π‘Ÿ)
112110, 99, 82, 111ltadd2dd 11321 . . . . . . . . . . . . . . . 16 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + (1 / (2↑𝑛))) < (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + π‘Ÿ))
113109, 112eqbrtrd 5132 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)) < (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + π‘Ÿ))
11457, 76, 104, 80, 113lttrd 11323 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑀 < (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + π‘Ÿ))
11557, 99, 82ltsubaddd 11758 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((𝑀 βˆ’ π‘Ÿ) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ↔ 𝑀 < (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + π‘Ÿ)))
116114, 115mpbird 257 . . . . . . . . . . . . 13 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 βˆ’ π‘Ÿ) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)))
11757, 110readdcld 11191 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 + (1 / (2↑𝑛))) ∈ ℝ)
11882, 57, 110, 73leadd1dd 11776 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) + (1 / (2↑𝑛))) ≀ (𝑀 + (1 / (2↑𝑛))))
119109, 118eqbrtrd 5132 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)) ≀ (𝑀 + (1 / (2↑𝑛))))
120110, 99, 57, 111ltadd2dd 11321 . . . . . . . . . . . . . 14 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (𝑀 + (1 / (2↑𝑛))) < (𝑀 + π‘Ÿ))
12176, 117, 102, 119, 120lelttrd 11320 . . . . . . . . . . . . 13 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)) < (𝑀 + π‘Ÿ))
122 iccssioo 13340 . . . . . . . . . . . . 13 ((((𝑀 βˆ’ π‘Ÿ) ∈ ℝ* ∧ (𝑀 + π‘Ÿ) ∈ ℝ*) ∧ ((𝑀 βˆ’ π‘Ÿ) < ((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛)) ∧ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛)) < (𝑀 + π‘Ÿ))) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛))[,](((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))) βŠ† ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)))
123101, 103, 116, 121, 122syl22anc 838 . . . . . . . . . . . 12 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) / (2↑𝑛))[,](((βŒŠβ€˜(𝑀 Β· (2↑𝑛))) + 1) / (2↑𝑛))) βŠ† ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)))
12491, 123eqsstrd 3987 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) βŠ† ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)))
125 simplrr 777 . . . . . . . . . . 11 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)
126124, 125sstrd 3959 . . . . . . . . . 10 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) βŠ† 𝐴)
127 fveq2 6847 . . . . . . . . . . . 12 (𝑧 = ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) β†’ ([,]β€˜π‘§) = ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)))
128127sseq1d 3980 . . . . . . . . . . 11 (𝑧 = ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) β†’ (([,]β€˜π‘§) βŠ† 𝐴 ↔ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) βŠ† 𝐴))
129128elrab 3650 . . . . . . . . . 10 (((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} ↔ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∧ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) βŠ† 𝐴))
13097, 126, 129sylanbrc 584 . . . . . . . . 9 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴})
131 funfvima2 7186 . . . . . . . . . 10 ((Fun [,] ∧ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} βŠ† dom [,]) β†’ (((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} β†’ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) ∈ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴})))
13212, 32, 131mp2an 691 . . . . . . . . 9 (((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛) ∈ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴} β†’ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) ∈ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}))
133130, 132syl 17 . . . . . . . 8 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) ∈ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}))
134 elunii 4875 . . . . . . . 8 ((𝑀 ∈ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) ∧ ([,]β€˜((βŒŠβ€˜(𝑀 Β· (2↑𝑛)))(π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩)𝑛)) ∈ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴})) β†’ 𝑀 ∈ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}))
13592, 133, 134syl2anc 585 . . . . . . 7 ((((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) ∧ (𝑛 ∈ β„• ∧ (1 / (2↑𝑛)) < π‘Ÿ)) β†’ 𝑀 ∈ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}))
13656, 135rexlimddv 3159 . . . . . 6 (((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ (π‘Ÿ ∈ ℝ+ ∧ ((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴)) β†’ 𝑀 ∈ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}))
137136expr 458 . . . . 5 (((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ π‘Ÿ ∈ ℝ+) β†’ (((𝑀 βˆ’ π‘Ÿ)(,)(𝑀 + π‘Ÿ)) βŠ† 𝐴 β†’ 𝑀 ∈ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴})))
13851, 137sylbid 239 . . . 4 (((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) ∧ π‘Ÿ ∈ ℝ+) β†’ ((𝑀(ballβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))π‘Ÿ) βŠ† 𝐴 β†’ 𝑀 ∈ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴})))
139138rexlimdva 3153 . . 3 ((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) β†’ (βˆƒπ‘Ÿ ∈ ℝ+ (𝑀(ballβ€˜((abs ∘ βˆ’ ) β†Ύ (ℝ Γ— ℝ)))π‘Ÿ) βŠ† 𝐴 β†’ 𝑀 ∈ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴})))
14043, 139mpd 15 . 2 ((𝐴 ∈ (topGenβ€˜ran (,)) ∧ 𝑀 ∈ 𝐴) β†’ 𝑀 ∈ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}))
14137, 140eqelssd 3970 1 (𝐴 ∈ (topGenβ€˜ran (,)) β†’ βˆͺ ([,] β€œ {𝑧 ∈ ran (π‘₯ ∈ β„€, 𝑦 ∈ β„•0 ↦ ⟨(π‘₯ / (2↑𝑦)), ((π‘₯ + 1) / (2↑𝑦))⟩) ∣ ([,]β€˜π‘§) βŠ† 𝐴}) = 𝐴)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  βˆ€wral 3065  βˆƒwrex 3074  {crab 3410   ∩ cin 3914   βŠ† wss 3915  π’« cpw 4565  βŸ¨cop 4597  βˆͺ cuni 4870   class class class wbr 5110   Γ— cxp 5636  dom cdm 5638  ran crn 5639   β†Ύ cres 5640   β€œ cima 5641   ∘ ccom 5642  Fun wfun 6495   Fn wfn 6496  βŸΆwf 6497  β€˜cfv 6501  (class class class)co 7362   ∈ cmpo 7364  β„cr 11057  0cc0 11058  1c1 11059   + caddc 11061   Β· cmul 11063  β„*cxr 11195   < clt 11196   ≀ cle 11197   βˆ’ cmin 11392   / cdiv 11819  β„•cn 12160  2c2 12215  β„•0cn0 12420  β„€cz 12506  β„+crp 12922  (,)cioo 13271  [,]cicc 13274  βŒŠcfl 13702  β†‘cexp 13974  abscabs 15126  topGenctg 17326  βˆžMetcxmet 20797  ballcbl 20799  MetOpencmopn 20802
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-cnex 11114  ax-resscn 11115  ax-1cn 11116  ax-icn 11117  ax-addcl 11118  ax-addrcl 11119  ax-mulcl 11120  ax-mulrcl 11121  ax-mulcom 11122  ax-addass 11123  ax-mulass 11124  ax-distr 11125  ax-i2m1 11126  ax-1ne0 11127  ax-1rid 11128  ax-rnegex 11129  ax-rrecex 11130  ax-cnre 11131  ax-pre-lttri 11132  ax-pre-lttrn 11133  ax-pre-ltadd 11134  ax-pre-mulgt0 11135  ax-pre-sup 11136
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3066  df-rex 3075  df-rmo 3356  df-reu 3357  df-rab 3411  df-v 3450  df-sbc 3745  df-csb 3861  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-om 7808  df-1st 7926  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-er 8655  df-map 8774  df-en 8891  df-dom 8892  df-sdom 8893  df-sup 9385  df-inf 9386  df-pnf 11198  df-mnf 11199  df-xr 11200  df-ltxr 11201  df-le 11202  df-sub 11394  df-neg 11395  df-div 11820  df-nn 12161  df-2 12223  df-3 12224  df-n0 12421  df-z 12507  df-uz 12771  df-q 12881  df-rp 12923  df-xneg 13040  df-xadd 13041  df-xmul 13042  df-ioo 13275  df-icc 13278  df-fl 13704  df-seq 13914  df-exp 13975  df-cj 14991  df-re 14992  df-im 14993  df-sqrt 15127  df-abs 15128  df-topgen 17332  df-psmet 20804  df-xmet 20805  df-met 20806  df-bl 20807  df-mopn 20808  df-top 22259  df-topon 22276  df-bases 22312
This theorem is referenced by:  mblfinlem1  36144  mblfinlem2  36145
  Copyright terms: Public domain W3C validator