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

Theorem lgamucov 26532
Description: The π‘ˆ regions used in the proof of lgamgulm 26529 have interiors which cover the entire domain of the Gamma function. (Contributed by Mario Carneiro, 6-Jul-2017.)
Hypotheses
Ref Expression
lgamucov.u π‘ˆ = {π‘₯ ∈ β„‚ ∣ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))}
lgamucov.a (πœ‘ β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
lgamucov.j 𝐽 = (TopOpenβ€˜β„‚fld)
Assertion
Ref Expression
lgamucov (πœ‘ β†’ βˆƒπ‘Ÿ ∈ β„• 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ))
Distinct variable groups:   π‘˜,π‘Ÿ,π‘₯,𝐴   πœ‘,π‘˜,π‘Ÿ,π‘₯
Allowed substitution hints:   π‘ˆ(π‘₯,π‘˜,π‘Ÿ)   𝐽(π‘₯,π‘˜,π‘Ÿ)

Proof of Theorem lgamucov
Dummy variable π‘Ž is distinct from all other variables.
StepHypRef Expression
1 cnxmet 24281 . . 3 (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚)
2 difss 4131 . . . . 5 (β„€ βˆ– β„•) βŠ† β„€
3 lgamucov.j . . . . . 6 𝐽 = (TopOpenβ€˜β„‚fld)
43sszcld 24325 . . . . 5 ((β„€ βˆ– β„•) βŠ† β„€ β†’ (β„€ βˆ– β„•) ∈ (Clsdβ€˜π½))
53cnfldtopon 24291 . . . . . . 7 𝐽 ∈ (TopOnβ€˜β„‚)
65toponunii 22410 . . . . . 6 β„‚ = βˆͺ 𝐽
76cldopn 22527 . . . . 5 ((β„€ βˆ– β„•) ∈ (Clsdβ€˜π½) β†’ (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽)
82, 4, 7mp2b 10 . . . 4 (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽
98a1i 11 . . 3 (πœ‘ β†’ (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽)
10 lgamucov.a . . 3 (πœ‘ β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
113cnfldtopn 24290 . . . 4 𝐽 = (MetOpenβ€˜(abs ∘ βˆ’ ))
1211mopni2 23994 . . 3 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽 ∧ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•))) β†’ βˆƒπ‘Ž ∈ ℝ+ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
131, 9, 10, 12mp3an2i 1467 . 2 (πœ‘ β†’ βˆƒπ‘Ž ∈ ℝ+ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
1410eldifad 3960 . . . . . . . 8 (πœ‘ β†’ 𝐴 ∈ β„‚)
1514adantr 482 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ 𝐴 ∈ β„‚)
1615abscld 15380 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (absβ€˜π΄) ∈ ℝ)
17 simprl 770 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ π‘Ž ∈ ℝ+)
1817rpred 13013 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ π‘Ž ∈ ℝ)
1916, 18readdcld 11240 . . . . 5 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ ((absβ€˜π΄) + π‘Ž) ∈ ℝ)
20 2re 12283 . . . . . . 7 2 ∈ ℝ
2120a1i 11 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ 2 ∈ ℝ)
2221, 17rerpdivcld 13044 . . . . 5 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (2 / π‘Ž) ∈ ℝ)
2319, 22readdcld 11240 . . . 4 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ)
24 arch 12466 . . . 4 ((((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ β†’ βˆƒπ‘Ÿ ∈ β„• (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
2523, 24syl 17 . . 3 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ βˆƒπ‘Ÿ ∈ β„• (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
263cnfldtop 24292 . . . . . . . 8 𝐽 ∈ Top
2726a1i 11 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐽 ∈ Top)
28 lgamucov.u . . . . . . . . 9 π‘ˆ = {π‘₯ ∈ β„‚ ∣ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))}
2928ssrab3 4080 . . . . . . . 8 π‘ˆ βŠ† β„‚
3029a1i 11 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ π‘ˆ βŠ† β„‚)
3115ad2antrr 725 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐴 ∈ β„‚)
3217ad2antrr 725 . . . . . . . . . 10 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ π‘Ž ∈ ℝ+)
3332rphalfcld 13025 . . . . . . . . 9 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (π‘Ž / 2) ∈ ℝ+)
3433rpxrd 13014 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (π‘Ž / 2) ∈ ℝ*)
3511blopn 24001 . . . . . . . 8 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐴 ∈ β„‚ ∧ (π‘Ž / 2) ∈ ℝ*) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ∈ 𝐽)
361, 31, 34, 35mp3an2i 1467 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ∈ 𝐽)
37 simplr 768 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘₯ ∈ β„‚)
3837abscld 15380 . . . . . . . . . . . 12 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) ∈ ℝ)
39 simp-4r 783 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ÿ ∈ β„•)
4039nnred 12224 . . . . . . . . . . . 12 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ÿ ∈ ℝ)
4123ad4antr 731 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ)
4219ad4antr 731 . . . . . . . . . . . . . 14 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π΄) + π‘Ž) ∈ ℝ)
4316ad4antr 731 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π΄) ∈ ℝ)
4438, 43resubcld 11639 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) ∈ ℝ)
4518ad4antr 731 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ž ∈ ℝ)
4645rehalfcld 12456 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (π‘Ž / 2) ∈ ℝ)
4731ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ 𝐴 ∈ β„‚)
4837, 47subcld 11568 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (π‘₯ βˆ’ 𝐴) ∈ β„‚)
4948abscld 15380 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜(π‘₯ βˆ’ 𝐴)) ∈ ℝ)
5037, 47abs2difd 15401 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) ≀ (absβ€˜(π‘₯ βˆ’ 𝐴)))
51 eqid 2733 . . . . . . . . . . . . . . . . . . . . 21 (abs ∘ βˆ’ ) = (abs ∘ βˆ’ )
5251cnmetdval 24279 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) = (absβ€˜(𝐴 βˆ’ π‘₯)))
5347, 37, 52syl2anc 585 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) = (absβ€˜(𝐴 βˆ’ π‘₯)))
5447, 37abssubd 15397 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜(𝐴 βˆ’ π‘₯)) = (absβ€˜(π‘₯ βˆ’ 𝐴)))
5553, 54eqtrd 2773 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) = (absβ€˜(π‘₯ βˆ’ 𝐴)))
56 simpr 486 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2))
5755, 56eqbrtrrd 5172 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜(π‘₯ βˆ’ 𝐴)) < (π‘Ž / 2))
5844, 49, 46, 50, 57lelttrd 11369 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) < (π‘Ž / 2))
5932ad2antrr 725 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ž ∈ ℝ+)
60 rphalflt 13000 . . . . . . . . . . . . . . . . 17 (π‘Ž ∈ ℝ+ β†’ (π‘Ž / 2) < π‘Ž)
6159, 60syl 17 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (π‘Ž / 2) < π‘Ž)
6244, 46, 45, 58, 61lttrd 11372 . . . . . . . . . . . . . . 15 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) < π‘Ž)
6338, 43, 45ltsubadd2d 11809 . . . . . . . . . . . . . . 15 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) < π‘Ž ↔ (absβ€˜π‘₯) < ((absβ€˜π΄) + π‘Ž)))
6462, 63mpbid 231 . . . . . . . . . . . . . 14 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) < ((absβ€˜π΄) + π‘Ž))
65 2rp 12976 . . . . . . . . . . . . . . . . 17 2 ∈ ℝ+
6665a1i 11 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ 2 ∈ ℝ+)
6766, 59rpdivcld 13030 . . . . . . . . . . . . . . 15 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (2 / π‘Ž) ∈ ℝ+)
6842, 67ltaddrpd 13046 . . . . . . . . . . . . . 14 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π΄) + π‘Ž) < (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)))
6938, 42, 41, 64, 68lttrd 11372 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) < (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)))
70 simpllr 775 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
7138, 41, 40, 69, 70lttrd 11372 . . . . . . . . . . . 12 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) < π‘Ÿ)
7238, 40, 71ltled 11359 . . . . . . . . . . 11 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) ≀ π‘Ÿ)
7339adantr 482 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ÿ ∈ β„•)
7473nnrecred 12260 . . . . . . . . . . . . 13 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) ∈ ℝ)
75 simpllr 775 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘₯ ∈ β„‚)
76 simpr 486 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘˜ ∈ β„•0)
7776nn0cnd 12531 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘˜ ∈ β„‚)
7875, 77addcld 11230 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯ + π‘˜) ∈ β„‚)
7978abscld 15380 . . . . . . . . . . . . 13 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (absβ€˜(π‘₯ + π‘˜)) ∈ ℝ)
8046adantr 482 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘Ž / 2) ∈ ℝ)
8122ad5antr 733 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) ∈ ℝ)
8241adantr 482 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ)
8340adantr 482 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ÿ ∈ ℝ)
8447adantr 482 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 𝐴 ∈ β„‚)
8510ad6antr 735 . . . . . . . . . . . . . . . . . . . . 21 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
8685dmgmn0 26520 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 𝐴 β‰  0)
8784, 86absrpcld 15392 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (absβ€˜π΄) ∈ ℝ+)
8859adantr 482 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž ∈ ℝ+)
8987, 88rpaddcld 13028 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ ((absβ€˜π΄) + π‘Ž) ∈ ℝ+)
9081, 89ltaddrp2d 13047 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) < (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)))
91 simp-4r 783 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
9281, 82, 83, 90, 91lttrd 11372 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) < π‘Ÿ)
9367adantr 482 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) ∈ ℝ+)
9473nnrpd 13011 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ÿ ∈ ℝ+)
9593, 94ltrecd 13031 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ ((2 / π‘Ž) < π‘Ÿ ↔ (1 / π‘Ÿ) < (1 / (2 / π‘Ž))))
9692, 95mpbid 231 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) < (1 / (2 / π‘Ž)))
97 2cnd 12287 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 2 ∈ β„‚)
9888rpcnd 13015 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž ∈ β„‚)
99 2ne0 12313 . . . . . . . . . . . . . . . . 17 2 β‰  0
10099a1i 11 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 2 β‰  0)
10188rpne0d 13018 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž β‰  0)
10297, 98, 100, 101recdivd 12004 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / (2 / π‘Ž)) = (π‘Ž / 2))
10396, 102breqtrd 5174 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) < (π‘Ž / 2))
104 eldmgm 26516 . . . . . . . . . . . . . . . . 17 (-π‘˜ ∈ (β„‚ βˆ– (β„€ βˆ– β„•)) ↔ (-π‘˜ ∈ β„‚ ∧ Β¬ --π‘˜ ∈ β„•0))
105104simprbi 498 . . . . . . . . . . . . . . . 16 (-π‘˜ ∈ (β„‚ βˆ– (β„€ βˆ– β„•)) β†’ Β¬ --π‘˜ ∈ β„•0)
10677negnegd 11559 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ --π‘˜ = π‘˜)
107106, 76eqeltrd 2834 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ --π‘˜ ∈ β„•0)
108105, 107nsyl3 138 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ Β¬ -π‘˜ ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
1091a1i 11 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚))
11034ad3antrrr 729 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘Ž / 2) ∈ ℝ*)
11177negcld 11555 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ -π‘˜ ∈ β„‚)
112 elbl2 23888 . . . . . . . . . . . . . . . . . 18 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (π‘Ž / 2) ∈ ℝ*) ∧ (π‘₯ ∈ β„‚ ∧ -π‘˜ ∈ β„‚)) β†’ (-π‘˜ ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ (π‘₯(abs ∘ βˆ’ )-π‘˜) < (π‘Ž / 2)))
113109, 110, 75, 111, 112syl22anc 838 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (-π‘˜ ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ (π‘₯(abs ∘ βˆ’ )-π‘˜) < (π‘Ž / 2)))
11451cnmetdval 24279 . . . . . . . . . . . . . . . . . . . 20 ((π‘₯ ∈ β„‚ ∧ -π‘˜ ∈ β„‚) β†’ (π‘₯(abs ∘ βˆ’ )-π‘˜) = (absβ€˜(π‘₯ βˆ’ -π‘˜)))
11575, 111, 114syl2anc 585 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(abs ∘ βˆ’ )-π‘˜) = (absβ€˜(π‘₯ βˆ’ -π‘˜)))
11675, 77subnegd 11575 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯ βˆ’ -π‘˜) = (π‘₯ + π‘˜))
117116fveq2d 6893 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (absβ€˜(π‘₯ βˆ’ -π‘˜)) = (absβ€˜(π‘₯ + π‘˜)))
118115, 117eqtrd 2773 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(abs ∘ βˆ’ )-π‘˜) = (absβ€˜(π‘₯ + π‘˜)))
119118breq1d 5158 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ ((π‘₯(abs ∘ βˆ’ )-π‘˜) < (π‘Ž / 2) ↔ (absβ€˜(π‘₯ + π‘˜)) < (π‘Ž / 2)))
12079, 80ltnled 11358 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ ((absβ€˜(π‘₯ + π‘˜)) < (π‘Ž / 2) ↔ Β¬ (π‘Ž / 2) ≀ (absβ€˜(π‘₯ + π‘˜))))
121113, 119, 1203bitrd 305 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (-π‘˜ ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ Β¬ (π‘Ž / 2) ≀ (absβ€˜(π‘₯ + π‘˜))))
12245adantr 482 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž ∈ ℝ)
123 simplr 768 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2))
124 elbl3 23890 . . . . . . . . . . . . . . . . . . . . 21 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (π‘Ž / 2) ∈ ℝ*) ∧ (π‘₯ ∈ β„‚ ∧ 𝐴 ∈ β„‚)) β†’ (𝐴 ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)))
125109, 110, 75, 84, 124syl22anc 838 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (𝐴 ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)))
126123, 125mpbird 257 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 𝐴 ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)))
127 blhalf 23903 . . . . . . . . . . . . . . . . . . 19 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ π‘₯ ∈ β„‚) ∧ (π‘Ž ∈ ℝ ∧ 𝐴 ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)))) β†’ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž))
128109, 75, 122, 126, 127syl22anc 838 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž))
129 simprr 772 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
130129ad5antr 733 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
131128, 130sstrd 3992 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
132131sseld 3981 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (-π‘˜ ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) β†’ -π‘˜ ∈ (β„‚ βˆ– (β„€ βˆ– β„•))))
133121, 132sylbird 260 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (Β¬ (π‘Ž / 2) ≀ (absβ€˜(π‘₯ + π‘˜)) β†’ -π‘˜ ∈ (β„‚ βˆ– (β„€ βˆ– β„•))))
134108, 133mt3d 148 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘Ž / 2) ≀ (absβ€˜(π‘₯ + π‘˜)))
13574, 80, 79, 103, 134ltletrd 11371 . . . . . . . . . . . . 13 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) < (absβ€˜(π‘₯ + π‘˜)))
13674, 79, 135ltled 11359 . . . . . . . . . . . 12 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))
137136ralrimiva 3147 . . . . . . . . . . 11 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))
13872, 137jca 513 . . . . . . . . . 10 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜))))
139138ex 414 . . . . . . . . 9 (((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) β†’ ((𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2) β†’ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))))
140139ss2rabdv 4073 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ {π‘₯ ∈ β„‚ ∣ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)} βŠ† {π‘₯ ∈ β„‚ ∣ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))})
141 blval 23884 . . . . . . . . 9 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐴 ∈ β„‚ ∧ (π‘Ž / 2) ∈ ℝ*) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) = {π‘₯ ∈ β„‚ ∣ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)})
1421, 31, 34, 141mp3an2i 1467 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) = {π‘₯ ∈ β„‚ ∣ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)})
14328a1i 11 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ π‘ˆ = {π‘₯ ∈ β„‚ ∣ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))})
144140, 142, 1433sstr4d 4029 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† π‘ˆ)
1456ssntr 22554 . . . . . . 7 (((𝐽 ∈ Top ∧ π‘ˆ βŠ† β„‚) ∧ ((𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ∈ 𝐽 ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† π‘ˆ)) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† ((intβ€˜π½)β€˜π‘ˆ))
14627, 30, 36, 144, 145syl22anc 838 . . . . . 6 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† ((intβ€˜π½)β€˜π‘ˆ))
147 blcntr 23911 . . . . . . 7 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐴 ∈ β„‚ ∧ (π‘Ž / 2) ∈ ℝ+) β†’ 𝐴 ∈ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)))
1481, 31, 33, 147mp3an2i 1467 . . . . . 6 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐴 ∈ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)))
149146, 148sseldd 3983 . . . . 5 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ))
150149ex 414 . . . 4 (((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) β†’ ((((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ β†’ 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ)))
151150reximdva 3169 . . 3 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (βˆƒπ‘Ÿ ∈ β„• (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ β†’ βˆƒπ‘Ÿ ∈ β„• 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ)))
15225, 151mpd 15 . 2 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ βˆƒπ‘Ÿ ∈ β„• 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ))
15313, 152rexlimddv 3162 1 (πœ‘ β†’ βˆƒπ‘Ÿ ∈ β„• 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆ€wral 3062  βˆƒwrex 3071  {crab 3433   βˆ– cdif 3945   βŠ† wss 3948   class class class wbr 5148   ∘ ccom 5680  β€˜cfv 6541  (class class class)co 7406  β„‚cc 11105  β„cr 11106  0cc0 11107  1c1 11108   + caddc 11110  β„*cxr 11244   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441  -cneg 11442   / cdiv 11868  β„•cn 12209  2c2 12264  β„•0cn0 12469  β„€cz 12555  β„+crp 12971  abscabs 15178  TopOpenctopn 17364  βˆžMetcxmet 20922  ballcbl 20924  β„‚fldccnfld 20937  Topctop 22387  Clsdccld 22512  intcnt 22513
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-iin 5000  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-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-fz 13482  df-fl 13754  df-seq 13964  df-exp 14025  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  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-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-cld 22515  df-ntr 22516  df-xms 23818  df-ms 23819
This theorem is referenced by:  lgamucov2  26533
  Copyright terms: Public domain W3C validator