Theorem: DirichletCharacter.LSeries_twist_vonMangoldt_eq
File: Mathlib/NumberTheory/LSeries/Dirichlet.lean

Proof steps:
state_before: N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
state_after: case inl
s : ℂ
hs : 1 < s.re
χ : DirichletCharacter ℂ 0
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s

case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
tactic: rcases eq_or_ne N 0 with rfl | hN
state_before: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
state_after: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
tactic: have hχ : LSeriesSummable ↗χ s := (LSeriesSummable_iff hN χ).mpr hs
state_before: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
state_after: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
hs' : (abscissaOfAbsConv fun n => χ ↑n) < ↑s.re
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
tactic: have hs' : abscissaOfAbsConv ↗χ < s.re := by
    rwa [absicssaOfAbsConv_eq_one hN, ← EReal.coe_one, EReal.coe_lt_coe_iff]
state_before: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
hs' : (abscissaOfAbsConv fun n => χ ↑n) < ↑s.re
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
state_after: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
hs' : (abscissaOfAbsConv fun n => χ ↑n) < ↑s.re
hΛ : LSeriesSummable ((fun n => χ ↑n) * fun n => ↑(Λ n)) s
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
tactic: have hΛ : LSeriesSummable (↗χ * ↗Λ) s := LSeriesSummable_twist_vonMangoldt χ hs
state_before: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
hs' : (abscissaOfAbsConv fun n => χ ↑n) < ↑s.re
hΛ : LSeriesSummable ((fun n => χ ↑n) * fun n => ↑(Λ n)) s
⊢ L ((fun n => χ ↑n) * fun n => ↑(Λ n)) s = -deriv (L fun n => χ ↑n) s / L (fun n => χ ↑n) s
state_after: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
hs' : (abscissaOfAbsConv fun n => χ ↑n) < ↑s.re
hΛ : LSeriesSummable ((fun n => χ ↑n) * fun n => ↑(Λ n)) s
⊢ L ((fun n => χ ↑n) * fun n => Complex.log ↑n) s = L (logMul fun n => χ ↑n) s
tactic: rw [eq_div_iff <| LSeries_ne_zero_of_one_lt_re χ hs, ← LSeries_convolution' hΛ hχ,
    convolution_twist_vonMangoldt, LSeries_deriv hs', neg_neg]
state_before: case inr
N : ℕ
χ : DirichletCharacter ℂ N
s : ℂ
hs : 1 < s.re
hN : N ≠ 0
hχ : LSeriesSummable (fun n => χ ↑n) s
hs' : (abscissaOfAbsConv fun n => χ ↑n) < ↑s.re
hΛ : LSeriesSummable ((fun n => χ ↑n) * fun n => ↑(Λ n)) s
⊢ L ((fun n => χ ↑n) * fun n => Complex.log ↑n) s = L (logMul fun n => χ ↑n) s
state_after: no goals
tactic: exact LSeries_congr s fun _ ↦ by simp only [Pi.mul_apply, mul_comm, logMul]