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

Theorem lgamucov 26874
Description: The π‘ˆ regions used in the proof of lgamgulm 26871 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 24599 . . 3 (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚)
2 difss 4123 . . . . 5 (β„€ βˆ– β„•) βŠ† β„€
3 lgamucov.j . . . . . 6 𝐽 = (TopOpenβ€˜β„‚fld)
43sszcld 24643 . . . . 5 ((β„€ βˆ– β„•) βŠ† β„€ β†’ (β„€ βˆ– β„•) ∈ (Clsdβ€˜π½))
53cnfldtopon 24609 . . . . . . 7 𝐽 ∈ (TopOnβ€˜β„‚)
65toponunii 22728 . . . . . 6 β„‚ = βˆͺ 𝐽
76cldopn 22845 . . . . 5 ((β„€ βˆ– β„•) ∈ (Clsdβ€˜π½) β†’ (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽)
82, 4, 7mp2b 10 . . . 4 (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽
98a1i 11 . . 3 (πœ‘ β†’ (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽)
10 lgamucov.a . . 3 (πœ‘ β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
113cnfldtopn 24608 . . . 4 𝐽 = (MetOpenβ€˜(abs ∘ βˆ’ ))
1211mopni2 24312 . . 3 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (β„‚ βˆ– (β„€ βˆ– β„•)) ∈ 𝐽 ∧ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•))) β†’ βˆƒπ‘Ž ∈ ℝ+ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
131, 9, 10, 12mp3an2i 1462 . 2 (πœ‘ β†’ βˆƒπ‘Ž ∈ ℝ+ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
1410eldifad 3952 . . . . . . . 8 (πœ‘ β†’ 𝐴 ∈ β„‚)
1514adantr 480 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ 𝐴 ∈ β„‚)
1615abscld 15379 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (absβ€˜π΄) ∈ ℝ)
17 simprl 768 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ π‘Ž ∈ ℝ+)
1817rpred 13012 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ π‘Ž ∈ ℝ)
1916, 18readdcld 11239 . . . . 5 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ ((absβ€˜π΄) + π‘Ž) ∈ ℝ)
20 2re 12282 . . . . . . 7 2 ∈ ℝ
2120a1i 11 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ 2 ∈ ℝ)
2221, 17rerpdivcld 13043 . . . . 5 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (2 / π‘Ž) ∈ ℝ)
2319, 22readdcld 11239 . . . 4 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ)
24 arch 12465 . . . 4 ((((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ β†’ βˆƒπ‘Ÿ ∈ β„• (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
2523, 24syl 17 . . 3 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ βˆƒπ‘Ÿ ∈ β„• (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
263cnfldtop 24610 . . . . . . . 8 𝐽 ∈ Top
2726a1i 11 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐽 ∈ Top)
28 lgamucov.u . . . . . . . . 9 π‘ˆ = {π‘₯ ∈ β„‚ ∣ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))}
2928ssrab3 4072 . . . . . . . 8 π‘ˆ βŠ† β„‚
3029a1i 11 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ π‘ˆ βŠ† β„‚)
3115ad2antrr 723 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐴 ∈ β„‚)
3217ad2antrr 723 . . . . . . . . . 10 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ π‘Ž ∈ ℝ+)
3332rphalfcld 13024 . . . . . . . . 9 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (π‘Ž / 2) ∈ ℝ+)
3433rpxrd 13013 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (π‘Ž / 2) ∈ ℝ*)
3511blopn 24319 . . . . . . . 8 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐴 ∈ β„‚ ∧ (π‘Ž / 2) ∈ ℝ*) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ∈ 𝐽)
361, 31, 34, 35mp3an2i 1462 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ∈ 𝐽)
37 simplr 766 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘₯ ∈ β„‚)
3837abscld 15379 . . . . . . . . . . . 12 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) ∈ ℝ)
39 simp-4r 781 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ÿ ∈ β„•)
4039nnred 12223 . . . . . . . . . . . 12 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ÿ ∈ ℝ)
4123ad4antr 729 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ)
4219ad4antr 729 . . . . . . . . . . . . . 14 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π΄) + π‘Ž) ∈ ℝ)
4316ad4antr 729 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π΄) ∈ ℝ)
4438, 43resubcld 11638 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) ∈ ℝ)
4518ad4antr 729 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ž ∈ ℝ)
4645rehalfcld 12455 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (π‘Ž / 2) ∈ ℝ)
4731ad2antrr 723 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ 𝐴 ∈ β„‚)
4837, 47subcld 11567 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (π‘₯ βˆ’ 𝐴) ∈ β„‚)
4948abscld 15379 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜(π‘₯ βˆ’ 𝐴)) ∈ ℝ)
5037, 47abs2difd 15400 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) ≀ (absβ€˜(π‘₯ βˆ’ 𝐴)))
51 eqid 2724 . . . . . . . . . . . . . . . . . . . . 21 (abs ∘ βˆ’ ) = (abs ∘ βˆ’ )
5251cnmetdval 24597 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) = (absβ€˜(𝐴 βˆ’ π‘₯)))
5347, 37, 52syl2anc 583 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) = (absβ€˜(𝐴 βˆ’ π‘₯)))
5447, 37abssubd 15396 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜(𝐴 βˆ’ π‘₯)) = (absβ€˜(π‘₯ βˆ’ 𝐴)))
5553, 54eqtrd 2764 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) = (absβ€˜(π‘₯ βˆ’ 𝐴)))
56 simpr 484 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2))
5755, 56eqbrtrrd 5162 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜(π‘₯ βˆ’ 𝐴)) < (π‘Ž / 2))
5844, 49, 46, 50, 57lelttrd 11368 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) < (π‘Ž / 2))
5932ad2antrr 723 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ π‘Ž ∈ ℝ+)
60 rphalflt 12999 . . . . . . . . . . . . . . . . 17 (π‘Ž ∈ ℝ+ β†’ (π‘Ž / 2) < π‘Ž)
6159, 60syl 17 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (π‘Ž / 2) < π‘Ž)
6244, 46, 45, 58, 61lttrd 11371 . . . . . . . . . . . . . . 15 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) βˆ’ (absβ€˜π΄)) < π‘Ž)
6338, 43, 45ltsubadd2d 11808 . . . . . . . . . . . . . . 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 12975 . . . . . . . . . . . . . . . . 17 2 ∈ ℝ+
6665a1i 11 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ 2 ∈ ℝ+)
6766, 59rpdivcld 13029 . . . . . . . . . . . . . . 15 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (2 / π‘Ž) ∈ ℝ+)
6842, 67ltaddrpd 13045 . . . . . . . . . . . . . 14 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π΄) + π‘Ž) < (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)))
6938, 42, 41, 64, 68lttrd 11371 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) < (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)))
70 simpllr 773 . . . . . . . . . . . . 13 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
7138, 41, 40, 69, 70lttrd 11371 . . . . . . . . . . . 12 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) < π‘Ÿ)
7238, 40, 71ltled 11358 . . . . . . . . . . 11 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ (absβ€˜π‘₯) ≀ π‘Ÿ)
7339adantr 480 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ÿ ∈ β„•)
7473nnrecred 12259 . . . . . . . . . . . . 13 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) ∈ ℝ)
75 simpllr 773 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘₯ ∈ β„‚)
76 simpr 484 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘˜ ∈ β„•0)
7776nn0cnd 12530 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘˜ ∈ β„‚)
7875, 77addcld 11229 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯ + π‘˜) ∈ β„‚)
7978abscld 15379 . . . . . . . . . . . . 13 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (absβ€˜(π‘₯ + π‘˜)) ∈ ℝ)
8046adantr 480 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘Ž / 2) ∈ ℝ)
8122ad5antr 731 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) ∈ ℝ)
8241adantr 480 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) ∈ ℝ)
8340adantr 480 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ÿ ∈ ℝ)
8447adantr 480 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 𝐴 ∈ β„‚)
8510ad6antr 733 . . . . . . . . . . . . . . . . . . . . 21 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
8685dmgmn0 26862 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 𝐴 β‰  0)
8784, 86absrpcld 15391 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (absβ€˜π΄) ∈ ℝ+)
8859adantr 480 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž ∈ ℝ+)
8987, 88rpaddcld 13027 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ ((absβ€˜π΄) + π‘Ž) ∈ ℝ+)
9081, 89ltaddrp2d 13046 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) < (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)))
91 simp-4r 781 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ)
9281, 82, 83, 90, 91lttrd 11371 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) < π‘Ÿ)
9367adantr 480 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (2 / π‘Ž) ∈ ℝ+)
9473nnrpd 13010 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ÿ ∈ ℝ+)
9593, 94ltrecd 13030 . . . . . . . . . . . . . . . 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 12286 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 2 ∈ β„‚)
9888rpcnd 13014 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž ∈ β„‚)
99 2ne0 12312 . . . . . . . . . . . . . . . . 17 2 β‰  0
10099a1i 11 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ 2 β‰  0)
10188rpne0d 13017 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž β‰  0)
10297, 98, 100, 101recdivd 12003 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / (2 / π‘Ž)) = (π‘Ž / 2))
10396, 102breqtrd 5164 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) < (π‘Ž / 2))
104 eldmgm 26858 . . . . . . . . . . . . . . . . 17 (-π‘˜ ∈ (β„‚ βˆ– (β„€ βˆ– β„•)) ↔ (-π‘˜ ∈ β„‚ ∧ Β¬ --π‘˜ ∈ β„•0))
105104simprbi 496 . . . . . . . . . . . . . . . 16 (-π‘˜ ∈ (β„‚ βˆ– (β„€ βˆ– β„•)) β†’ Β¬ --π‘˜ ∈ β„•0)
10677negnegd 11558 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ --π‘˜ = π‘˜)
107106, 76eqeltrd 2825 . . . . . . . . . . . . . . . 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 727 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘Ž / 2) ∈ ℝ*)
11177negcld 11554 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ -π‘˜ ∈ β„‚)
112 elbl2 24206 . . . . . . . . . . . . . . . . . 18 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (π‘Ž / 2) ∈ ℝ*) ∧ (π‘₯ ∈ β„‚ ∧ -π‘˜ ∈ β„‚)) β†’ (-π‘˜ ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ (π‘₯(abs ∘ βˆ’ )-π‘˜) < (π‘Ž / 2)))
113109, 110, 75, 111, 112syl22anc 836 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (-π‘˜ ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ (π‘₯(abs ∘ βˆ’ )-π‘˜) < (π‘Ž / 2)))
11451cnmetdval 24597 . . . . . . . . . . . . . . . . . . . 20 ((π‘₯ ∈ β„‚ ∧ -π‘˜ ∈ β„‚) β†’ (π‘₯(abs ∘ βˆ’ )-π‘˜) = (absβ€˜(π‘₯ βˆ’ -π‘˜)))
11575, 111, 114syl2anc 583 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(abs ∘ βˆ’ )-π‘˜) = (absβ€˜(π‘₯ βˆ’ -π‘˜)))
11675, 77subnegd 11574 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯ βˆ’ -π‘˜) = (π‘₯ + π‘˜))
117116fveq2d 6885 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (absβ€˜(π‘₯ βˆ’ -π‘˜)) = (absβ€˜(π‘₯ + π‘˜)))
118115, 117eqtrd 2764 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(abs ∘ βˆ’ )-π‘˜) = (absβ€˜(π‘₯ + π‘˜)))
119118breq1d 5148 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ ((π‘₯(abs ∘ βˆ’ )-π‘˜) < (π‘Ž / 2) ↔ (absβ€˜(π‘₯ + π‘˜)) < (π‘Ž / 2)))
12079, 80ltnled 11357 . . . . . . . . . . . . . . . . 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 480 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ π‘Ž ∈ ℝ)
123 simplr 766 . . . . . . . . . . . . . . . . . . . 20 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2))
124 elbl3 24208 . . . . . . . . . . . . . . . . . . . . 21 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (π‘Ž / 2) ∈ ℝ*) ∧ (π‘₯ ∈ β„‚ ∧ 𝐴 ∈ β„‚)) β†’ (𝐴 ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ↔ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)))
125109, 110, 75, 84, 124syl22anc 836 . . . . . . . . . . . . . . . . . . . 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 24221 . . . . . . . . . . . . . . . . . . 19 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ π‘₯ ∈ β„‚) ∧ (π‘Ž ∈ ℝ ∧ 𝐴 ∈ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)))) β†’ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž))
128109, 75, 122, 126, 127syl22anc 836 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž))
129 simprr 770 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
130129ad5antr 731 . . . . . . . . . . . . . . . . . 18 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
131128, 130sstrd 3984 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (π‘₯(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))
132131sseld 3973 . . . . . . . . . . . . . . . 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 11370 . . . . . . . . . . . . 13 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) < (absβ€˜(π‘₯ + π‘˜)))
13674, 79, 135ltled 11358 . . . . . . . . . . . 12 (((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) ∧ π‘˜ ∈ β„•0) β†’ (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))
137136ralrimiva 3138 . . . . . . . . . . 11 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))
13872, 137jca 511 . . . . . . . . . 10 ((((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) ∧ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)) β†’ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜))))
139138ex 412 . . . . . . . . 9 (((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) ∧ π‘₯ ∈ β„‚) β†’ ((𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2) β†’ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))))
140139ss2rabdv 4065 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ {π‘₯ ∈ β„‚ ∣ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)} βŠ† {π‘₯ ∈ β„‚ ∣ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))})
141 blval 24202 . . . . . . . . 9 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐴 ∈ β„‚ ∧ (π‘Ž / 2) ∈ ℝ*) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) = {π‘₯ ∈ β„‚ ∣ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)})
1421, 31, 34, 141mp3an2i 1462 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) = {π‘₯ ∈ β„‚ ∣ (𝐴(abs ∘ βˆ’ )π‘₯) < (π‘Ž / 2)})
14328a1i 11 . . . . . . . 8 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ π‘ˆ = {π‘₯ ∈ β„‚ ∣ ((absβ€˜π‘₯) ≀ π‘Ÿ ∧ βˆ€π‘˜ ∈ β„•0 (1 / π‘Ÿ) ≀ (absβ€˜(π‘₯ + π‘˜)))})
144140, 142, 1433sstr4d 4021 . . . . . . 7 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† π‘ˆ)
1456ssntr 22872 . . . . . . 7 (((𝐽 ∈ Top ∧ π‘ˆ βŠ† β„‚) ∧ ((𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) ∈ 𝐽 ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† π‘ˆ)) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† ((intβ€˜π½)β€˜π‘ˆ))
14627, 30, 36, 144, 145syl22anc 836 . . . . . 6 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)) βŠ† ((intβ€˜π½)β€˜π‘ˆ))
147 blcntr 24229 . . . . . . 7 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 𝐴 ∈ β„‚ ∧ (π‘Ž / 2) ∈ ℝ+) β†’ 𝐴 ∈ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)))
1481, 31, 33, 147mp3an2i 1462 . . . . . 6 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐴 ∈ (𝐴(ballβ€˜(abs ∘ βˆ’ ))(π‘Ž / 2)))
149146, 148sseldd 3975 . . . . 5 ((((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) ∧ (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ) β†’ 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ))
150149ex 412 . . . 4 (((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) ∧ π‘Ÿ ∈ β„•) β†’ ((((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ β†’ 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ)))
151150reximdva 3160 . . 3 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ (βˆƒπ‘Ÿ ∈ β„• (((absβ€˜π΄) + π‘Ž) + (2 / π‘Ž)) < π‘Ÿ β†’ βˆƒπ‘Ÿ ∈ β„• 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ)))
15225, 151mpd 15 . 2 ((πœ‘ ∧ (π‘Ž ∈ ℝ+ ∧ (𝐴(ballβ€˜(abs ∘ βˆ’ ))π‘Ž) βŠ† (β„‚ βˆ– (β„€ βˆ– β„•)))) β†’ βˆƒπ‘Ÿ ∈ β„• 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ))
15313, 152rexlimddv 3153 1 (πœ‘ β†’ βˆƒπ‘Ÿ ∈ β„• 𝐴 ∈ ((intβ€˜π½)β€˜π‘ˆ))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   = wceq 1533   ∈ wcel 2098   β‰  wne 2932  βˆ€wral 3053  βˆƒwrex 3062  {crab 3424   βˆ– cdif 3937   βŠ† wss 3940   class class class wbr 5138   ∘ ccom 5670  β€˜cfv 6533  (class class class)co 7401  β„‚cc 11103  β„cr 11104  0cc0 11105  1c1 11106   + caddc 11108  β„*cxr 11243   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  -cneg 11441   / cdiv 11867  β„•cn 12208  2c2 12263  β„•0cn0 12468  β„€cz 12554  β„+crp 12970  abscabs 15177  TopOpenctopn 17363  βˆžMetcxmet 21208  ballcbl 21210  β„‚fldccnfld 21223  Topctop 22705  Clsdccld 22830  intcnt 22831
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-cnex 11161  ax-resscn 11162  ax-1cn 11163  ax-icn 11164  ax-addcl 11165  ax-addrcl 11166  ax-mulcl 11167  ax-mulrcl 11168  ax-mulcom 11169  ax-addass 11170  ax-mulass 11171  ax-distr 11172  ax-i2m1 11173  ax-1ne0 11174  ax-1rid 11175  ax-rnegex 11176  ax-rrecex 11177  ax-cnre 11178  ax-pre-lttri 11179  ax-pre-lttrn 11180  ax-pre-ltadd 11181  ax-pre-mulgt0 11182  ax-pre-sup 11183
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-tp 4625  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-iin 4990  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-om 7849  df-1st 7968  df-2nd 7969  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-er 8698  df-map 8817  df-en 8935  df-dom 8936  df-sdom 8937  df-fin 8938  df-fi 9401  df-sup 9432  df-inf 9433  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-fz 13481  df-fl 13753  df-seq 13963  df-exp 14024  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-struct 17076  df-slot 17111  df-ndx 17123  df-base 17141  df-plusg 17206  df-mulr 17207  df-starv 17208  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-rest 17364  df-topn 17365  df-topgen 17385  df-psmet 21215  df-xmet 21216  df-met 21217  df-bl 21218  df-mopn 21219  df-cnfld 21224  df-top 22706  df-topon 22723  df-topsp 22745  df-bases 22759  df-cld 22833  df-ntr 22834  df-xms 24136  df-ms 24137
This theorem is referenced by:  lgamucov2  26875
  Copyright terms: Public domain W3C validator