internlm/Lean-Github huggingface dataset:
Theorem: ZetaInvBnd
Proof state before:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-7) ≤
    C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-27 / 4) * |t|.log ^ (-1 / 4) +
      (|t|.log ^ (-7) * C₂ * A * 2 - C₂ * |t|.log ^ 2 * A * |t|.log ^ (-9) * 2)
Tactic:
conv => rhs; lhs; rw [mul_assoc, ← Real.rpow_add (by positivity)]
Proof state after:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-7) ≤
    C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-27 / 4 + -1 / 4) +
      (|t|.log ^ (-7) * C₂ * A * 2 - C₂ * |t|.log ^ 2 * A * |t|.log ^ (-9) * 2)
Theorem: ZetaInvBnd
Proof state before:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-7) ≤
    C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-27 / 4 + -1 / 4) +
      (|t|.log ^ (-7) * C₂ * A * 2 - C₂ * |t|.log ^ 2 * A * |t|.log ^ (-9) * 2)
Tactic:
conv => rhs; rhs; rhs; rw [mul_comm _ A]; lhs; rw [mul_assoc, mul_assoc C₂]
Proof state after:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-7) ≤
    C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-27 / 4 + -1 / 4) +
      (|t|.log ^ (-7) * C₂ * A * 2 - A * (C₂ * (|t|.log ^ 2 * |t|.log ^ (-9))) * 2)
Theorem: ZetaInvBnd
Proof state before:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-7) ≤
    C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-27 / 4 + -1 / 4) +
      (|t|.log ^ (-7) * C₂ * A * 2 - A * (C₂ * (|t|.log ^ 2 * |t|.log ^ (-9))) * 2)
Tactic:
rw [← Real.rpow_add (by positivity)]
Proof state after:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-7) ≤
    C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-27 / 4 + -1 / 4) +
      (|t|.log ^ (-7) * C₂ * A * 2 - A * (C₂ * |t|.log ^ (2 + -9)) * 2)
Theorem: ZetaInvBnd
Proof state before:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-7) ≤
    C'⁻¹ * A ^ (3 / 4) * |t|.log ^ (-27 / 4 + -1 / 4) +
      (|t|.log ^ (-7) * C₂ * A * 2 - A * (C₂ * |t|.log ^ (2 + -9)) * 2)
Tactic:
norm_num
Proof state after:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ A * (C₂ * t.log ^ (-7)) ≤ t.log ^ (-7) * C₂ * A
Theorem: ZetaInvBnd
Proof state before:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ A * (C₂ * t.log ^ (-7)) ≤ t.log ^ (-7) * C₂ * A
Tactic:
group
Proof state after:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ A * C₂ * t.log ^ (-7) ≤ A * C₂ * t.log ^ (-7)
Theorem: ZetaInvBnd
Proof state before:
case calc_4
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ A * C₂ * t.log ^ (-7) ≤ A * C₂ * t.log ^ (-7)
Tactic:
exact le_rfl
Proof state after:
no goals
Theorem: ZetaInvBnd
Proof state before:
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 0 ≤ |t|.log
Tactic:
positivity
Proof state after:
no goals
Theorem: ZetaInvBnd
Proof state before:
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 0 ≤ A
Tactic:
positivity
Proof state after:
no goals
Theorem: ZetaInvBnd
Proof state before:
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 0 ≤ |t|.log ^ (-9)
Tactic:
positivity
Proof state after:
no goals
Theorem: ZetaInvBnd
Proof state before:
case calc_5
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ (C₁ * A ^ (3 / 4) - C₂ * 2 * A) * |t|.log ^ (-7) ≥ 1 / (C * |t|.log ^ 7)
Tactic:
apply div_le_iff (by positivity) |>.mpr
Proof state after:
case calc_5
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 1 ≤ (C₁ * A ^ (3 / 4) - C₂ * 2 * A) * |t|.log ^ (-7) * (C * |t|.log ^ 7)
Theorem: ZetaInvBnd
Proof state before:
case calc_5
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 1 ≤ (C₁ * A ^ (3 / 4) - C₂ * 2 * A) * |t|.log ^ (-7) * (C * |t|.log ^ 7)
Tactic:
conv => rw [mul_assoc]; rhs; rhs; rw [mul_comm C, ← mul_assoc, ← Real.rpow_add (by positivity)]
Proof state after:
case calc_5
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 1 ≤ (C₁ * A ^ (3 / 4) - C₂ * 2 * A) * (|t|.log ^ (-7 + 7) * C)
Theorem: ZetaInvBnd
Proof state before:
case calc_5
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 1 ≤ (C₁ * A ^ (3 / 4) - C₂ * 2 * A) * (|t|.log ^ (-7 + 7) * C)
Tactic:
have := inv_inv C ▸ mul_inv_cancel (a := C⁻¹) (by positivity) |>.symm.le
Proof state after:
case calc_5
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
this : 1 ≤ C⁻¹ * C
⊢ 1 ≤ (C₁ * A ^ (3 / 4) - C₂ * 2 * A) * (|t|.log ^ (-7 + 7) * C)
Theorem: ZetaInvBnd
Proof state before:
case calc_5
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
this : 1 ≤ C⁻¹ * C
⊢ 1 ≤ (C₁ * A ^ (3 / 4) - C₂ * 2 * A) * (|t|.log ^ (-7 + 7) * C)
Tactic:
simpa [C] using this
Proof state after:
no goals
Theorem: ZetaInvBnd
Proof state before:
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ 0 < C * |t|.log ^ 7
Tactic:
positivity
Proof state after:
no goals
Theorem: ZetaInvBnd
Proof state before:
C' : ℝ
C'pos : C' > 0
hC₁ : ∀ {σ : ℝ}, σ ∈ Ioc 1 2 → ∀ (t : ℝ), 3 < |t| → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C' * (σ - 1) ^ (-3 / 4) * |t|.log ^ (1 / 4)
A' : ℝ
hA' : A' ∈ Ioc 0 (1 / 2)
C₂ : ℝ
C₂pos : 0 < C₂
hC₂ :
  ∀ (σ₁ σ₂ t : ℝ),
    3 < |t| →
      1 - A' / |t|.log ≤ σ₁ → σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C₂ * |t|.log ^ 2 * (σ₂ - σ₁)
C₁ : ℝ := 1 / C'
A : ℝ := min A' (1 / 2 * (C₁ / (C₂ * 2)) ^ 4)
Apos : 0 < A
Ale : A ≤ 1 / 2
C : ℝ := (C₁ * A ^ (3 / 4) - C₂ * 2 * A)⁻¹
Cpos : 0 < C
σ t : ℝ
t_gt : 3 < |t|
hσ : σ ∈ Ico (1 - A / |t|.log ^ 9) 1
logt_gt_one : 1 < |t|.log
σ_ge : 1 - A / |t|.log ≤ σ
left✝¹ : 0 < ⌊|t|⌋₊
left✝ : ↑⌊|t|⌋₊ ≤ |t|
σ' : ℝ := 1 + A / |t|.log ^ 9
σ'_gt : 1 < σ'
σ'_le : σ' ≤ 2
s : ℂ := ↑σ + ↑t * I
neOne : 1 < |t|.log ∧ 1 - A < σ ∧ 0 < σ ∧ s ≠ 1
s' : ℂ := ↑σ' + ↑t * I
h0 : ‖ζ s‖ ≠ 0
pos_aux : 0 < σ' - 1
⊢ C⁻¹ ≠ 0
Tactic:
positivity
Proof state after:
no goals
Theorem: LogDerivZetaBnd
Proof state before:
⊢ ∃ A,
    ∃ (_ : A ∈ Ioc 0 (1 / 2)),
      ∃ C,
        ∃ (_ : 0 < C),
          ∀ (σ t : ℝ),
            3 < |t| → σ ∈ Ico (1 - A / |t|.log ^ 9) 1 → ‖deriv ζ (↑σ + ↑t * I) / ζ (↑σ + ↑t * I)‖ ≤ C * |t|.log ^ 9
Tactic:
obtain ⟨A, hA, C, hC, h⟩ := ZetaInvBnd
Proof state after:
case intro.intro.intro.intro
A : ℝ
hA : A ∈ Ioc 0 (1 / 2)
C : ℝ
hC : 0 < C
h : ∀ (σ t : ℝ), 3 < |t| → σ ∈ Ico (1 - A / |t|.log ^ 9) 1 → 1 / ‖ζ (↑σ + ↑t * I)‖ ≤ C * |t|.log ^ 7
⊢ ∃ A,
    ∃ (_ : A ∈ Ioc 0 (1 / 2)),
      ∃ C,
        ∃ (_ : 0 < C),
          ∀ (σ t : ℝ),
            3 < |t| → σ ∈ Ico (1 - A / |t|.log ^ 9) 1 → ‖deriv ζ (↑σ + ↑t * I) / ζ (↑σ + ↑t * I)‖ ≤ C * |t|.log ^ 9