Metamath Proof Explorer


Theorem lgambdd

Description: The log-Gamma function is bounded on the region U . (Contributed by Mario Carneiro, 9-Jul-2017)

Ref Expression
Hypotheses lgamgulm.r ⊢ φ → R ∈ ℕ
lgamgulm.u ⊢ U = x ∈ ℂ | x ≤ R ∧ ∀ k ∈ ℕ 0 1 R ≤ x + k
lgamgulm.g ⊢ G = m ∈ ℕ ⟼ z ∈ U ⟼ z ⁢ log ⁡ m + 1 m − log ⁡ z m + 1
Assertion lgambdd ⊢ φ → ∃ r ∈ ℝ ∀ z ∈ U log Γ ⁡ z ≤ r

Proof

Step Hyp Ref Expression
1 lgamgulm.r ⊢ φ → R ∈ ℕ
2 lgamgulm.u ⊢ U = x ∈ ℂ | x ≤ R ∧ ∀ k ∈ ℕ 0 1 R ≤ x + k
3 lgamgulm.g ⊢ G = m ∈ ℕ ⟼ z ∈ U ⟼ z ⁢ log ⁡ m + 1 m − log ⁡ z m + 1
4 1 2 3 lgamgulm2 ⊢ φ → ∀ z ∈ U log Γ ⁡ z ∈ ℂ ∧ seq 1 ∘ f ⁡ + G ⇝u ⁡ U z ∈ U ⟼ log Γ ⁡ z + log ⁡ z
5 4 simprd ⊢ φ → seq 1 ∘ f ⁡ + G ⇝u ⁡ U z ∈ U ⟼ log Γ ⁡ z + log ⁡ z
6 eqid ⊢ m ∈ ℕ ⟼ if 2 ⁢ R ≤ m R ⁢ 2 ⁢ R + 1 m 2 R ⁢ log ⁡ m + 1 m + log ⁡ R + 1 ⁢ m + π = m ∈ ℕ ⟼ if 2 ⁢ R ≤ m R ⁢ 2 ⁢ R + 1 m 2 R ⁢ log ⁡ m + 1 m + log ⁡ R + 1 ⁢ m + π
7 1 2 3 6 lgamgulmlem6 ⊢ φ → seq 1 ∘ f ⁡ + G ∈ dom ⁡ ⇝u ⁡ U ∧ seq 1 ∘ f ⁡ + G ⇝u ⁡ U z ∈ U ⟼ log Γ ⁡ z + log ⁡ z → ∃ y ∈ ℝ ∀ z ∈ U log Γ ⁡ z + log ⁡ z ≤ y
8 7 simprd ⊢ φ → seq 1 ∘ f ⁡ + G ⇝u ⁡ U z ∈ U ⟼ log Γ ⁡ z + log ⁡ z → ∃ y ∈ ℝ ∀ z ∈ U log Γ ⁡ z + log ⁡ z ≤ y
9 5 8 mpd ⊢ φ → ∃ y ∈ ℝ ∀ z ∈ U log Γ ⁡ z + log ⁡ z ≤ y
10 1 nnrpd ⊢ φ → R ∈ ℝ +
11 10 adantr ⊢ φ ∧ y ∈ ℝ → R ∈ ℝ +
12 11 relogcld ⊢ φ ∧ y ∈ ℝ → log ⁡ R ∈ ℝ
13 pire ⊢ π ∈ ℝ
14 13 a1i ⊢ φ ∧ y ∈ ℝ → π ∈ ℝ
15 12 14 readdcld ⊢ φ ∧ y ∈ ℝ → log ⁡ R + π ∈ ℝ
16 simpr ⊢ φ ∧ y ∈ ℝ → y ∈ ℝ
17 15 16 readdcld ⊢ φ ∧ y ∈ ℝ → log ⁡ R + π + y ∈ ℝ
18 17 adantrr ⊢ φ ∧ y ∈ ℝ ∧ ∀ z ∈ U log Γ ⁡ z + log ⁡ z ≤ y → log ⁡ R + π + y ∈ ℝ
19 4 simpld ⊢ φ → ∀ z ∈ U log Γ ⁡ z ∈ ℂ
20 19 adantr ⊢ φ ∧ y ∈ ℝ → ∀ z ∈ U log Γ ⁡ z ∈ ℂ
21 20 r19.21bi ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z ∈ ℂ
22 21 abscld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z ∈ ℝ
23 22 adantr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log Γ ⁡ z ∈ ℝ
24 11 adantr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → R ∈ ℝ +
25 24 relogcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ R ∈ ℝ
26 13 a1i ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → π ∈ ℝ
27 25 26 readdcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ R + π ∈ ℝ
28 1 2 lgamgulmlem1 ⊢ φ → U ⊆ ℂ ∖ ℤ ∖ ℕ
29 28 adantr ⊢ φ ∧ y ∈ ℝ → U ⊆ ℂ ∖ ℤ ∖ ℕ
30 29 sselda ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z ∈ ℂ ∖ ℤ ∖ ℕ
31 30 eldifad ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z ∈ ℂ
32 30 dmgmn0 ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z ≠ 0
33 31 32 logcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ∈ ℂ
34 21 33 addcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z + log ⁡ z ∈ ℂ
35 34 abscld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z + log ⁡ z ∈ ℝ
36 27 35 readdcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ R + π + log Γ ⁡ z + log ⁡ z ∈ ℝ
37 36 adantr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log ⁡ R + π + log Γ ⁡ z + log ⁡ z ∈ ℝ
38 17 ad2antrr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log ⁡ R + π + y ∈ ℝ
39 33 abscld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ∈ ℝ
40 39 35 readdcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z + log Γ ⁡ z + log ⁡ z ∈ ℝ
41 33 negcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → − log ⁡ z ∈ ℂ
42 21 41 abs2difd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z − − log ⁡ z ≤ log Γ ⁡ z − − log ⁡ z
43 33 absnegd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → − log ⁡ z = log ⁡ z
44 43 oveq2d ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z − − log ⁡ z = log Γ ⁡ z − log ⁡ z
45 21 33 subnegd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z − − log ⁡ z = log Γ ⁡ z + log ⁡ z
46 45 fveq2d ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z − − log ⁡ z = log Γ ⁡ z + log ⁡ z
47 42 44 46 3brtr3d ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z − log ⁡ z ≤ log Γ ⁡ z + log ⁡ z
48 22 39 35 lesubadd2d ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z − log ⁡ z ≤ log Γ ⁡ z + log ⁡ z ↔ log Γ ⁡ z ≤ log ⁡ z + log Γ ⁡ z + log ⁡ z
49 47 48 mpbid ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z ≤ log ⁡ z + log Γ ⁡ z + log ⁡ z
50 31 32 absrpcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z ∈ ℝ +
51 50 relogcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ∈ ℝ
52 51 recnd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ∈ ℂ
53 52 abscld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ∈ ℝ
54 53 26 readdcld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z + π ∈ ℝ
55 abslogle ⊢ z ∈ ℂ ∧ z ≠ 0 → log ⁡ z ≤ log ⁡ z + π
56 31 32 55 syl2anc ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ≤ log ⁡ z + π
57 df-neg ⊢ − log ⁡ R = 0 − log ⁡ R
58 log1 ⊢ log ⁡ 1 = 0
59 58 oveq1i ⊢ log ⁡ 1 − log ⁡ R = 0 − log ⁡ R
60 57 59 eqtr4i ⊢ − log ⁡ R = log ⁡ 1 − log ⁡ R
61 1rp ⊢ 1 ∈ ℝ +
62 relogdiv ⊢ 1 ∈ ℝ + ∧ R ∈ ℝ + → log ⁡ 1 R = log ⁡ 1 − log ⁡ R
63 61 24 62 sylancr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ 1 R = log ⁡ 1 − log ⁡ R
64 60 63 eqtr4id ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → − log ⁡ R = log ⁡ 1 R
65 oveq2 ⊢ k = 0 → z + k = z + 0
66 65 fveq2d ⊢ k = 0 → z + k = z + 0
67 66 breq2d ⊢ k = 0 → 1 R ≤ z + k ↔ 1 R ≤ z + 0
68 fveq2 ⊢ x = z → x = z
69 68 breq1d ⊢ x = z → x ≤ R ↔ z ≤ R
70 fvoveq1 ⊢ x = z → x + k = z + k
71 70 breq2d ⊢ x = z → 1 R ≤ x + k ↔ 1 R ≤ z + k
72 71 ralbidv ⊢ x = z → ∀ k ∈ ℕ 0 1 R ≤ x + k ↔ ∀ k ∈ ℕ 0 1 R ≤ z + k
73 69 72 anbi12d ⊢ x = z → x ≤ R ∧ ∀ k ∈ ℕ 0 1 R ≤ x + k ↔ z ≤ R ∧ ∀ k ∈ ℕ 0 1 R ≤ z + k
74 73 2 elrab2 ⊢ z ∈ U ↔ z ∈ ℂ ∧ z ≤ R ∧ ∀ k ∈ ℕ 0 1 R ≤ z + k
75 74 simprbi ⊢ z ∈ U → z ≤ R ∧ ∀ k ∈ ℕ 0 1 R ≤ z + k
76 75 adantl ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z ≤ R ∧ ∀ k ∈ ℕ 0 1 R ≤ z + k
77 76 simprd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → ∀ k ∈ ℕ 0 1 R ≤ z + k
78 0nn0 ⊢ 0 ∈ ℕ 0
79 78 a1i ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → 0 ∈ ℕ 0
80 67 77 79 rspcdva ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → 1 R ≤ z + 0
81 31 addridd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z + 0 = z
82 81 fveq2d ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z + 0 = z
83 80 82 breqtrd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → 1 R ≤ z
84 24 rpreccld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → 1 R ∈ ℝ +
85 84 50 logled ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → 1 R ≤ z ↔ log ⁡ 1 R ≤ log ⁡ z
86 83 85 mpbid ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ 1 R ≤ log ⁡ z
87 64 86 eqbrtrd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → − log ⁡ R ≤ log ⁡ z
88 76 simpld ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z ≤ R
89 50 24 logled ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → z ≤ R ↔ log ⁡ z ≤ log ⁡ R
90 88 89 mpbid ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ≤ log ⁡ R
91 51 25 absled ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ≤ log ⁡ R ↔ − log ⁡ R ≤ log ⁡ z ∧ log ⁡ z ≤ log ⁡ R
92 87 90 91 mpbir2and ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ≤ log ⁡ R
93 53 25 26 92 leadd1dd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z + π ≤ log ⁡ R + π
94 39 54 27 56 93 letrd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z ≤ log ⁡ R + π
95 39 27 35 94 leadd1dd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log ⁡ z + log Γ ⁡ z + log ⁡ z ≤ log ⁡ R + π + log Γ ⁡ z + log ⁡ z
96 22 40 36 49 95 letrd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z ≤ log ⁡ R + π + log Γ ⁡ z + log ⁡ z
97 96 adantr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log Γ ⁡ z ≤ log ⁡ R + π + log Γ ⁡ z + log ⁡ z
98 35 adantr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log Γ ⁡ z + log ⁡ z ∈ ℝ
99 simpllr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → y ∈ ℝ
100 27 adantr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log ⁡ R + π ∈ ℝ
101 simpr ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log Γ ⁡ z + log ⁡ z ≤ y
102 98 99 100 101 leadd2dd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log ⁡ R + π + log Γ ⁡ z + log ⁡ z ≤ log ⁡ R + π + y
103 23 37 38 97 102 letrd ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U ∧ log Γ ⁡ z + log ⁡ z ≤ y → log Γ ⁡ z ≤ log ⁡ R + π + y
104 103 ex ⊢ φ ∧ y ∈ ℝ ∧ z ∈ U → log Γ ⁡ z + log ⁡ z ≤ y → log Γ ⁡ z ≤ log ⁡ R + π + y
105 104 ralimdva ⊢ φ ∧ y ∈ ℝ → ∀ z ∈ U log Γ ⁡ z + log ⁡ z ≤ y → ∀ z ∈ U log Γ ⁡ z ≤ log ⁡ R + π + y
106 105 impr ⊢ φ ∧ y ∈ ℝ ∧ ∀ z ∈ U log Γ ⁡ z + log ⁡ z ≤ y → ∀ z ∈ U log Γ ⁡ z ≤ log ⁡ R + π + y
107 brralrspcev ⊢ log ⁡ R + π + y ∈ ℝ ∧ ∀ z ∈ U log Γ ⁡ z ≤ log ⁡ R + π + y → ∃ r ∈ ℝ ∀ z ∈ U log Γ ⁡ z ≤ r
108 18 106 107 syl2anc ⊢ φ ∧ y ∈ ℝ ∧ ∀ z ∈ U log Γ ⁡ z + log ⁡ z ≤ y → ∃ r ∈ ℝ ∀ z ∈ U log Γ ⁡ z ≤ r
109 9 108 rexlimddv ⊢ φ → ∃ r ∈ ℝ ∀ z ∈ U log Γ ⁡ z ≤ r