Metamath Proof Explorer


Theorem lgamucov

Description: The U regions used in the proof of lgamgulm have interiors which cover the entire domain of the Gamma function. (Contributed by Mario Carneiro, 6-Jul-2017)

Ref Expression
Hypotheses lgamucov.u ⊢ U = x ∈ ℂ | x ≤ r ∧ ∀ k ∈ ℕ 0 1 r ≤ x + k
lgamucov.a ⊢ φ → A ∈ ℂ ∖ ℤ ∖ ℕ
lgamucov.j ⊢ J = TopOpen ⁡ ℂ fld
Assertion lgamucov ⊢ φ → ∃ r ∈ ℕ A ∈ int ⁡ J ⁡ U

Proof

Step Hyp Ref Expression
1 lgamucov.u ⊢ U = x ∈ ℂ | x ≤ r ∧ ∀ k ∈ ℕ 0 1 r ≤ x + k
2 lgamucov.a ⊢ φ → A ∈ ℂ ∖ ℤ ∖ ℕ
3 lgamucov.j ⊢ J = TopOpen ⁡ ℂ fld
4 cnxmet ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ
5 difss ⊢ ℤ ∖ ℕ ⊆ ℤ
6 3 sszcld ⊢ ℤ ∖ ℕ ⊆ ℤ → ℤ ∖ ℕ ∈ Clsd ⁡ J
7 3 cnfldtopon ⊢ J ∈ TopOn ⁡ ℂ
8 7 toponunii ⊢ ℂ = ⋃ J
9 8 cldopn ⊢ ℤ ∖ ℕ ∈ Clsd ⁡ J → ℂ ∖ ℤ ∖ ℕ ∈ J
10 5 6 9 mp2b ⊢ ℂ ∖ ℤ ∖ ℕ ∈ J
11 10 a1i ⊢ φ → ℂ ∖ ℤ ∖ ℕ ∈ J
12 3 cnfldtopn ⊢ J = MetOpen ⁡ abs ∘ −
13 12 mopni2 ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ ∧ ℂ ∖ ℤ ∖ ℕ ∈ J ∧ A ∈ ℂ ∖ ℤ ∖ ℕ → ∃ a ∈ ℝ + A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ
14 4 11 2 13 mp3an2i ⊢ φ → ∃ a ∈ ℝ + A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ
15 2 eldifad ⊢ φ → A ∈ ℂ
16 15 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → A ∈ ℂ
17 16 abscld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → A ∈ ℝ
18 simprl ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → a ∈ ℝ +
19 18 rpred ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → a ∈ ℝ
20 17 19 readdcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → A + a ∈ ℝ
21 2re ⊢ 2 ∈ ℝ
22 21 a1i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → 2 ∈ ℝ
23 22 18 rerpdivcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → 2 a ∈ ℝ
24 20 23 readdcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → A + a + 2 a ∈ ℝ
25 arch ⊢ A + a + 2 a ∈ ℝ → ∃ r ∈ ℕ A + a + 2 a < r
26 24 25 syl ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → ∃ r ∈ ℕ A + a + 2 a < r
27 3 cnfldtop ⊢ J ∈ Top
28 27 a1i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → J ∈ Top
29 1 ssrab3 ⊢ U ⊆ ℂ
30 29 a1i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → U ⊆ ℂ
31 16 ad2antrr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → A ∈ ℂ
32 18 ad2antrr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → a ∈ ℝ +
33 32 rphalfcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → a 2 ∈ ℝ +
34 33 rpxrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → a 2 ∈ ℝ *
35 12 blopn ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ ∧ A ∈ ℂ ∧ a 2 ∈ ℝ * → A ball ⁡ abs ∘ − a 2 ∈ J
36 4 31 34 35 mp3an2i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → A ball ⁡ abs ∘ − a 2 ∈ J
37 simplr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x ∈ ℂ
38 37 abscld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x ∈ ℝ
39 simp-4r ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → r ∈ ℕ
40 39 nnred ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → r ∈ ℝ
41 24 ad4antr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A + a + 2 a ∈ ℝ
42 20 ad4antr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A + a ∈ ℝ
43 17 ad4antr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A ∈ ℝ
44 38 43 resubcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A ∈ ℝ
45 19 ad4antr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → a ∈ ℝ
46 45 rehalfcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → a 2 ∈ ℝ
47 31 ad2antrr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A ∈ ℂ
48 37 47 subcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A ∈ ℂ
49 48 abscld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A ∈ ℝ
50 37 47 abs2difd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A ≤ x − A
51 eqid ⊢ abs ∘ − = abs ∘ −
52 51 cnmetdval ⊢ A ∈ ℂ ∧ x ∈ ℂ → A abs ∘ − x = A − x
53 47 37 52 syl2anc ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A abs ∘ − x = A − x
54 47 37 abssubd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A − x = x − A
55 53 54 eqtrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A abs ∘ − x = x − A
56 simpr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A abs ∘ − x < a 2
57 55 56 eqbrtrrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A < a 2
58 44 49 46 50 57 lelttrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A < a 2
59 32 ad2antrr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → a ∈ ℝ +
60 rphalflt ⊢ a ∈ ℝ + → a 2 < a
61 59 60 syl ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → a 2 < a
62 44 46 45 58 61 lttrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A < a
63 38 43 45 ltsubadd2d ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x − A < a ↔ x < A + a
64 62 63 mpbid ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x < A + a
65 2rp ⊢ 2 ∈ ℝ +
66 65 a1i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → 2 ∈ ℝ +
67 66 59 rpdivcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → 2 a ∈ ℝ +
68 42 67 ltaddrpd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A + a < A + a + 2 a
69 38 42 41 64 68 lttrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x < A + a + 2 a
70 simpllr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → A + a + 2 a < r
71 38 41 40 69 70 lttrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x < r
72 38 40 71 ltled ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x ≤ r
73 39 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → r ∈ ℕ
74 73 nnrecred ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 1 r ∈ ℝ
75 simpllr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x ∈ ℂ
76 simpr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → k ∈ ℕ 0
77 76 nn0cnd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → k ∈ ℂ
78 75 77 addcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x + k ∈ ℂ
79 78 abscld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x + k ∈ ℝ
80 46 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → a 2 ∈ ℝ
81 23 ad5antr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 2 a ∈ ℝ
82 41 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A + a + 2 a ∈ ℝ
83 40 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → r ∈ ℝ
84 47 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A ∈ ℂ
85 2 ad6antr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A ∈ ℂ ∖ ℤ ∖ ℕ
86 85 dmgmn0 ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A ≠ 0
87 84 86 absrpcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A ∈ ℝ +
88 59 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → a ∈ ℝ +
89 87 88 rpaddcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A + a ∈ ℝ +
90 81 89 ltaddrp2d ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 2 a < A + a + 2 a
91 simp-4r ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A + a + 2 a < r
92 81 82 83 90 91 lttrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 2 a < r
93 67 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 2 a ∈ ℝ +
94 73 nnrpd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → r ∈ ℝ +
95 93 94 ltrecd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 2 a < r ↔ 1 r < 1 2 a
96 92 95 mpbid ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 1 r < 1 2 a
97 2cnd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 2 ∈ ℂ
98 88 rpcnd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → a ∈ ℂ
99 2ne0 ⊢ 2 ≠ 0
100 99 a1i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 2 ≠ 0
101 88 rpne0d ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → a ≠ 0
102 97 98 100 101 recdivd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 1 2 a = a 2
103 96 102 breqtrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 1 r < a 2
104 eldmgm ⊢ − k ∈ ℂ ∖ ℤ ∖ ℕ ↔ − k ∈ ℂ ∧ ¬ − − k ∈ ℕ 0
105 104 simprbi ⊢ − k ∈ ℂ ∖ ℤ ∖ ℕ → ¬ − − k ∈ ℕ 0
106 77 negnegd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → − − k = k
107 106 76 eqeltrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → − − k ∈ ℕ 0
108 105 107 nsyl3 ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → ¬ − k ∈ ℂ ∖ ℤ ∖ ℕ
109 4 a1i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → abs ∘ − ∈ ∞Met ⁡ ℂ
110 34 ad3antrrr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → a 2 ∈ ℝ *
111 77 negcld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → − k ∈ ℂ
112 elbl2 ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ ∧ a 2 ∈ ℝ * ∧ x ∈ ℂ ∧ − k ∈ ℂ → − k ∈ x ball ⁡ abs ∘ − a 2 ↔ x abs ∘ − − k < a 2
113 109 110 75 111 112 syl22anc ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → − k ∈ x ball ⁡ abs ∘ − a 2 ↔ x abs ∘ − − k < a 2
114 51 cnmetdval ⊢ x ∈ ℂ ∧ − k ∈ ℂ → x abs ∘ − − k = x − − k
115 75 111 114 syl2anc ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x abs ∘ − − k = x − − k
116 75 77 subnegd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x − − k = x + k
117 116 fveq2d ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x − − k = x + k
118 115 117 eqtrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x abs ∘ − − k = x + k
119 118 breq1d ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x abs ∘ − − k < a 2 ↔ x + k < a 2
120 79 80 ltnled ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x + k < a 2 ↔ ¬ a 2 ≤ x + k
121 113 119 120 3bitrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → − k ∈ x ball ⁡ abs ∘ − a 2 ↔ ¬ a 2 ≤ x + k
122 45 adantr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → a ∈ ℝ
123 simplr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A abs ∘ − x < a 2
124 elbl3 ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ ∧ a 2 ∈ ℝ * ∧ x ∈ ℂ ∧ A ∈ ℂ → A ∈ x ball ⁡ abs ∘ − a 2 ↔ A abs ∘ − x < a 2
125 109 110 75 84 124 syl22anc ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A ∈ x ball ⁡ abs ∘ − a 2 ↔ A abs ∘ − x < a 2
126 123 125 mpbird ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A ∈ x ball ⁡ abs ∘ − a 2
127 blhalf ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ ∧ x ∈ ℂ ∧ a ∈ ℝ ∧ A ∈ x ball ⁡ abs ∘ − a 2 → x ball ⁡ abs ∘ − a 2 ⊆ A ball ⁡ abs ∘ − a
128 109 75 122 126 127 syl22anc ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x ball ⁡ abs ∘ − a 2 ⊆ A ball ⁡ abs ∘ − a
129 simprr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ
130 129 ad5antr ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ
131 128 130 sstrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → x ball ⁡ abs ∘ − a 2 ⊆ ℂ ∖ ℤ ∖ ℕ
132 131 sseld ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → − k ∈ x ball ⁡ abs ∘ − a 2 → − k ∈ ℂ ∖ ℤ ∖ ℕ
133 121 132 sylbird ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → ¬ a 2 ≤ x + k → − k ∈ ℂ ∖ ℤ ∖ ℕ
134 108 133 mt3d ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → a 2 ≤ x + k
135 74 80 79 103 134 ltletrd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 1 r < x + k
136 74 79 135 ltled ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 ∧ k ∈ ℕ 0 → 1 r ≤ x + k
137 136 ralrimiva ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → ∀ k ∈ ℕ 0 1 r ≤ x + k
138 72 137 jca ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ ∧ A abs ∘ − x < a 2 → x ≤ r ∧ ∀ k ∈ ℕ 0 1 r ≤ x + k
139 138 ex ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r ∧ x ∈ ℂ → A abs ∘ − x < a 2 → x ≤ r ∧ ∀ k ∈ ℕ 0 1 r ≤ x + k
140 139 ss2rabdv ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → x ∈ ℂ | A abs ∘ − x < a 2 ⊆ x ∈ ℂ | x ≤ r ∧ ∀ k ∈ ℕ 0 1 r ≤ x + k
141 blval ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ ∧ A ∈ ℂ ∧ a 2 ∈ ℝ * → A ball ⁡ abs ∘ − a 2 = x ∈ ℂ | A abs ∘ − x < a 2
142 4 31 34 141 mp3an2i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → A ball ⁡ abs ∘ − a 2 = x ∈ ℂ | A abs ∘ − x < a 2
143 1 a1i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → U = x ∈ ℂ | x ≤ r ∧ ∀ k ∈ ℕ 0 1 r ≤ x + k
144 140 142 143 3sstr4d ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → A ball ⁡ abs ∘ − a 2 ⊆ U
145 8 ssntr ⊢ J ∈ Top ∧ U ⊆ ℂ ∧ A ball ⁡ abs ∘ − a 2 ∈ J ∧ A ball ⁡ abs ∘ − a 2 ⊆ U → A ball ⁡ abs ∘ − a 2 ⊆ int ⁡ J ⁡ U
146 28 30 36 144 145 syl22anc ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → A ball ⁡ abs ∘ − a 2 ⊆ int ⁡ J ⁡ U
147 blcntr ⊢ abs ∘ − ∈ ∞Met ⁡ ℂ ∧ A ∈ ℂ ∧ a 2 ∈ ℝ + → A ∈ A ball ⁡ abs ∘ − a 2
148 4 31 33 147 mp3an2i ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → A ∈ A ball ⁡ abs ∘ − a 2
149 146 148 sseldd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ ∧ A + a + 2 a < r → A ∈ int ⁡ J ⁡ U
150 149 ex ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ ∧ r ∈ ℕ → A + a + 2 a < r → A ∈ int ⁡ J ⁡ U
151 150 reximdva ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → ∃ r ∈ ℕ A + a + 2 a < r → ∃ r ∈ ℕ A ∈ int ⁡ J ⁡ U
152 26 151 mpd ⊢ φ ∧ a ∈ ℝ + ∧ A ball ⁡ abs ∘ − a ⊆ ℂ ∖ ℤ ∖ ℕ → ∃ r ∈ ℕ A ∈ int ⁡ J ⁡ U
153 14 152 rexlimddv ⊢ φ → ∃ r ∈ ℕ A ∈ int ⁡ J ⁡ U