Update divisor.lean

This commit is contained in:
Stefan Kebekus 2024-09-17 10:43:46 +02:00
parent 12f0543f47
commit 12d81cb0a9
1 changed files with 13 additions and 3 deletions

View File

@ -23,7 +23,13 @@ noncomputable def Divisor.n
noncomputable def Divisor.N_trunk noncomputable def Divisor.N_trunk
(D : Divisor) : := fun k r ↦ ∫ (t : ) in (1)..r, (D.n_trunk k t) / t (D : Divisor) : := fun k r ↦ ∫ (t : ) in (1)..r, (D.n_trunk k t) / t
theorem Divisor.compactSupport
(D : Divisor)
{U : Set }
(h₁U : IsCompact U)
(h₂U : Function.support D ⊆ U) :
Set.Finite (Function.support D) := by
sorry
noncomputable def AnalyticOn.zeroDivisor noncomputable def AnalyticOn.zeroDivisor
@ -122,8 +128,12 @@ theorem AnalyticOn.support_of_zeroDivisor₂
(hf : AnalyticOn f U) : (hf : AnalyticOn f U) :
Function.support hf.zeroDivisor ⊆ f⁻¹' {0} := by Function.support hf.zeroDivisor ⊆ f⁻¹' {0} := by
simp
intro z hz intro z hz
dsimp [AnalyticOn.zeroDivisor] dsimp [AnalyticOn.zeroDivisor] at hz
have t₀ := hf.support_of_zeroDivisor hz
simp [hf.support_of_zeroDivisor hz] at hz
let A := hz.1
let C := (hf z t₀).order_eq_zero_iff
simp simp
rw [C] at A
tauto tauto