MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  xrlimcnp Structured version   Visualization version   GIF version

Theorem xrlimcnp 26463
Description: Relate a limit of a real-valued sequence at infinity to the continuity of the corresponding extended real function at +∞. Since any β‡π‘Ÿ limit can be written in the form on the left side of the implication, this shows that real limits are a special case of topological continuity at a point. (Contributed by Mario Carneiro, 8-Sep-2015.)
Hypotheses
Ref Expression
xrlimcnp.a (πœ‘ β†’ 𝐴 = (𝐡 βˆͺ {+∞}))
xrlimcnp.b (πœ‘ β†’ 𝐡 βŠ† ℝ)
xrlimcnp.r ((πœ‘ ∧ π‘₯ ∈ 𝐴) β†’ 𝑅 ∈ β„‚)
xrlimcnp.c (π‘₯ = +∞ β†’ 𝑅 = 𝐢)
xrlimcnp.j 𝐽 = (TopOpenβ€˜β„‚fld)
xrlimcnp.k 𝐾 = ((ordTopβ€˜ ≀ ) β†Ύt 𝐴)
Assertion
Ref Expression
xrlimcnp (πœ‘ β†’ ((π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢 ↔ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)))
Distinct variable groups:   π‘₯,𝐡   πœ‘,π‘₯   π‘₯,𝐴   π‘₯,𝐢
Allowed substitution hints:   𝑅(π‘₯)   𝐽(π‘₯)   𝐾(π‘₯)

Proof of Theorem xrlimcnp
Dummy variables π‘˜ π‘Ÿ 𝑀 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 xrlimcnp.r . . . . 5 ((πœ‘ ∧ π‘₯ ∈ 𝐴) β†’ 𝑅 ∈ β„‚)
21fmpttd 7112 . . . 4 (πœ‘ β†’ (π‘₯ ∈ 𝐴 ↦ 𝑅):π΄βŸΆβ„‚)
32adantr 482 . . 3 ((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) β†’ (π‘₯ ∈ 𝐴 ↦ 𝑅):π΄βŸΆβ„‚)
4 eqid 2733 . . . . . . . 8 (π‘₯ ∈ 𝐴 ↦ 𝑅) = (π‘₯ ∈ 𝐴 ↦ 𝑅)
5 xrlimcnp.c . . . . . . . 8 (π‘₯ = +∞ β†’ 𝑅 = 𝐢)
6 ssun2 4173 . . . . . . . . . 10 {+∞} βŠ† (𝐡 βˆͺ {+∞})
7 pnfex 11264 . . . . . . . . . . 11 +∞ ∈ V
87snid 4664 . . . . . . . . . 10 +∞ ∈ {+∞}
96, 8sselii 3979 . . . . . . . . 9 +∞ ∈ (𝐡 βˆͺ {+∞})
10 xrlimcnp.a . . . . . . . . 9 (πœ‘ β†’ 𝐴 = (𝐡 βˆͺ {+∞}))
119, 10eleqtrrid 2841 . . . . . . . 8 (πœ‘ β†’ +∞ ∈ 𝐴)
125eleq1d 2819 . . . . . . . . 9 (π‘₯ = +∞ β†’ (𝑅 ∈ β„‚ ↔ 𝐢 ∈ β„‚))
131ralrimiva 3147 . . . . . . . . 9 (πœ‘ β†’ βˆ€π‘₯ ∈ 𝐴 𝑅 ∈ β„‚)
1412, 13, 11rspcdva 3614 . . . . . . . 8 (πœ‘ β†’ 𝐢 ∈ β„‚)
154, 5, 11, 14fvmptd3 7019 . . . . . . 7 (πœ‘ β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) = 𝐢)
1615ad2antrr 725 . . . . . 6 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ 𝑦 ∈ 𝐽) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) = 𝐢)
1716eleq1d 2819 . . . . 5 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ 𝑦 ∈ 𝐽) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ 𝑦 ↔ 𝐢 ∈ 𝑦))
18 cnxmet 24281 . . . . . . . 8 (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚)
19 xrlimcnp.j . . . . . . . . . 10 𝐽 = (TopOpenβ€˜β„‚fld)
2019cnfldtopn 24290 . . . . . . . . 9 𝐽 = (MetOpenβ€˜(abs ∘ βˆ’ ))
2120mopni2 23994 . . . . . . . 8 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝑦 ∈ 𝐽 ∧ 𝐢 ∈ 𝑦) β†’ βˆƒπ‘Ÿ ∈ ℝ+ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)
2218, 21mp3an1 1449 . . . . . . 7 ((𝑦 ∈ 𝐽 ∧ 𝐢 ∈ 𝑦) β†’ βˆƒπ‘Ÿ ∈ ℝ+ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)
23 ssun1 4172 . . . . . . . . . . . . 13 𝐡 βŠ† (𝐡 βˆͺ {+∞})
2423, 10sseqtrrid 4035 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐡 βŠ† 𝐴)
25 ssralv 4050 . . . . . . . . . . . 12 (𝐡 βŠ† 𝐴 β†’ (βˆ€π‘₯ ∈ 𝐴 𝑅 ∈ β„‚ β†’ βˆ€π‘₯ ∈ 𝐡 𝑅 ∈ β„‚))
2624, 13, 25sylc 65 . . . . . . . . . . 11 (πœ‘ β†’ βˆ€π‘₯ ∈ 𝐡 𝑅 ∈ β„‚)
2726ad2antrr 725 . . . . . . . . . 10 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ βˆ€π‘₯ ∈ 𝐡 𝑅 ∈ β„‚)
28 simprl 770 . . . . . . . . . 10 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ π‘Ÿ ∈ ℝ+)
29 simplr 768 . . . . . . . . . 10 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢)
3027, 28, 29rlimi 15454 . . . . . . . . 9 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
31 letop 22702 . . . . . . . . . . . . . 14 (ordTopβ€˜ ≀ ) ∈ Top
32 xrlimcnp.b . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝐡 βŠ† ℝ)
33 ressxr 11255 . . . . . . . . . . . . . . . . . . 19 ℝ βŠ† ℝ*
3432, 33sstrdi 3994 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝐡 βŠ† ℝ*)
35 pnfxr 11265 . . . . . . . . . . . . . . . . . . . 20 +∞ ∈ ℝ*
3635a1i 11 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ +∞ ∈ ℝ*)
3736snssd 4812 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ {+∞} βŠ† ℝ*)
3834, 37unssd 4186 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝐡 βˆͺ {+∞}) βŠ† ℝ*)
3910, 38eqsstrd 4020 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝐴 βŠ† ℝ*)
40 xrex 12968 . . . . . . . . . . . . . . . . 17 ℝ* ∈ V
4140ssex 5321 . . . . . . . . . . . . . . . 16 (𝐴 βŠ† ℝ* β†’ 𝐴 ∈ V)
4239, 41syl 17 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐴 ∈ V)
4342ad2antrr 725 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ 𝐴 ∈ V)
44 iocpnfordt 22711 . . . . . . . . . . . . . . 15 (π‘˜(,]+∞) ∈ (ordTopβ€˜ ≀ )
4544a1i 11 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ (π‘˜(,]+∞) ∈ (ordTopβ€˜ ≀ ))
46 elrestr 17371 . . . . . . . . . . . . . 14 (((ordTopβ€˜ ≀ ) ∈ Top ∧ 𝐴 ∈ V ∧ (π‘˜(,]+∞) ∈ (ordTopβ€˜ ≀ )) β†’ ((π‘˜(,]+∞) ∩ 𝐴) ∈ ((ordTopβ€˜ ≀ ) β†Ύt 𝐴))
4731, 43, 45, 46mp3an2i 1467 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ ((π‘˜(,]+∞) ∩ 𝐴) ∈ ((ordTopβ€˜ ≀ ) β†Ύt 𝐴))
48 xrlimcnp.k . . . . . . . . . . . . 13 𝐾 = ((ordTopβ€˜ ≀ ) β†Ύt 𝐴)
4947, 48eleqtrrdi 2845 . . . . . . . . . . . 12 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ ((π‘˜(,]+∞) ∩ 𝐴) ∈ 𝐾)
50 simprl 770 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ π‘˜ ∈ ℝ)
5150rexrd 11261 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ π‘˜ ∈ ℝ*)
5235a1i 11 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ +∞ ∈ ℝ*)
5350ltpnfd 13098 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ π‘˜ < +∞)
54 ubioc1 13374 . . . . . . . . . . . . . 14 ((π‘˜ ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ π‘˜ < +∞) β†’ +∞ ∈ (π‘˜(,]+∞))
5551, 52, 53, 54syl3anc 1372 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ +∞ ∈ (π‘˜(,]+∞))
5611ad2antrr 725 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ +∞ ∈ 𝐴)
5755, 56elind 4194 . . . . . . . . . . . 12 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ +∞ ∈ ((π‘˜(,]+∞) ∩ 𝐴))
58 simplr 768 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ π‘˜ ∈ ℝ)
5958rexrd 11261 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ π‘˜ ∈ ℝ*)
60 elioc1 13363 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘˜ ∈ ℝ* ∧ +∞ ∈ ℝ*) β†’ (π‘₯ ∈ (π‘˜(,]+∞) ↔ (π‘₯ ∈ ℝ* ∧ π‘˜ < π‘₯ ∧ π‘₯ ≀ +∞)))
6159, 35, 60sylancl 587 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (π‘₯ ∈ (π‘˜(,]+∞) ↔ (π‘₯ ∈ ℝ* ∧ π‘˜ < π‘₯ ∧ π‘₯ ≀ +∞)))
62 simp2 1138 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘₯ ∈ ℝ* ∧ π‘˜ < π‘₯ ∧ π‘₯ ≀ +∞) β†’ π‘˜ < π‘₯)
6361, 62syl6bi 253 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (π‘₯ ∈ (π‘˜(,]+∞) β†’ π‘˜ < π‘₯))
6432ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) β†’ 𝐡 βŠ† ℝ)
6564sselda 3982 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ π‘₯ ∈ ℝ)
66 ltle 11299 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘˜ ∈ ℝ ∧ π‘₯ ∈ ℝ) β†’ (π‘˜ < π‘₯ β†’ π‘˜ ≀ π‘₯))
6758, 65, 66syl2anc 585 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (π‘˜ < π‘₯ β†’ π‘˜ ≀ π‘₯))
6863, 67syld 47 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (π‘₯ ∈ (π‘˜(,]+∞) β†’ π‘˜ ≀ π‘₯))
6918a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚))
70 simprl 770 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ π‘Ÿ ∈ ℝ+)
7170ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ π‘Ÿ ∈ ℝ+)
72 rpxr 12980 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘Ÿ ∈ ℝ+ β†’ π‘Ÿ ∈ ℝ*)
7371, 72syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ π‘Ÿ ∈ ℝ*)
7414ad3antrrr 729 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ 𝐢 ∈ β„‚)
7526ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) β†’ βˆ€π‘₯ ∈ 𝐡 𝑅 ∈ β„‚)
7675r19.21bi 3249 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ 𝑅 ∈ β„‚)
77 elbl3 23890 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ π‘Ÿ ∈ ℝ*) ∧ (𝐢 ∈ β„‚ ∧ 𝑅 ∈ β„‚)) β†’ (𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ (𝑅(abs ∘ βˆ’ )𝐢) < π‘Ÿ))
7869, 73, 74, 76, 77syl22anc 838 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ (𝑅(abs ∘ βˆ’ )𝐢) < π‘Ÿ))
79 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (abs ∘ βˆ’ ) = (abs ∘ βˆ’ )
8079cnmetdval 24279 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑅 ∈ β„‚ ∧ 𝐢 ∈ β„‚) β†’ (𝑅(abs ∘ βˆ’ )𝐢) = (absβ€˜(𝑅 βˆ’ 𝐢)))
8176, 74, 80syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (𝑅(abs ∘ βˆ’ )𝐢) = (absβ€˜(𝑅 βˆ’ 𝐢)))
8281breq1d 5158 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ ((𝑅(abs ∘ βˆ’ )𝐢) < π‘Ÿ ↔ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
8378, 82bitrd 279 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ (𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
8483biimprd 247 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ ((absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
8568, 84imim12d 81 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) ∧ π‘₯ ∈ 𝐡) β†’ ((π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ) β†’ (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
8685ralimdva 3168 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ π‘˜ ∈ ℝ) β†’ (βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ) β†’ βˆ€π‘₯ ∈ 𝐡 (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
8786impr 456 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ βˆ€π‘₯ ∈ 𝐡 (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
8814ad2antrr 725 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ 𝐢 ∈ β„‚)
89 simplrl 776 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ π‘Ÿ ∈ ℝ+)
90 blcntr 23911 . . . . . . . . . . . . . . . . . . . . 21 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐢 ∈ β„‚ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐢 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
9118, 88, 89, 90mp3an2i 1467 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ 𝐢 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
9291a1d 25 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ (+∞ ∈ (π‘˜(,]+∞) β†’ 𝐢 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
93 eleq1 2822 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = +∞ β†’ (π‘₯ ∈ (π‘˜(,]+∞) ↔ +∞ ∈ (π‘˜(,]+∞)))
945eleq1d 2819 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = +∞ β†’ (𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ 𝐢 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
9593, 94imbi12d 345 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ = +∞ β†’ ((π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ (+∞ ∈ (π‘˜(,]+∞) β†’ 𝐢 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
967, 95ralsn 4685 . . . . . . . . . . . . . . . . . . 19 (βˆ€π‘₯ ∈ {+∞} (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ (+∞ ∈ (π‘˜(,]+∞) β†’ 𝐢 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
9792, 96sylibr 233 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ βˆ€π‘₯ ∈ {+∞} (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
98 ralunb 4191 . . . . . . . . . . . . . . . . . 18 (βˆ€π‘₯ ∈ (𝐡 βˆͺ {+∞})(π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ (βˆ€π‘₯ ∈ 𝐡 (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ∧ βˆ€π‘₯ ∈ {+∞} (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
9987, 97, 98sylanbrc 584 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ βˆ€π‘₯ ∈ (𝐡 βˆͺ {+∞})(π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
10010ad2antrr 725 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ 𝐴 = (𝐡 βˆͺ {+∞}))
101100raleqdv 3326 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ (βˆ€π‘₯ ∈ 𝐴 (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ βˆ€π‘₯ ∈ (𝐡 βˆͺ {+∞})(π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
10299, 101mpbird 257 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ βˆ€π‘₯ ∈ 𝐴 (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
103 ss2rab 4068 . . . . . . . . . . . . . . . 16 ({π‘₯ ∈ 𝐴 ∣ π‘₯ ∈ (π‘˜(,]+∞)} βŠ† {π‘₯ ∈ 𝐴 ∣ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)} ↔ βˆ€π‘₯ ∈ 𝐴 (π‘₯ ∈ (π‘˜(,]+∞) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
104102, 103sylibr 233 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ {π‘₯ ∈ 𝐴 ∣ π‘₯ ∈ (π‘˜(,]+∞)} βŠ† {π‘₯ ∈ 𝐴 ∣ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)})
105 incom 4201 . . . . . . . . . . . . . . . 16 ((π‘˜(,]+∞) ∩ 𝐴) = (𝐴 ∩ (π‘˜(,]+∞))
106 dfin5 3956 . . . . . . . . . . . . . . . 16 (𝐴 ∩ (π‘˜(,]+∞)) = {π‘₯ ∈ 𝐴 ∣ π‘₯ ∈ (π‘˜(,]+∞)}
107105, 106eqtri 2761 . . . . . . . . . . . . . . 15 ((π‘˜(,]+∞) ∩ 𝐴) = {π‘₯ ∈ 𝐴 ∣ π‘₯ ∈ (π‘˜(,]+∞)}
1084mptpreima 6235 . . . . . . . . . . . . . . 15 (β—‘(π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) = {π‘₯ ∈ 𝐴 ∣ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)}
109104, 107, 1083sstr4g 4027 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ ((π‘˜(,]+∞) ∩ 𝐴) βŠ† (β—‘(π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
110 funmpt 6584 . . . . . . . . . . . . . . 15 Fun (π‘₯ ∈ 𝐴 ↦ 𝑅)
111 inss2 4229 . . . . . . . . . . . . . . . 16 ((π‘˜(,]+∞) ∩ 𝐴) βŠ† 𝐴
1122ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ (π‘₯ ∈ 𝐴 ↦ 𝑅):π΄βŸΆβ„‚)
113112fdmd 6726 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ dom (π‘₯ ∈ 𝐴 ↦ 𝑅) = 𝐴)
114111, 113sseqtrrid 4035 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ ((π‘˜(,]+∞) ∩ 𝐴) βŠ† dom (π‘₯ ∈ 𝐴 ↦ 𝑅))
115 funimass3 7053 . . . . . . . . . . . . . . 15 ((Fun (π‘₯ ∈ 𝐴 ↦ 𝑅) ∧ ((π‘˜(,]+∞) ∩ 𝐴) βŠ† dom (π‘₯ ∈ 𝐴 ↦ 𝑅)) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ ((π‘˜(,]+∞) ∩ 𝐴) βŠ† (β—‘(π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
116110, 114, 115sylancr 588 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ ((π‘˜(,]+∞) ∩ 𝐴) βŠ† (β—‘(π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
117109, 116mpbird 257 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
118 simplrr 777 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)
119117, 118sstrd 3992 . . . . . . . . . . . 12 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)) βŠ† 𝑦)
120 eleq2 2823 . . . . . . . . . . . . . 14 (𝑧 = ((π‘˜(,]+∞) ∩ 𝐴) β†’ (+∞ ∈ 𝑧 ↔ +∞ ∈ ((π‘˜(,]+∞) ∩ 𝐴)))
121 imaeq2 6054 . . . . . . . . . . . . . . 15 (𝑧 = ((π‘˜(,]+∞) ∩ 𝐴) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) = ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)))
122121sseq1d 4013 . . . . . . . . . . . . . 14 (𝑧 = ((π‘˜(,]+∞) ∩ 𝐴) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦 ↔ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)) βŠ† 𝑦))
123120, 122anbi12d 632 . . . . . . . . . . . . 13 (𝑧 = ((π‘˜(,]+∞) ∩ 𝐴) β†’ ((+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦) ↔ (+∞ ∈ ((π‘˜(,]+∞) ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)) βŠ† 𝑦)))
124123rspcev 3613 . . . . . . . . . . . 12 ((((π‘˜(,]+∞) ∩ 𝐴) ∈ 𝐾 ∧ (+∞ ∈ ((π‘˜(,]+∞) ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ ((π‘˜(,]+∞) ∩ 𝐴)) βŠ† 𝑦)) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦))
12549, 57, 119, 124syl12anc 836 . . . . . . . . . . 11 (((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) ∧ (π‘˜ ∈ ℝ ∧ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦))
126125rexlimdvaa 3157 . . . . . . . . . 10 ((πœ‘ ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ (βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))
127126adantlr 714 . . . . . . . . 9 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ (βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ ≀ π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))
12830, 127mpd 15 . . . . . . . 8 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ (π‘Ÿ ∈ ℝ+ ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦)) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦))
129128rexlimdvaa 3157 . . . . . . 7 ((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) β†’ (βˆƒπ‘Ÿ ∈ ℝ+ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) βŠ† 𝑦 β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))
13022, 129syl5 34 . . . . . 6 ((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) β†’ ((𝑦 ∈ 𝐽 ∧ 𝐢 ∈ 𝑦) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))
131130expdimp 454 . . . . 5 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ 𝑦 ∈ 𝐽) β†’ (𝐢 ∈ 𝑦 β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))
13217, 131sylbid 239 . . . 4 (((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) ∧ 𝑦 ∈ 𝐽) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ 𝑦 β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))
133132ralrimiva 3147 . . 3 ((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) β†’ βˆ€π‘¦ ∈ 𝐽 (((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ 𝑦 β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))
134 letopon 22701 . . . . . . 7 (ordTopβ€˜ ≀ ) ∈ (TopOnβ€˜β„*)
135 resttopon 22657 . . . . . . 7 (((ordTopβ€˜ ≀ ) ∈ (TopOnβ€˜β„*) ∧ 𝐴 βŠ† ℝ*) β†’ ((ordTopβ€˜ ≀ ) β†Ύt 𝐴) ∈ (TopOnβ€˜π΄))
136134, 39, 135sylancr 588 . . . . . 6 (πœ‘ β†’ ((ordTopβ€˜ ≀ ) β†Ύt 𝐴) ∈ (TopOnβ€˜π΄))
13748, 136eqeltrid 2838 . . . . 5 (πœ‘ β†’ 𝐾 ∈ (TopOnβ€˜π΄))
13819cnfldtopon 24291 . . . . . 6 𝐽 ∈ (TopOnβ€˜β„‚)
139138a1i 11 . . . . 5 (πœ‘ β†’ 𝐽 ∈ (TopOnβ€˜β„‚))
140 iscnp 22733 . . . . 5 ((𝐾 ∈ (TopOnβ€˜π΄) ∧ 𝐽 ∈ (TopOnβ€˜β„‚) ∧ +∞ ∈ 𝐴) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞) ↔ ((π‘₯ ∈ 𝐴 ↦ 𝑅):π΄βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ 𝐽 (((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ 𝑦 β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))))
141137, 139, 11, 140syl3anc 1372 . . . 4 (πœ‘ β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞) ↔ ((π‘₯ ∈ 𝐴 ↦ 𝑅):π΄βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ 𝐽 (((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ 𝑦 β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))))
142141adantr 482 . . 3 ((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞) ↔ ((π‘₯ ∈ 𝐴 ↦ 𝑅):π΄βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ 𝐽 (((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ 𝑦 β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† 𝑦)))))
1433, 133, 142mpbir2and 712 . 2 ((πœ‘ ∧ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢) β†’ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞))
144 simplr 768 . . . . . . 7 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞))
14514ad2antrr 725 . . . . . . . 8 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐢 ∈ β„‚)
14672adantl 483 . . . . . . . 8 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ π‘Ÿ ∈ ℝ*)
14720blopn 24001 . . . . . . . 8 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐢 ∈ β„‚ ∧ π‘Ÿ ∈ ℝ*) β†’ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ∈ 𝐽)
14818, 145, 146, 147mp3an2i 1467 . . . . . . 7 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ∈ 𝐽)
14915ad2antrr 725 . . . . . . . 8 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) = 𝐢)
150 simpr 486 . . . . . . . . 9 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ π‘Ÿ ∈ ℝ+)
15118, 145, 150, 90mp3an2i 1467 . . . . . . . 8 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐢 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
152149, 151eqeltrd 2834 . . . . . . 7 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
153 cnpimaex 22752 . . . . . . 7 (((π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞) ∧ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ∈ 𝐽 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅)β€˜+∞) ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
154144, 148, 152, 153syl3anc 1372 . . . . . 6 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
155 vex 3479 . . . . . . . . 9 𝑀 ∈ V
156155inex1 5317 . . . . . . . 8 (𝑀 ∩ 𝐴) ∈ V
157156a1i 11 . . . . . . 7 ((((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑀 ∈ (ordTopβ€˜ ≀ )) β†’ (𝑀 ∩ 𝐴) ∈ V)
15848eleq2i 2826 . . . . . . . 8 (𝑧 ∈ 𝐾 ↔ 𝑧 ∈ ((ordTopβ€˜ ≀ ) β†Ύt 𝐴))
15942ad2antrr 725 . . . . . . . . 9 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐴 ∈ V)
160 elrest 17370 . . . . . . . . 9 (((ordTopβ€˜ ≀ ) ∈ Top ∧ 𝐴 ∈ V) β†’ (𝑧 ∈ ((ordTopβ€˜ ≀ ) β†Ύt 𝐴) ↔ βˆƒπ‘€ ∈ (ordTopβ€˜ ≀ )𝑧 = (𝑀 ∩ 𝐴)))
16131, 159, 160sylancr 588 . . . . . . . 8 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ (𝑧 ∈ ((ordTopβ€˜ ≀ ) β†Ύt 𝐴) ↔ βˆƒπ‘€ ∈ (ordTopβ€˜ ≀ )𝑧 = (𝑀 ∩ 𝐴)))
162158, 161bitrid 283 . . . . . . 7 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ (𝑧 ∈ 𝐾 ↔ βˆƒπ‘€ ∈ (ordTopβ€˜ ≀ )𝑧 = (𝑀 ∩ 𝐴)))
163 eleq2 2823 . . . . . . . . 9 (𝑧 = (𝑀 ∩ 𝐴) β†’ (+∞ ∈ 𝑧 ↔ +∞ ∈ (𝑀 ∩ 𝐴)))
164 imaeq2 6054 . . . . . . . . . 10 (𝑧 = (𝑀 ∩ 𝐴) β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) = ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)))
165164sseq1d 4013 . . . . . . . . 9 (𝑧 = (𝑀 ∩ 𝐴) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
166163, 165anbi12d 632 . . . . . . . 8 (𝑧 = (𝑀 ∩ 𝐴) β†’ ((+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ (+∞ ∈ (𝑀 ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
167166adantl 483 . . . . . . 7 ((((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑧 = (𝑀 ∩ 𝐴)) β†’ ((+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ (+∞ ∈ (𝑀 ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
168157, 162, 167rexxfr2d 5409 . . . . . 6 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ (βˆƒπ‘§ ∈ 𝐾 (+∞ ∈ 𝑧 ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ 𝑧) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ βˆƒπ‘€ ∈ (ordTopβ€˜ ≀ )(+∞ ∈ (𝑀 ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
169154, 168mpbid 231 . . . . 5 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ βˆƒπ‘€ ∈ (ordTopβ€˜ ≀ )(+∞ ∈ (𝑀 ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
170 elinel1 4195 . . . . . . . . . . 11 (+∞ ∈ (𝑀 ∩ 𝐴) β†’ +∞ ∈ 𝑀)
171 pnfnei 22716 . . . . . . . . . . 11 ((𝑀 ∈ (ordTopβ€˜ ≀ ) ∧ +∞ ∈ 𝑀) β†’ βˆƒπ‘˜ ∈ ℝ (π‘˜(,]+∞) βŠ† 𝑀)
172170, 171sylan2 594 . . . . . . . . . 10 ((𝑀 ∈ (ordTopβ€˜ ≀ ) ∧ +∞ ∈ (𝑀 ∩ 𝐴)) β†’ βˆƒπ‘˜ ∈ ℝ (π‘˜(,]+∞) βŠ† 𝑀)
173 df-ima 5689 . . . . . . . . . . . . . . . 16 ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) = ran ((π‘₯ ∈ 𝐴 ↦ 𝑅) β†Ύ (𝑀 ∩ 𝐴))
174 inss2 4229 . . . . . . . . . . . . . . . . . 18 (𝑀 ∩ 𝐴) βŠ† 𝐴
175 resmpt 6036 . . . . . . . . . . . . . . . . . 18 ((𝑀 ∩ 𝐴) βŠ† 𝐴 β†’ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β†Ύ (𝑀 ∩ 𝐴)) = (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅))
176174, 175ax-mp 5 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ 𝐴 ↦ 𝑅) β†Ύ (𝑀 ∩ 𝐴)) = (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)
177176rneqi 5935 . . . . . . . . . . . . . . . 16 ran ((π‘₯ ∈ 𝐴 ↦ 𝑅) β†Ύ (𝑀 ∩ 𝐴)) = ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)
178173, 177eqtri 2761 . . . . . . . . . . . . . . 15 ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) = ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)
179178sseq1i 4010 . . . . . . . . . . . . . 14 (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
180 dfss3 3970 . . . . . . . . . . . . . 14 (ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ βˆ€π‘§ ∈ ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)𝑧 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
181179, 180bitri 275 . . . . . . . . . . . . 13 (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ βˆ€π‘§ ∈ ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)𝑧 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))
18213adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ βˆ€π‘₯ ∈ 𝐴 𝑅 ∈ β„‚)
183 ssralv 4050 . . . . . . . . . . . . . . . 16 ((𝑀 ∩ 𝐴) βŠ† 𝐴 β†’ (βˆ€π‘₯ ∈ 𝐴 𝑅 ∈ β„‚ β†’ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ β„‚))
184174, 182, 183mpsyl 68 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ β„‚)
185 eqid 2733 . . . . . . . . . . . . . . . 16 (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅) = (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)
186 eleq1 2822 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑅 β†’ (𝑧 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
187185, 186ralrnmptw 7093 . . . . . . . . . . . . . . 15 (βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ β„‚ β†’ (βˆ€π‘§ ∈ ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)𝑧 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
188184, 187syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (βˆ€π‘§ ∈ ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)𝑧 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
189188biimpd 228 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (βˆ€π‘§ ∈ ran (π‘₯ ∈ (𝑀 ∩ 𝐴) ↦ 𝑅)𝑧 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
190181, 189biimtrid 241 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)))
191 simplrr 777 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ (π‘˜(,]+∞) βŠ† 𝑀)
19234ad3antrrr 729 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ 𝐡 βŠ† ℝ*)
193 simprl 770 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘₯ ∈ 𝐡)
194192, 193sseldd 3983 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘₯ ∈ ℝ*)
195 simprr 772 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘˜ < π‘₯)
196 pnfge 13107 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘₯ ∈ ℝ* β†’ π‘₯ ≀ +∞)
197194, 196syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘₯ ≀ +∞)
198 simplrl 776 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘˜ ∈ ℝ)
199198rexrd 11261 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘˜ ∈ ℝ*)
200199, 35, 60sylancl 587 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ (π‘₯ ∈ (π‘˜(,]+∞) ↔ (π‘₯ ∈ ℝ* ∧ π‘˜ < π‘₯ ∧ π‘₯ ≀ +∞)))
201194, 195, 197, 200mpbir3and 1343 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘₯ ∈ (π‘˜(,]+∞))
202191, 201sseldd 3983 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘₯ ∈ 𝑀)
20324ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ 𝐡 βŠ† 𝐴)
204203sselda 3982 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ π‘₯ ∈ 𝐡) β†’ π‘₯ ∈ 𝐴)
205204adantrr 716 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘₯ ∈ 𝐴)
206202, 205elind 4194 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘₯ ∈ (𝑀 ∩ 𝐴))
207206ex 414 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ ((π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯) β†’ π‘₯ ∈ (𝑀 ∩ 𝐴)))
208207imim1d 82 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ ((π‘₯ ∈ (𝑀 ∩ 𝐴) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ ((π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ))))
20918a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚))
21072adantl 483 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ π‘Ÿ ∈ ℝ*)
211210ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ π‘Ÿ ∈ ℝ*)
21214ad3antrrr 729 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ 𝐢 ∈ β„‚)
21326ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ βˆ€π‘₯ ∈ 𝐡 𝑅 ∈ β„‚)
214213r19.21bi 3249 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ π‘₯ ∈ 𝐡) β†’ 𝑅 ∈ β„‚)
215214adantrr 716 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ 𝑅 ∈ β„‚)
216209, 211, 212, 215, 77syl22anc 838 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ (𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ (𝑅(abs ∘ βˆ’ )𝐢) < π‘Ÿ))
217215, 212, 80syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ (𝑅(abs ∘ βˆ’ )𝐢) = (absβ€˜(𝑅 βˆ’ 𝐢)))
218217breq1d 5158 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ ((𝑅(abs ∘ βˆ’ )𝐢) < π‘Ÿ ↔ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
219216, 218bitrd 279 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ (π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯)) β†’ (𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) ↔ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
220219pm5.74da 803 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ (((π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ↔ ((π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯) β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
221208, 220sylibd 238 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ ((π‘₯ ∈ (𝑀 ∩ 𝐴) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ ((π‘₯ ∈ 𝐡 ∧ π‘˜ < π‘₯) β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
222221exp4a 433 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ ((π‘₯ ∈ (𝑀 ∩ 𝐴) β†’ 𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ (π‘₯ ∈ 𝐡 β†’ (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))))
223222ralimdv2 3164 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ (βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
224223imp 408 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) ∧ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
225224an32s 651 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ∧ (π‘˜ ∈ ℝ ∧ (π‘˜(,]+∞) βŠ† 𝑀)) β†’ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
226225expr 458 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) ∧ π‘˜ ∈ ℝ) β†’ ((π‘˜(,]+∞) βŠ† 𝑀 β†’ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
227226reximdva 3169 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ (βˆƒπ‘˜ ∈ ℝ (π‘˜(,]+∞) βŠ† 𝑀 β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
228227ex 414 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (βˆ€π‘₯ ∈ (𝑀 ∩ 𝐴)𝑅 ∈ (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ (βˆƒπ‘˜ ∈ ℝ (π‘˜(,]+∞) βŠ† 𝑀 β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))))
229190, 228syld 47 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ (βˆƒπ‘˜ ∈ ℝ (π‘˜(,]+∞) βŠ† 𝑀 β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))))
230229com23 86 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (βˆƒπ‘˜ ∈ ℝ (π‘˜(,]+∞) βŠ† 𝑀 β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))))
231172, 230syl5 34 . . . . . . . . 9 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ((𝑀 ∈ (ordTopβ€˜ ≀ ) ∧ +∞ ∈ (𝑀 ∩ 𝐴)) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))))
232231impl 457 . . . . . . . 8 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑀 ∈ (ordTopβ€˜ ≀ )) ∧ +∞ ∈ (𝑀 ∩ 𝐴)) β†’ (((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
233232expimpd 455 . . . . . . 7 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑀 ∈ (ordTopβ€˜ ≀ )) β†’ ((+∞ ∈ (𝑀 ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
234233rexlimdva 3156 . . . . . 6 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (βˆƒπ‘€ ∈ (ordTopβ€˜ ≀ )(+∞ ∈ (𝑀 ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
235234adantlr 714 . . . . 5 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ (βˆƒπ‘€ ∈ (ordTopβ€˜ ≀ )(+∞ ∈ (𝑀 ∩ 𝐴) ∧ ((π‘₯ ∈ 𝐴 ↦ 𝑅) β€œ (𝑀 ∩ 𝐴)) βŠ† (𝐢(ballβ€˜(abs ∘ βˆ’ ))π‘Ÿ)) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
236169, 235mpd 15 . . . 4 (((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) ∧ π‘Ÿ ∈ ℝ+) β†’ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
237236ralrimiva 3147 . . 3 ((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) β†’ βˆ€π‘Ÿ ∈ ℝ+ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ))
23826, 32, 14rlim2lt 15438 . . . 4 (πœ‘ β†’ ((π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢 ↔ βˆ€π‘Ÿ ∈ ℝ+ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
239238adantr 482 . . 3 ((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) β†’ ((π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢 ↔ βˆ€π‘Ÿ ∈ ℝ+ βˆƒπ‘˜ ∈ ℝ βˆ€π‘₯ ∈ 𝐡 (π‘˜ < π‘₯ β†’ (absβ€˜(𝑅 βˆ’ 𝐢)) < π‘Ÿ)))
240237, 239mpbird 257 . 2 ((πœ‘ ∧ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)) β†’ (π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢)
241143, 240impbida 800 1 (πœ‘ β†’ ((π‘₯ ∈ 𝐡 ↦ 𝑅) β‡π‘Ÿ 𝐢 ↔ (π‘₯ ∈ 𝐴 ↦ 𝑅) ∈ ((𝐾 CnP 𝐽)β€˜+∞)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  βˆ€wral 3062  βˆƒwrex 3071  {crab 3433  Vcvv 3475   βˆͺ cun 3946   ∩ cin 3947   βŠ† wss 3948  {csn 4628   class class class wbr 5148   ↦ cmpt 5231  β—‘ccnv 5675  dom cdm 5676  ran crn 5677   β†Ύ cres 5678   β€œ cima 5679   ∘ ccom 5680  Fun wfun 6535  βŸΆwf 6537  β€˜cfv 6541  (class class class)co 7406  β„‚cc 11105  β„cr 11106  +∞cpnf 11242  β„*cxr 11244   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441  β„+crp 12971  (,]cioc 13322  abscabs 15178   β‡π‘Ÿ crli 15426   β†Ύt crest 17363  TopOpenctopn 17364  ordTopcordt 17442  βˆžMetcxmet 20922  ballcbl 20924  β„‚fldccnfld 20937  Topctop 22387  TopOnctopon 22404   CnP ccnp 22721
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 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185
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 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-om 7853  df-1st 7972  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-er 8700  df-map 8819  df-pm 8820  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fi 9403  df-sup 9434  df-inf 9435  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-seq 13964  df-exp 14025  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-rlim 15430  df-struct 17077  df-slot 17112  df-ndx 17124  df-base 17142  df-plusg 17207  df-mulr 17208  df-starv 17209  df-tset 17213  df-ple 17214  df-ds 17216  df-unif 17217  df-rest 17365  df-topn 17366  df-topgen 17386  df-ordt 17444  df-ps 18516  df-tsr 18517  df-psmet 20929  df-xmet 20930  df-met 20931  df-bl 20932  df-mopn 20933  df-cnfld 20938  df-top 22388  df-topon 22405  df-topsp 22427  df-bases 22441  df-cnp 22724  df-xms 23818  df-ms 23819
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator