obtain ⟨A, hA, C, Cpos, hC⟩ := ZetaDerivUpperBnd
⊢ ∃ A,
    ∃ (_ : A ∈ Ioc 0 (1 / 2)),
      ∃ C,
        ∃ (_ : 0 < C),
          ∀ (σ₁ σ₂ t : ℝ),
            3 < |t| →
              1 - A / |t|.log ≤ σ₁ →
                σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C * |t|.log ^ 2 * (σ₂ - σ₁)
case intro.intro.intro.intro
A : ℝ
hA : A ∈ Ioc 0 (1 / 2)
C : ℝ
Cpos : 0 < C
hC : ∀ (σ t : ℝ), 3 < |t| → σ ∈ Icc (1 - A / |t|.log) 2 → ‖deriv ζ (↑σ + ↑t * I)‖ ≤ C * |t|.log ^ 2
⊢ ∃ A,
    ∃ (_ : A ∈ Ioc 0 (1 / 2)),
      ∃ C,
        ∃ (_ : 0 < C),
          ∀ (σ₁ σ₂ t : ℝ),
            3 < |t| →
              1 - A / |t|.log ≤ σ₁ →
                σ₂ ≤ 2 → σ₁ < σ₂ → ‖ζ (↑σ₂ + ↑t * I) - ζ (↑σ₁ + ↑t * I)‖ ≤ C * |t|.log ^ 2 * (σ₂ - σ₁)