From 4642c017c7f432a4e0d99f93a06b43277e20ec2c Mon Sep 17 00:00:00 2001
From: Stefan Kebekus <kebekus@users.noreply.github.com>
Date: Thu, 8 Aug 2024 14:26:53 +0200
Subject: [PATCH] =?UTF-8?q?working=E2=80=A6?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Nevanlinna/harmonicAt_meanValue.lean | 55 ++++++++++++++++++++--------
 Nevanlinna/holomorphic_examples.lean |  2 +-
 2 files changed, 40 insertions(+), 17 deletions(-)

diff --git a/Nevanlinna/harmonicAt_meanValue.lean b/Nevanlinna/harmonicAt_meanValue.lean
index c36692c..7b4f2cf 100644
--- a/Nevanlinna/harmonicAt_meanValue.lean
+++ b/Nevanlinna/harmonicAt_meanValue.lean
@@ -3,28 +3,51 @@ import Nevanlinna.holomorphic_examples
 
 theorem harmonic_meanValue
   {f : ℂ → ℝ}
-  (hf : ∀ z, HarmonicAt f z)
-  (R : ℝ)
-  (hR : R > 0) :
-  (∫ (x : ℝ) in (0)..2 * Real.pi, f (circleMap 0 R x)) = 2 * Real.pi * f 0
+  {z : ℂ}
+  (ρ R : ℝ)
+  (hR : R > 0)
+  (hρ : ρ > R)
+  (hf : ∀ x ∈ Metric.ball z ρ , HarmonicAt f x)
+  :
+  (∫ (x : ℝ) in (0)..2 * Real.pi, f (circleMap z R x)) = 2 * Real.pi * f z
   := by
 
-  obtain ⟨F, h₁F, h₂F⟩ := harmonic_is_realOfHolomorphic hf
+  obtain ⟨F, h₁F, h₂F⟩ := harmonic_is_realOfHolomorphic (gt_trans hρ hR) hf
 
-  have regF : Differentiable ℂ F := fun z ↦ HolomorphicAt.differentiableAt (h₁F z)
+  have hrρ : Metric.ball z R ⊆ Metric.ball z ρ := by
+    intro x hx
+    exact gt_trans hρ hx
 
-  have : (∮ (z : ℂ) in C(0, R), z⁻¹ • F z) = (2 * ↑Real.pi * Complex.I) • F 0 := by
+  have reg₀F : DifferentiableOn ℂ F (Metric.ball z ρ) := by
+    intro x hx
+    apply DifferentiableAt.differentiableWithinAt
+    apply HolomorphicAt.differentiableAt (h₁F x _)
+    exact hx
+
+  have reg₁F : DifferentiableOn ℂ F (Metric.ball z R) := by
+    intro x hx
+    apply DifferentiableAt.differentiableWithinAt
+    apply HolomorphicAt.differentiableAt (h₁F x _)
+    exact hrρ hx
+
+  have : (∮ (x : ℂ) in C(z, R), (x - z)⁻¹ • F x) = (2 * ↑Real.pi * Complex.I) • F z := by
     let s : Set ℂ := ∅
     let hs : s.Countable := Set.countable_empty
     let _ : ℂ := 0
-    let hw : (0 : ℂ) ∈ Metric.ball 0 R := Metric.mem_ball_self hR
-    let hc : ContinuousOn F (Metric.closedBall 0 R) := by
-      apply Continuous.continuousOn
-      exact regF.continuous
-    let hd : ∀ x ∈ Metric.ball 0 R \ s, DifferentiableAt ℂ F x := by
-      intro x _
-      exact regF x
-
+    have hw : (z : ℂ) ∈ Metric.ball z R := Metric.mem_ball_self hR
+    have hc : ContinuousOn F (Metric.closedBall z R) := by
+      apply reg₀F.continuousOn.mono
+      intro x hx
+      simp at hx
+      simp
+      linarith
+    have hd : ∀ x ∈ Metric.ball z R \ s, DifferentiableAt ℂ F x := by
+      intro x hx
+      let A := reg₁F x hx.1
+      apply A.differentiableAt
+      apply (IsOpen.mem_nhds_iff ?hs).mpr
+      exact hx.1
+      exact Metric.isOpen_ball
     let CIF := Complex.circleIntegral_sub_inv_smul_of_differentiable_on_off_countable hs hw hc hd
     simp at CIF
     assumption
@@ -32,7 +55,7 @@ theorem harmonic_meanValue
   unfold circleIntegral at this
   simp_rw [deriv_circleMap] at this
 
-  have t₁ {θ : ℝ} : (circleMap 0 R θ * Complex.I) • (circleMap 0 R θ)⁻¹ • F (circleMap 0 R θ) = Complex.I • F (circleMap 0 R θ) := by
+  have t₁ {θ : ℝ} : (circleMap 0 R θ * Complex.I) • (circleMap 0 R θ)⁻¹ • F (circleMap z R θ) = Complex.I • F (circleMap z R θ) := by
     rw [← smul_assoc]
     congr 1
     simp
diff --git a/Nevanlinna/holomorphic_examples.lean b/Nevanlinna/holomorphic_examples.lean
index c78a2c2..d273190 100644
--- a/Nevanlinna/holomorphic_examples.lean
+++ b/Nevanlinna/holomorphic_examples.lean
@@ -1,6 +1,6 @@
 import Nevanlinna.complexHarmonic
 import Nevanlinna.holomorphicAt
-import Nevanlinna.holomorphic_primitive2
+import Nevanlinna.holomorphic_primitive
 import Nevanlinna.mathlibAddOn