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

Theorem lgamgulmlem3 26879
Description: Lemma for lgamgulm 26883. (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 26877 . . . . . . 7 (𝜑𝑈 ⊆ (ℂ ∖ (ℤ ∖ ℕ)))
4 lgamgulm.a . . . . . . 7 (𝜑𝐴𝑈)
53, 4sseldd 3975 . . . . . 6 (𝜑𝐴 ∈ (ℂ ∖ (ℤ ∖ ℕ)))
65eldifad 3952 . . . . 5 (𝜑𝐴 ∈ ℂ)
7 lgamgulm.n . . . . . . . . . 10 (𝜑𝑁 ∈ ℕ)
87peano2nnd 12226 . . . . . . . . 9 (𝜑 → (𝑁 + 1) ∈ ℕ)
98nnrpd 13011 . . . . . . . 8 (𝜑 → (𝑁 + 1) ∈ ℝ+)
107nnrpd 13011 . . . . . . . 8 (𝜑𝑁 ∈ ℝ+)
119, 10rpdivcld 13030 . . . . . . 7 (𝜑 → ((𝑁 + 1) / 𝑁) ∈ ℝ+)
1211relogcld 26473 . . . . . 6 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) ∈ ℝ)
1312recnd 11239 . . . . 5 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
146, 13mulcld 11231 . . . 4 (𝜑 → (𝐴 · (log‘((𝑁 + 1) / 𝑁))) ∈ ℂ)
157nncnd 12225 . . . . . . 7 (𝜑𝑁 ∈ ℂ)
167nnne0d 12259 . . . . . . 7 (𝜑𝑁 ≠ 0)
176, 15, 16divcld 11987 . . . . . 6 (𝜑 → (𝐴 / 𝑁) ∈ ℂ)
18 1cnd 11206 . . . . . 6 (𝜑 → 1 ∈ ℂ)
1917, 18addcld 11230 . . . . 5 (𝜑 → ((𝐴 / 𝑁) + 1) ∈ ℂ)
205, 7dmgmdivn0 26876 . . . . 5 (𝜑 → ((𝐴 / 𝑁) + 1) ≠ 0)
2119, 20logcld 26421 . . . 4 (𝜑 → (log‘((𝐴 / 𝑁) + 1)) ∈ ℂ)
2214, 21subcld 11568 . . 3 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1))) ∈ ℂ)
2322abscld 15380 . 2 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1)))) ∈ ℝ)
2414, 17subcld 11568 . . . 4 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁)) ∈ ℂ)
2524abscld 15380 . . 3 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) ∈ ℝ)
2617, 21subcld 11568 . . . 4 (𝜑 → ((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))) ∈ ℂ)
2726abscld 15380 . . 3 (𝜑 → (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1)))) ∈ ℝ)
2825, 27readdcld 11240 . 2 (𝜑 → ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))) ∈ ℝ)
291nnred 12224 . . 3 (𝜑𝑅 ∈ ℝ)
30 2re 12283 . . . . . 6 2 ∈ ℝ
3130a1i 11 . . . . 5 (𝜑 → 2 ∈ ℝ)
32 1red 11212 . . . . . 6 (𝜑 → 1 ∈ ℝ)
3329, 32readdcld 11240 . . . . 5 (𝜑 → (𝑅 + 1) ∈ ℝ)
3431, 33remulcld 11241 . . . 4 (𝜑 → (2 · (𝑅 + 1)) ∈ ℝ)
357nnsqcld 14204 . . . 4 (𝜑 → (𝑁↑2) ∈ ℕ)
3634, 35nndivred 12263 . . 3 (𝜑 → ((2 · (𝑅 + 1)) / (𝑁↑2)) ∈ ℝ)
3729, 36remulcld 11241 . 2 (𝜑 → (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))) ∈ ℝ)
3814, 21, 17abs3difd 15404 . 2 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1)))) ≤ ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))))
397nnrecred 12260 . . . . . 6 (𝜑 → (1 / 𝑁) ∈ ℝ)
408nnrecred 12260 . . . . . 6 (𝜑 → (1 / (𝑁 + 1)) ∈ ℝ)
4139, 40resubcld 11639 . . . . 5 (𝜑 → ((1 / 𝑁) − (1 / (𝑁 + 1))) ∈ ℝ)
4229, 41remulcld 11241 . . . 4 (𝜑 → (𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) ∈ ℝ)
4331, 29remulcld 11241 . . . . . . . . 9 (𝜑 → (2 · 𝑅) ∈ ℝ)
447nnred 12224 . . . . . . . . 9 (𝜑𝑁 ∈ ℝ)
451nnrpd 13011 . . . . . . . . . . 11 (𝜑𝑅 ∈ ℝ+)
4629, 45ltaddrpd 13046 . . . . . . . . . 10 (𝜑𝑅 < (𝑅 + 𝑅))
471nncnd 12225 . . . . . . . . . . 11 (𝜑𝑅 ∈ ℂ)
48472timesd 12452 . . . . . . . . . 10 (𝜑 → (2 · 𝑅) = (𝑅 + 𝑅))
4946, 48breqtrrd 5166 . . . . . . . . 9 (𝜑𝑅 < (2 · 𝑅))
50 lgamgulm.l . . . . . . . . 9 (𝜑 → (2 · 𝑅) ≤ 𝑁)
5129, 43, 44, 49, 50ltletrd 11371 . . . . . . . 8 (𝜑𝑅 < 𝑁)
52 difrp 13009 . . . . . . . . 9 ((𝑅 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑅 < 𝑁 ↔ (𝑁𝑅) ∈ ℝ+))
5329, 44, 52syl2anc 583 . . . . . . . 8 (𝜑 → (𝑅 < 𝑁 ↔ (𝑁𝑅) ∈ ℝ+))
5451, 53mpbid 231 . . . . . . 7 (𝜑 → (𝑁𝑅) ∈ ℝ+)
5554rprecred 13024 . . . . . 6 (𝜑 → (1 / (𝑁𝑅)) ∈ ℝ)
5655, 39resubcld 11639 . . . . 5 (𝜑 → ((1 / (𝑁𝑅)) − (1 / 𝑁)) ∈ ℝ)
5729, 56remulcld 11241 . . . 4 (𝜑 → (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁))) ∈ ℝ)
5842, 57readdcld 11240 . . 3 (𝜑 → ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))) ∈ ℝ)
596, 15, 16divrecd 11990 . . . . . . . . 9 (𝜑 → (𝐴 / 𝑁) = (𝐴 · (1 / 𝑁)))
6059oveq2d 7417 . . . . . . . 8 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁)) = ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 · (1 / 𝑁))))
6139recnd 11239 . . . . . . . . 9 (𝜑 → (1 / 𝑁) ∈ ℂ)
626, 13, 61subdid 11667 . . . . . . . 8 (𝜑 → (𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) = ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 · (1 / 𝑁))))
6360, 62eqtr4d 2767 . . . . . . 7 (𝜑 → ((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁)) = (𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))))
6463fveq2d 6885 . . . . . 6 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) = (abs‘(𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))))
6513, 61subcld 11568 . . . . . . 7 (𝜑 → ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)) ∈ ℂ)
666, 65absmuld 15398 . . . . . 6 (𝜑 → (abs‘(𝐴 · ((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))) = ((abs‘𝐴) · (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))))
6764, 66eqtrd 2764 . . . . 5 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) = ((abs‘𝐴) · (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))))
686abscld 15380 . . . . . 6 (𝜑 → (abs‘𝐴) ∈ ℝ)
6965abscld 15380 . . . . . 6 (𝜑 → (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) ∈ ℝ)
706absge0d 15388 . . . . . 6 (𝜑 → 0 ≤ (abs‘𝐴))
7165absge0d 15388 . . . . . 6 (𝜑 → 0 ≤ (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))))
72 fveq2 6881 . . . . . . . . . . . 12 (𝑥 = 𝐴 → (abs‘𝑥) = (abs‘𝐴))
7372breq1d 5148 . . . . . . . . . . 11 (𝑥 = 𝐴 → ((abs‘𝑥) ≤ 𝑅 ↔ (abs‘𝐴) ≤ 𝑅))
74 fvoveq1 7424 . . . . . . . . . . . . 13 (𝑥 = 𝐴 → (abs‘(𝑥 + 𝑘)) = (abs‘(𝐴 + 𝑘)))
7574breq2d 5150 . . . . . . . . . . . 12 (𝑥 = 𝐴 → ((1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘)) ↔ (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘))))
7675ralbidv 3169 . . . . . . . . . . 11 (𝑥 = 𝐴 → (∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘)) ↔ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘))))
7773, 76anbi12d 630 . . . . . . . . . 10 (𝑥 = 𝐴 → (((abs‘𝑥) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝑥 + 𝑘))) ↔ ((abs‘𝐴) ≤ 𝑅 ∧ ∀𝑘 ∈ ℕ0 (1 / 𝑅) ≤ (abs‘(𝐴 + 𝑘)))))
7877, 2elrab2 3678 . . . . . . . . 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 26476 . . . . . . . . 9 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) = ((log‘(𝑁 + 1)) − (log‘𝑁)))
83 logdifbnd 26842 . . . . . . . . . 10 (𝑁 ∈ ℝ+ → ((log‘(𝑁 + 1)) − (log‘𝑁)) ≤ (1 / 𝑁))
8410, 83syl 17 . . . . . . . . 9 (𝜑 → ((log‘(𝑁 + 1)) − (log‘𝑁)) ≤ (1 / 𝑁))
8582, 84eqbrtrd 5160 . . . . . . . 8 (𝜑 → (log‘((𝑁 + 1) / 𝑁)) ≤ (1 / 𝑁))
8612, 39, 85abssuble0d 15376 . . . . . . 7 (𝜑 → (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) = ((1 / 𝑁) − (log‘((𝑁 + 1) / 𝑁))))
87 logdiflbnd 26843 . . . . . . . . . 10 (𝑁 ∈ ℝ+ → (1 / (𝑁 + 1)) ≤ ((log‘(𝑁 + 1)) − (log‘𝑁)))
8810, 87syl 17 . . . . . . . . 9 (𝜑 → (1 / (𝑁 + 1)) ≤ ((log‘(𝑁 + 1)) − (log‘𝑁)))
8988, 82breqtrrd 5166 . . . . . . . 8 (𝜑 → (1 / (𝑁 + 1)) ≤ (log‘((𝑁 + 1) / 𝑁)))
9040, 12, 39, 89lesub2dd 11828 . . . . . . 7 (𝜑 → ((1 / 𝑁) − (log‘((𝑁 + 1) / 𝑁))) ≤ ((1 / 𝑁) − (1 / (𝑁 + 1))))
9186, 90eqbrtrd 5160 . . . . . 6 (𝜑 → (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁))) ≤ ((1 / 𝑁) − (1 / (𝑁 + 1))))
9268, 29, 69, 41, 70, 71, 81, 91lemul12ad 12153 . . . . 5 (𝜑 → ((abs‘𝐴) · (abs‘((log‘((𝑁 + 1) / 𝑁)) − (1 / 𝑁)))) ≤ (𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))))
9367, 92eqbrtrd 5160 . . . 4 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) ≤ (𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))))
941, 2, 7, 4, 50lgamgulmlem2 26878 . . . 4 (𝜑 → (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1)))) ≤ (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁))))
9525, 27, 42, 57, 93, 94le2addd 11830 . . 3 (𝜑 → ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))) ≤ ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
9615, 47subcld 11568 . . . . . . . 8 (𝜑 → (𝑁𝑅) ∈ ℂ)
9715, 18addcld 11230 . . . . . . . 8 (𝜑 → (𝑁 + 1) ∈ ℂ)
9829, 51gtned 11346 . . . . . . . . 9 (𝜑𝑁𝑅)
9915, 47, 98subne0d 11577 . . . . . . . 8 (𝜑 → (𝑁𝑅) ≠ 0)
1008nnne0d 12259 . . . . . . . 8 (𝜑 → (𝑁 + 1) ≠ 0)
10196, 97, 99, 100subrecd 12042 . . . . . . 7 (𝜑 → ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))) = (((𝑁 + 1) − (𝑁𝑅)) / ((𝑁𝑅) · (𝑁 + 1))))
10215, 18, 47pnncand 11607 . . . . . . . . 9 (𝜑 → ((𝑁 + 1) − (𝑁𝑅)) = (1 + 𝑅))
10318, 47, 102comraddd 11425 . . . . . . . 8 (𝜑 → ((𝑁 + 1) − (𝑁𝑅)) = (𝑅 + 1))
104103oveq1d 7416 . . . . . . 7 (𝜑 → (((𝑁 + 1) − (𝑁𝑅)) / ((𝑁𝑅) · (𝑁 + 1))) = ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))))
105101, 104eqtr2d 2765 . . . . . 6 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) = ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))))
106105oveq2d 7417 . . . . 5 (𝜑 → (𝑅 · ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1)))) = (𝑅 · ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1)))))
10797, 100reccld 11980 . . . . . . . 8 (𝜑 → (1 / (𝑁 + 1)) ∈ ℂ)
10896, 99reccld 11980 . . . . . . . 8 (𝜑 → (1 / (𝑁𝑅)) ∈ ℂ)
10961, 107, 108npncan3d 11604 . . . . . . 7 (𝜑 → (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁))) = ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))))
110109eqcomd 2730 . . . . . 6 (𝜑 → ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1))) = (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁))))
111110oveq2d 7417 . . . . 5 (𝜑 → (𝑅 · ((1 / (𝑁𝑅)) − (1 / (𝑁 + 1)))) = (𝑅 · (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
11241recnd 11239 . . . . . 6 (𝜑 → ((1 / 𝑁) − (1 / (𝑁 + 1))) ∈ ℂ)
11356recnd 11239 . . . . . 6 (𝜑 → ((1 / (𝑁𝑅)) − (1 / 𝑁)) ∈ ℂ)
11447, 112, 113adddid 11235 . . . . 5 (𝜑 → (𝑅 · (((1 / 𝑁) − (1 / (𝑁 + 1))) + ((1 / (𝑁𝑅)) − (1 / 𝑁)))) = ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
115106, 111, 1143eqtrd 2768 . . . 4 (𝜑 → (𝑅 · ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1)))) = ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))))
11654, 9rpmulcld 13029 . . . . . 6 (𝜑 → ((𝑁𝑅) · (𝑁 + 1)) ∈ ℝ+)
11733, 116rerpdivcld 13044 . . . . 5 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) ∈ ℝ)
11845rpge0d 13017 . . . . 5 (𝜑 → 0 ≤ 𝑅)
119 2z 12591 . . . . . . . . . 10 2 ∈ ℤ
120119a1i 11 . . . . . . . . 9 (𝜑 → 2 ∈ ℤ)
12110, 120rpexpcld 14207 . . . . . . . 8 (𝜑 → (𝑁↑2) ∈ ℝ+)
122121rphalfcld 13025 . . . . . . 7 (𝜑 → ((𝑁↑2) / 2) ∈ ℝ+)
123 0le1 11734 . . . . . . . . 9 0 ≤ 1
124123a1i 11 . . . . . . . 8 (𝜑 → 0 ≤ 1)
12529, 32, 118, 124addge0d 11787 . . . . . . 7 (𝜑 → 0 ≤ (𝑅 + 1))
12615sqvald 14105 . . . . . . . . . 10 (𝜑 → (𝑁↑2) = (𝑁 · 𝑁))
127126oveq1d 7416 . . . . . . . . 9 (𝜑 → ((𝑁↑2) / 2) = ((𝑁 · 𝑁) / 2))
12831recnd 11239 . . . . . . . . . 10 (𝜑 → 2 ∈ ℂ)
129 2ne0 12313 . . . . . . . . . . 11 2 ≠ 0
130129a1i 11 . . . . . . . . . 10 (𝜑 → 2 ≠ 0)
13115, 15, 128, 130div23d 12024 . . . . . . . . 9 (𝜑 → ((𝑁 · 𝑁) / 2) = ((𝑁 / 2) · 𝑁))
132127, 131eqtrd 2764 . . . . . . . 8 (𝜑 → ((𝑁↑2) / 2) = ((𝑁 / 2) · 𝑁))
13344rehalfcld 12456 . . . . . . . . 9 (𝜑 → (𝑁 / 2) ∈ ℝ)
13444, 29resubcld 11639 . . . . . . . . 9 (𝜑 → (𝑁𝑅) ∈ ℝ)
13544, 32readdcld 11240 . . . . . . . . 9 (𝜑 → (𝑁 + 1) ∈ ℝ)
136 2rp 12976 . . . . . . . . . . 11 2 ∈ ℝ+
137136a1i 11 . . . . . . . . . 10 (𝜑 → 2 ∈ ℝ+)
13810rpge0d 13017 . . . . . . . . . 10 (𝜑 → 0 ≤ 𝑁)
13944, 137, 138divge0d 13053 . . . . . . . . 9 (𝜑 → 0 ≤ (𝑁 / 2))
14029, 44, 137lemuldiv2d 13063 . . . . . . . . . . . 12 (𝜑 → ((2 · 𝑅) ≤ 𝑁𝑅 ≤ (𝑁 / 2)))
14150, 140mpbid 231 . . . . . . . . . . 11 (𝜑𝑅 ≤ (𝑁 / 2))
142152halvesd 12455 . . . . . . . . . . . 12 (𝜑 → ((𝑁 / 2) + (𝑁 / 2)) = 𝑁)
143133recnd 11239 . . . . . . . . . . . . 13 (𝜑 → (𝑁 / 2) ∈ ℂ)
14415, 143, 143subaddd 11586 . . . . . . . . . . . 12 (𝜑 → ((𝑁 − (𝑁 / 2)) = (𝑁 / 2) ↔ ((𝑁 / 2) + (𝑁 / 2)) = 𝑁))
145142, 144mpbird 257 . . . . . . . . . . 11 (𝜑 → (𝑁 − (𝑁 / 2)) = (𝑁 / 2))
146141, 145breqtrrd 5166 . . . . . . . . . 10 (𝜑𝑅 ≤ (𝑁 − (𝑁 / 2)))
14729, 44, 133, 146lesubd 11815 . . . . . . . . 9 (𝜑 → (𝑁 / 2) ≤ (𝑁𝑅))
14844lep1d 12142 . . . . . . . . 9 (𝜑𝑁 ≤ (𝑁 + 1))
149133, 134, 44, 135, 139, 138, 147, 148lemul12ad 12153 . . . . . . . 8 (𝜑 → ((𝑁 / 2) · 𝑁) ≤ ((𝑁𝑅) · (𝑁 + 1)))
150132, 149eqbrtrd 5160 . . . . . . 7 (𝜑 → ((𝑁↑2) / 2) ≤ ((𝑁𝑅) · (𝑁 + 1)))
151122, 116, 33, 125, 150lediv2ad 13035 . . . . . 6 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) ≤ ((𝑅 + 1) / ((𝑁↑2) / 2)))
1521peano2nnd 12226 . . . . . . . . 9 (𝜑 → (𝑅 + 1) ∈ ℕ)
153152nncnd 12225 . . . . . . . 8 (𝜑 → (𝑅 + 1) ∈ ℂ)
15435nncnd 12225 . . . . . . . 8 (𝜑 → (𝑁↑2) ∈ ℂ)
15535nnne0d 12259 . . . . . . . 8 (𝜑 → (𝑁↑2) ≠ 0)
156153, 154, 128, 155, 130divdiv2d 12019 . . . . . . 7 (𝜑 → ((𝑅 + 1) / ((𝑁↑2) / 2)) = (((𝑅 + 1) · 2) / (𝑁↑2)))
157153, 128mulcomd 11232 . . . . . . . 8 (𝜑 → ((𝑅 + 1) · 2) = (2 · (𝑅 + 1)))
158157oveq1d 7416 . . . . . . 7 (𝜑 → (((𝑅 + 1) · 2) / (𝑁↑2)) = ((2 · (𝑅 + 1)) / (𝑁↑2)))
159156, 158eqtr2d 2765 . . . . . 6 (𝜑 → ((2 · (𝑅 + 1)) / (𝑁↑2)) = ((𝑅 + 1) / ((𝑁↑2) / 2)))
160151, 159breqtrrd 5166 . . . . 5 (𝜑 → ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1))) ≤ ((2 · (𝑅 + 1)) / (𝑁↑2)))
161117, 36, 29, 118, 160lemul2ad 12151 . . . 4 (𝜑 → (𝑅 · ((𝑅 + 1) / ((𝑁𝑅) · (𝑁 + 1)))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
162115, 161eqbrtrrd 5162 . . 3 (𝜑 → ((𝑅 · ((1 / 𝑁) − (1 / (𝑁 + 1)))) + (𝑅 · ((1 / (𝑁𝑅)) − (1 / 𝑁)))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
16328, 58, 37, 95, 162letrd 11368 . 2 (𝜑 → ((abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (𝐴 / 𝑁))) + (abs‘((𝐴 / 𝑁) − (log‘((𝐴 / 𝑁) + 1))))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
16423, 28, 37, 38, 163letrd 11368 1 (𝜑 → (abs‘((𝐴 · (log‘((𝑁 + 1) / 𝑁))) − (log‘((𝐴 / 𝑁) + 1)))) ≤ (𝑅 · ((2 · (𝑅 + 1)) / (𝑁↑2))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395   = wceq 1533  wcel 2098  wne 2932  wral 3053  {crab 3424  cdif 3937   class class class wbr 5138  cfv 6533  (class class class)co 7401  cc 11104  cr 11105  0cc0 11106  1c1 11107   + caddc 11109   · cmul 11111   < clt 11245  cle 11246  cmin 11441   / cdiv 11868  cn 12209  2c2 12264  0cn0 12469  cz 12555  +crp 12971  cexp 14024  abscabs 15178  logclog 26405
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-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185
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-se 5622  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-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-of 7663  df-om 7849  df-1st 7968  df-2nd 7969  df-supp 8141  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-2o 8462  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  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-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-mod 13832  df-seq 13964  df-exp 14025  df-fac 14231  df-bc 14260  df-hash 14288  df-shft 15011  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-limsup 15412  df-clim 15429  df-rlim 15430  df-sum 15630  df-ef 16008  df-sin 16010  df-cos 16011  df-tan 16012  df-pi 16013  df-struct 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-submnd 18704  df-mulg 18986  df-cntz 19223  df-cmn 19692  df-psmet 21220  df-xmet 21221  df-met 21222  df-bl 21223  df-mopn 21224  df-fbas 21225  df-fg 21226  df-cnfld 21229  df-top 22718  df-topon 22735  df-topsp 22757  df-bases 22771  df-cld 22845  df-ntr 22846  df-cls 22847  df-nei 22924  df-lp 22962  df-perf 22963  df-cn 23053  df-cnp 23054  df-haus 23141  df-cmp 23213  df-tx 23388  df-hmeo 23581  df-fil 23672  df-fm 23764  df-flim 23765  df-flf 23766  df-xms 24148  df-ms 24149  df-tms 24150  df-cncf 24720  df-limc 25717  df-dv 25718  df-log 26407
This theorem is referenced by:  lgamgulmlem5  26881
  Copyright terms: Public domain W3C validator