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

Theorem lgamgulmlem3 27088
Description: Lemma for lgamgulm 27092. (Contributed by Mario Carneiro, 3-Jul-2017.)
Hypotheses
Ref Expression
lgamgulm.r (𝜑𝑅 ∈ ℕ)
lgamgulm.u 𝑈 = {𝑥 ∈ ℂ ∣ ((abs‘𝑥) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘)))}
lgamgulm.n (𝜑𝑁 ∈ ℕ)
lgamgulm.a (𝜑𝐴𝑈)
lgamgulm.l (𝜑 → (2 · 𝑅) ≤ 𝑁)
Assertion
Ref Expression
lgamgulmlem3 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1)))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
Distinct variable groups:   𝑥,𝑁   𝑥,𝑘,𝑅   𝐴,𝑘,𝑥   𝜑,𝑥
Allowed substitution hints:   𝜑(𝑘)   𝑈(𝑥,𝑘)   𝑁(𝑘)

Proof of Theorem lgamgulmlem3
StepHypRef Expression
1 lgamgulm.r . . . . . . . 8 (𝜑𝑅 ∈ ℕ)
2 lgamgulm.u . . . . . . . 8 𝑈 = {𝑥 ∈ ℂ ∣ ((abs‘𝑥) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘)))}
31, 2lgamgulmlem1 27086 . . . . . . 7 (𝜑𝑈 ⊆ (ℂ ∖ (ℤ ∖ ℕ)))
4 lgamgulm.a . . . . . . 7 (𝜑𝐴𝑈)
53, 4sseldd 3995 . . . . . 6 (𝜑𝐴 ∈ (ℂ ∖ (ℤ ∖ ℕ)))
65eldifad 3974 . . . . 5 (𝜑𝐴 ∈ ℂ)
7 lgamgulm.n . . . . . . . . . 10 (𝜑𝑁 ∈ ℕ)
87peano2nnd 12280 . . . . . . . . 9 (𝜑 → (𝑁 + 1) ∈ ℕ)
98nnrpd 13072 . . . . . . . 8 (𝜑 → (𝑁 + 1) ∈ ℝ+)
107nnrpd 13072 . . . . . . . 8 (𝜑𝑁 ∈ ℝ+)
119, 10rpdivcld 13091 . . . . . . 7 (𝜑 → ((𝑁 + 1) / 𝑁) ∈ ℝ+)
1211relogcld 26679 . . . . . 6 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) ∈ ℝ)
1312recnd 11286 . . . . 5 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
146, 13mulcld 11278 . . . 4 (𝜑 → (𝐴 · (log‘((𝑁 + 1) / 𝑁))) ∈ ℂ)
157nncnd 12279 . . . . . . 7 (𝜑𝑁 ∈ ℂ)
167nnne0d 12313 . . . . . . 7 (𝜑𝑁 ≠ 0)
176, 15, 16divcld 12040 . . . . . 6 (𝜑 → (𝐴 / 𝑁) ∈ ℂ)
18 1cnd 11253 . . . . . 6 (𝜑 → 1 ∈ ℂ)
1917, 18addcld 11277 . . . . 5 (𝜑 → ((𝐴 / 𝑁) + 1) ∈ ℂ)
205, 7dmgmdivn0 27085 . . . . 5 (𝜑 → ((𝐴 / 𝑁) + 1) ≠ 0)
2119, 20logcld 26626 . . . 4 (𝜑 → (log‘((𝐴 / 𝑁) + 1)) ∈ ℂ)
2214, 21subcld 11617 . . 3 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1))) ∈ ℂ)
2322abscld 15471 . 2 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1)))) ∈ ℝ)
2414, 17subcld 11617 . . . 4 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁)) ∈ ℂ)
2524abscld 15471 . . 3 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) ∈ ℝ)
2617, 21subcld 11617 . . . 4 (𝜑 → ((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))) ∈ ℂ)
2726abscld 15471 . . 3 (𝜑 → (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1)))) ∈ ℝ)
2825, 27readdcld 11287 . 2 (𝜑 → ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))) ∈ ℝ)
291nnred 12278 . . 3 (𝜑𝑅 ∈ ℝ)
30 2re 12337 . . . . . 6 2 ∈ ℝ
3130a1i 11 . . . . 5 (𝜑 → 2 ∈ ℝ)
32 1red 11259 . . . . . 6 (𝜑 → 1 ∈ ℝ)
3329, 32readdcld 11287 . . . . 5 (𝜑 → (𝑅 + 1) ∈ ℝ)
3431, 33remulcld 11288 . . . 4 (𝜑 → (2 · (𝑅 + 1)) ∈ ℝ)
357nnsqcld 14279 . . . 4 (𝜑 → (𝑁↑2) ∈ ℕ)
3634, 35nndivred 12317 . . 3 (𝜑 → ((2 · (𝑅 + 1)) / (𝑁↑2)) ∈ ℝ)
3729, 36remulcld 11288 . 2 (𝜑 → (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))) ∈ ℝ)
3814, 21, 17abs3difd 15495 . 2 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1)))) ≤ ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))))
397nnrecred 12314 . . . . . 6 (𝜑 → (1 / 𝑁) ∈ ℝ)
408nnrecred 12314 . . . . . 6 (𝜑 → (1 / (𝑁 + 1)) ∈ ℝ)
4139, 40resubcld 11688 . . . . 5 (𝜑 → ((1 / 𝑁) − (1 / (𝑁 + 1))) ∈ ℝ)
4229, 41remulcld 11288 . . . 4 (𝜑 → (𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) ∈ ℝ)
4331, 29remulcld 11288 . . . . . . . . 9 (𝜑 → (2 · 𝑅) ∈ ℝ)
447nnred 12278 . . . . . . . . 9 (𝜑𝑁 ∈ ℝ)
451nnrpd 13072 . . . . . . . . . . 11 (𝜑𝑅 ∈ ℝ+)
4629, 45ltaddrpd 13107 . . . . . . . . . 10 (𝜑𝑅 < (𝑅 + 𝑅))
471nncnd 12279 . . . . . . . . . . 11 (𝜑𝑅 ∈ ℂ)
48472timesd 12506 . . . . . . . . . 10 (𝜑 → (2 · 𝑅) = (𝑅 + 𝑅))
4946, 48breqtrrd 5175 . . . . . . . . 9 (𝜑𝑅 < (2 · 𝑅))
50 lgamgulm.l . . . . . . . . 9 (𝜑 → (2 · 𝑅) ≤ 𝑁)
5129, 43, 44, 49, 50ltletrd 11418 . . . . . . . 8 (𝜑𝑅 < 𝑁)
52 difrp 13070 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑅 < 𝑁 ↔ (𝑁𝑅) ∈ ℝ+))
5329, 44, 52syl2anc 584 . . . . . . . 8 (𝜑 → (𝑅 < 𝑁 ↔ (𝑁𝑅) ∈ ℝ+))
5451, 53mpbid 232 . . . . . . 7 (𝜑 → (𝑁𝑅) ∈ ℝ+)
5554rprecred 13085 . . . . . 6 (𝜑 → (1 / (𝑁𝑅)) ∈ ℝ)
5655, 39resubcld 11688 . . . . 5 (𝜑 → ((1 / (𝑁𝑅)) − (1 / 𝑁)) ∈ ℝ)
5729, 56remulcld 11288 . . . 4 (𝜑 → (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁))) ∈ ℝ)
5842, 57readdcld 11287 . . 3 (𝜑 → ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))) ∈ ℝ)
596, 15, 16divrecd 12043 . . . . . . . . 9 (𝜑 → (𝐴 / 𝑁) = (𝐴 · (1 / 𝑁)))
6059oveq2d 7446 . . . . . . . 8 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁)) = ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 · (1 / 𝑁))))
6139recnd 11286 . . . . . . . . 9 (𝜑 → (1 / 𝑁) ∈ ℂ)
626, 13, 61subdid 11716 . . . . . . . 8 (𝜑 → (𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) = ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 · (1 / 𝑁))))
6360, 62eqtr4d 2777 . . . . . . 7 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁)) = (𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))))
6463fveq2d 6910 . . . . . 6 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) = (abs‘(𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))))
6513, 61subcld 11617 . . . . . . 7 (𝜑 → ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)) ∈ ℂ)
666, 65absmuld 15489 . . . . . 6 (𝜑 → (abs‘(𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))) = ((abs‘𝐴) · (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))))
6764, 66eqtrd 2774 . . . . 5 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) = ((abs‘𝐴) · (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))))
686abscld 15471 . . . . . 6 (𝜑 → (abs‘𝐴) ∈ ℝ)
6965abscld 15471 . . . . . 6 (𝜑 → (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) ∈ ℝ)
706absge0d 15479 . . . . . 6 (𝜑 → 0 ≤ (abs‘𝐴))
7165absge0d 15479 . . . . . 6 (𝜑 → 0 ≤ (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))))
72 fveq2 6906 . . . . . . . . . . . 12 (𝑥 = 𝐴 → (abs‘𝑥) = (abs‘𝐴))
7372breq1d 5157 . . . . . . . . . . 11 (𝑥 = 𝐴 → ((abs‘𝑥) ≤ 𝑅 ↔ (abs‘𝐴) ≤ 𝑅))
74 fvoveq1 7453 . . . . . . . . . . . . 13 (𝑥 = 𝐴 → (abs‘(𝑥 + 𝑘)) = (abs‘(𝐴 + 𝑘)))
7574breq2d 5159 . . . . . . . . . . . 12 (𝑥 = 𝐴 → ((1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘)) ↔ (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘))))
7675ralbidv 3175 . . . . . . . . . . 11 (𝑥 = 𝐴 → (∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘)) ↔ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘))))
7773, 76anbi12d 632 . . . . . . . . . 10 (𝑥 = 𝐴 → (((abs‘𝑥) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘))) ↔ ((abs‘𝐴) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘)))))
7877, 2elrab2 3697 . . . . . . . . 9 (𝐴𝑈 ↔ (𝐴 ∈ ℂ ∧ ((abs‘𝐴) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘)))))
7978simprbi 496 . . . . . . . 8 (𝐴𝑈 → ((abs‘𝐴) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘))))
804, 79syl 17 . . . . . . 7 (𝜑 → ((abs‘𝐴) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘))))
8180simpld 494 . . . . . 6 (𝜑 → (abs‘𝐴) ≤ 𝑅)
829, 10relogdivd 26682 . . . . . . . . 9 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) = ((log‘(𝑁 + 1)) − (log‘𝑁)))
83 logdifbnd 27051 . . . . . . . . . 10 (𝑁 ∈ ℝ+ → ((log‘(𝑁 + 1)) − (log‘𝑁)) ≤ (1 / 𝑁))
8410, 83syl 17 . . . . . . . . 9 (𝜑 → ((log‘(𝑁 + 1)) − (log‘𝑁)) ≤ (1 / 𝑁))
8582, 84eqbrtrd 5169 . . . . . . . 8 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) ≤ (1 / 𝑁))
8612, 39, 85abssuble0d 15467 . . . . . . 7 (𝜑 → (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) = ((1 / 𝑁) − (log‘((𝑁 + 1) / 𝑁))))
87 logdiflbnd 27052 . . . . . . . . . 10 (𝑁 ∈ ℝ+ → (1 / (𝑁 + 1)) ≤ ((log‘(𝑁 + 1)) − (log‘𝑁)))
8810, 87syl 17 . . . . . . . . 9 (𝜑 → (1 / (𝑁 + 1)) ≤ ((log‘(𝑁 + 1)) − (log‘𝑁)))
8988, 82breqtrrd 5175 . . . . . . . 8 (𝜑 → (1 / (𝑁 + 1)) ≤ (log‘((𝑁 + 1) / 𝑁)))
9040, 12, 39, 89lesub2dd 11877 . . . . . . 7 (𝜑 → ((1 / 𝑁) − (log‘((𝑁 + 1) / 𝑁))) ≤ ((1 / 𝑁) − (1 / (𝑁 + 1))))
9186, 90eqbrtrd 5169 . . . . . 6 (𝜑 → (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) ≤ ((1 / 𝑁) − (1 / (𝑁 + 1))))
9268, 29, 69, 41, 70, 71, 81, 91lemul12ad 12207 . . . . 5 (𝜑 → ((abs‘𝐴) · (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))) ≤ (𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))))
9367, 92eqbrtrd 5169 . . . 4 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) ≤ (𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))))
941, 2, 7, 4, 50lgamgulmlem2 27087 . . . 4 (𝜑 → (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1)))) ≤ (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁))))
9525, 27, 42, 57, 93, 94le2addd 11879 . . 3 (𝜑 → ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))) ≤ ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
9615, 47subcld 11617 . . . . . . . 8 (𝜑 → (𝑁𝑅) ∈ ℂ)
9715, 18addcld 11277 . . . . . . . 8 (𝜑 → (𝑁 + 1) ∈ ℂ)
9829, 51gtned 11393 . . . . . . . . 9 (𝜑𝑁𝑅)
9915, 47, 98subne0d 11626 . . . . . . . 8 (𝜑 → (𝑁𝑅) ≠ 0)
1008nnne0d 12313 . . . . . . . 8 (𝜑 → (𝑁 + 1) ≠ 0)
10196, 97, 99, 100subrecd 12095 . . . . . . 7 (𝜑 → ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))) = (((𝑁 + 1) − (𝑁𝑅)) / ((𝑁𝑅) · (𝑁 + 1))))
10215, 18, 47pnncand 11656 . . . . . . . . 9 (𝜑 → ((𝑁 + 1) − (𝑁𝑅)) = (1 + 𝑅))
10318, 47, 102comraddd 11472 . . . . . . . 8 (𝜑 → ((𝑁 + 1) − (𝑁𝑅)) = (𝑅 + 1))
104103oveq1d 7445 . . . . . . 7 (𝜑 → (((𝑁 + 1) − (𝑁𝑅)) / ((𝑁𝑅) · (𝑁 + 1))) = ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))))
105101, 104eqtr2d 2775 . . . . . 6 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) = ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))))
106105oveq2d 7446 . . . . 5 (𝜑 → (𝑅 · ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1)))) = (𝑅 · ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1)))))
10797, 100reccld 12033 . . . . . . . 8 (𝜑 → (1 / (𝑁 + 1)) ∈ ℂ)
10896, 99reccld 12033 . . . . . . . 8 (𝜑 → (1 / (𝑁𝑅)) ∈ ℂ)
10961, 107, 108npncan3d 11653 . . . . . . 7 (𝜑 → (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁))) = ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))))
110109eqcomd 2740 . . . . . 6 (𝜑 → ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))) = (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁))))
111110oveq2d 7446 . . . . 5 (𝜑 → (𝑅 · ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1)))) = (𝑅 · (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
11241recnd 11286 . . . . . 6 (𝜑 → ((1 / 𝑁) − (1 / (𝑁 + 1))) ∈ ℂ)
11356recnd 11286 . . . . . 6 (𝜑 → ((1 / (𝑁𝑅)) − (1 / 𝑁)) ∈ ℂ)
11447, 112, 113adddid 11282 . . . . 5 (𝜑 → (𝑅 · (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁)))) = ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
115106, 111, 1143eqtrd 2778 . . . 4 (𝜑 → (𝑅 · ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1)))) = ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
11654, 9rpmulcld 13090 . . . . . 6 (𝜑 → ((𝑁𝑅) · (𝑁 + 1)) ∈ ℝ+)
11733, 116rerpdivcld 13105 . . . . 5 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) ∈ ℝ)
11845rpge0d 13078 . . . . 5 (𝜑 → 0 ≤ 𝑅)
119 2z 12646 . . . . . . . . . 10 2 ∈ ℤ
120119a1i 11 . . . . . . . . 9 (𝜑 → 2 ∈ ℤ)
12110, 120rpexpcld 14282 . . . . . . . 8 (𝜑 → (𝑁↑2) ∈ ℝ+)
122121rphalfcld 13086 . . . . . . 7 (𝜑 → ((𝑁↑2) / 2) ∈ ℝ+)
123 0le1 11783 . . . . . . . . 9 0 ≤ 1
124123a1i 11 . . . . . . . 8 (𝜑 → 0 ≤ 1)
12529, 32, 118, 124addge0d 11836 . . . . . . 7 (𝜑 → 0 ≤ (𝑅 + 1))
12615sqvald 14179 . . . . . . . . . 10 (𝜑 → (𝑁↑2) = (𝑁 · 𝑁))
127126oveq1d 7445 . . . . . . . . 9 (𝜑 → ((𝑁↑2) / 2) = ((𝑁 · 𝑁) / 2))
12831recnd 11286 . . . . . . . . . 10 (𝜑 → 2 ∈ ℂ)
129 2ne0 12367 . . . . . . . . . . 11 2 ≠ 0
130129a1i 11 . . . . . . . . . 10 (𝜑 → 2 ≠ 0)
13115, 15, 128, 130div23d 12077 . . . . . . . . 9 (𝜑 → ((𝑁 · 𝑁) / 2) = ((𝑁 / 2) · 𝑁))
132127, 131eqtrd 2774 . . . . . . . 8 (𝜑 → ((𝑁↑2) / 2) = ((𝑁 / 2) · 𝑁))
13344rehalfcld 12510 . . . . . . . . 9 (𝜑 → (𝑁 / 2) ∈ ℝ)
13444, 29resubcld 11688 . . . . . . . . 9 (𝜑 → (𝑁𝑅) ∈ ℝ)
13544, 32readdcld 11287 . . . . . . . . 9 (𝜑 → (𝑁 + 1) ∈ ℝ)
136 2rp 13036 . . . . . . . . . . 11 2 ∈ ℝ+
137136a1i 11 . . . . . . . . . 10 (𝜑 → 2 ∈ ℝ+)
13810rpge0d 13078 . . . . . . . . . 10 (𝜑 → 0 ≤ 𝑁)
13944, 137, 138divge0d 13114 . . . . . . . . 9 (𝜑 → 0 ≤ (𝑁 / 2))
14029, 44, 137lemuldiv2d 13124 . . . . . . . . . . . 12 (𝜑 → ((2 · 𝑅) ≤ 𝑁𝑅 ≤ (𝑁 / 2)))
14150, 140mpbid 232 . . . . . . . . . . 11 (𝜑𝑅 ≤ (𝑁 / 2))
142152halvesd 12509 . . . . . . . . . . . 12 (𝜑 → ((𝑁 / 2) + (𝑁 / 2)) = 𝑁)
143133recnd 11286 . . . . . . . . . . . . 13 (𝜑 → (𝑁 / 2) ∈ ℂ)
14415, 143, 143subaddd 11635 . . . . . . . . . . . 12 (𝜑 → ((𝑁 − (𝑁 / 2)) = (𝑁 / 2) ↔ ((𝑁 / 2) + (𝑁 / 2)) = 𝑁))
145142, 144mpbird 257 . . . . . . . . . . 11 (𝜑 → (𝑁 − (𝑁 / 2)) = (𝑁 / 2))
146141, 145breqtrrd 5175 . . . . . . . . . 10 (𝜑𝑅 ≤ (𝑁 − (𝑁 / 2)))
14729, 44, 133, 146lesubd 11864 . . . . . . . . 9 (𝜑 → (𝑁 / 2) ≤ (𝑁𝑅))
14844lep1d 12196 . . . . . . . . 9 (𝜑𝑁 ≤ (𝑁 + 1))
149133, 134, 44, 135, 139, 138, 147, 148lemul12ad 12207 . . . . . . . 8 (𝜑 → ((𝑁 / 2) · 𝑁) ≤ ((𝑁𝑅) · (𝑁 + 1)))
150132, 149eqbrtrd 5169 . . . . . . 7 (𝜑 → ((𝑁↑2) / 2) ≤ ((𝑁𝑅) · (𝑁 + 1)))
151122, 116, 33, 125, 150lediv2ad 13096 . . . . . 6 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) ≤ ((𝑅 + 1) / ((𝑁↑2) / 2)))
1521peano2nnd 12280 . . . . . . . . 9 (𝜑 → (𝑅 + 1) ∈ ℕ)
153152nncnd 12279 . . . . . . . 8 (𝜑 → (𝑅 + 1) ∈ ℂ)
15435nncnd 12279 . . . . . . . 8 (𝜑 → (𝑁↑2) ∈ ℂ)
15535nnne0d 12313 . . . . . . . 8 (𝜑 → (𝑁↑2) ≠ 0)
156153, 154, 128, 155, 130divdiv2d 12072 . . . . . . 7 (𝜑 → ((𝑅 + 1) / ((𝑁↑2) / 2)) = (((𝑅 + 1) · 2) / (𝑁↑2)))
157153, 128mulcomd 11279 . . . . . . . 8 (𝜑 → ((𝑅 + 1) · 2) = (2 · (𝑅 + 1)))
158157oveq1d 7445 . . . . . . 7 (𝜑 → (((𝑅 + 1) · 2) / (𝑁↑2)) = ((2 · (𝑅 + 1)) / (𝑁↑2)))
159156, 158eqtr2d 2775 . . . . . 6 (𝜑 → ((2 · (𝑅 + 1)) / (𝑁↑2)) = ((𝑅 + 1) / ((𝑁↑2) / 2)))
160151, 159breqtrrd 5175 . . . . 5 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) ≤ ((2 · (𝑅 + 1)) / (𝑁↑2)))
161117, 36, 29, 118, 160lemul2ad 12205 . . . 4 (𝜑 → (𝑅 · ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1)))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
162115, 161eqbrtrrd 5171 . . 3 (𝜑 → ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
16328, 58, 37, 95, 162letrd 11415 . 2 (𝜑 → ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
16423, 28, 37, 38, 163letrd 11415 1 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1)))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1536  wcel 2105  wne 2937  wral 3058  {crab 3432  cdif 3959   class class class wbr 5147  cfv 6562  (class class class)co 7430  cc 11150  cr 11151  0cc0 11152  1c1 11153   + caddc 11155   · cmul 11157   < clt 11292  cle 11293  cmin 11489   / cdiv 11917  cn 12263  2c2 12318  0cn0 12523  cz 12610  +crp 13031  cexp 14098  abscabs 15269  logclog 26610
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-rep 5284  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753  ax-inf2 9678  ax-cnex 11208  ax-resscn 11209  ax-1cn 11210  ax-icn 11211  ax-addcl 11212  ax-addrcl 11213  ax-mulcl 11214  ax-mulrcl 11215  ax-mulcom 11216  ax-addass 11217  ax-mulass 11218  ax-distr 11219  ax-i2m1 11220  ax-1ne0 11221  ax-1rid 11222  ax-rnegex 11223  ax-rrecex 11224  ax-cnre 11225  ax-pre-lttri 11226  ax-pre-lttrn 11227  ax-pre-ltadd 11228  ax-pre-mulgt0 11229  ax-pre-sup 11230  ax-addf 11231
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2726  df-clel 2813  df-nfc 2889  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3377  df-reu 3378  df-rab 3433  df-v 3479  df-sbc 3791  df-csb 3908  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-pss 3982  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4912  df-int 4951  df-iun 4997  df-iin 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5582  df-eprel 5588  df-po 5596  df-so 5597  df-fr 5640  df-se 5641  df-we 5642  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700  df-ima 5701  df-pred 6322  df-ord 6388  df-on 6389  df-lim 6390  df-suc 6391  df-iota 6515  df-fun 6564  df-fn 6565  df-f 6566  df-f1 6567  df-fo 6568  df-f1o 6569  df-fv 6570  df-isom 6571  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-of 7696  df-om 7887  df-1st 8012  df-2nd 8013  df-supp 8184  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-1o 8504  df-2o 8505  df-er 8743  df-map 8866  df-pm 8867  df-ixp 8936  df-en 8984  df-dom 8985  df-sdom 8986  df-fin 8987  df-fsupp 9399  df-fi 9448  df-sup 9479  df-inf 9480  df-oi 9547  df-card 9976  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11491  df-neg 11492  df-div 11918  df-nn 12264  df-2 12326  df-3 12327  df-4 12328  df-5 12329  df-6 12330  df-7 12331  df-8 12332  df-9 12333  df-n0 12524  df-z 12611  df-dec 12731  df-uz 12876  df-q 12988  df-rp 13032  df-xneg 13151  df-xadd 13152  df-xmul 13153  df-ioo 13387  df-ioc 13388  df-ico 13389  df-icc 13390  df-fz 13544  df-fzo 13691  df-fl 13828  df-mod 13906  df-seq 14039  df-exp 14099  df-fac 14309  df-bc 14338  df-hash 14366  df-shft 15102  df-cj 15134  df-re 15135  df-im 15136  df-sqrt 15270  df-abs 15271  df-limsup 15503  df-clim 15520  df-rlim 15521  df-sum 15719  df-ef 16099  df-sin 16101  df-cos 16102  df-tan 16103  df-pi 16104  df-struct 17180  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17245  df-ress 17274  df-plusg 17310  df-mulr 17311  df-starv 17312  df-sca 17313  df-vsca 17314  df-ip 17315  df-tset 17316  df-ple 17317  df-ds 17319  df-unif 17320  df-hom 17321  df-cco 17322  df-rest 17468  df-topn 17469  df-0g 17487  df-gsum 17488  df-topgen 17489  df-pt 17490  df-prds 17493  df-xrs 17548  df-qtop 17553  df-imas 17554  df-xps 17556  df-mre 17630  df-mrc 17631  df-acs 17633  df-mgm 18665  df-sgrp 18744  df-mnd 18760  df-submnd 18809  df-mulg 19098  df-cntz 19347  df-cmn 19814  df-psmet 21373  df-xmet 21374  df-met 21375  df-bl 21376  df-mopn 21377  df-fbas 21378  df-fg 21379  df-cnfld 21382  df-top 22915  df-topon 22932  df-topsp 22954  df-bases 22968  df-cld 23042  df-ntr 23043  df-cls 23044  df-nei 23121  df-lp 23159  df-perf 23160  df-cn 23250  df-cnp 23251  df-haus 23338  df-cmp 23410  df-tx 23585  df-hmeo 23778  df-fil 23869  df-fm 23961  df-flim 23962  df-flf 23963  df-xms 24345  df-ms 24346  df-tms 24347  df-cncf 24917  df-limc 25915  df-dv 25916  df-log 26612
This theorem is referenced by:  lgamgulmlem5  27090
  Copyright terms: Public domain W3C validator