From 1d1ae779cc42a304d0d201fc399e37ec4c482205 Mon Sep 17 00:00:00 2001
From: Stefan Kebekus <kebekus@users.noreply.github.com>
Date: Thu, 12 Dec 2024 13:49:33 +0100
Subject: [PATCH] Working

---
 Nevanlinna/meromorphicOn_integrability.lean | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/Nevanlinna/meromorphicOn_integrability.lean b/Nevanlinna/meromorphicOn_integrability.lean
index 57eae67..df535b3 100644
--- a/Nevanlinna/meromorphicOn_integrability.lean
+++ b/Nevanlinna/meromorphicOn_integrability.lean
@@ -12,6 +12,22 @@ open scoped Interval Topology
 open Real Filter MeasureTheory intervalIntegral
 
 
+lemma a
+  (S : Set ℂ)
+  (hS : S ∈ Filter.codiscreteWithin ⊤) :
+  DiscreteTopology (Sᶜ : Set ℂ) := by
+
+  rw [mem_codiscreteWithin] at hS
+  simp at hS
+  have : (Set.univ \ S)ᶜ = S := by ext z; simp
+  rw [this] at hS
+
+  rw [discreteTopology_subtype_iff]
+  intro x hx
+  rw [← mem_iff_inf_principal_compl]
+  exact (hS x)
+
+
 theorem integrability_congr_changeDiscrete
   {f₁ f₂ : ℂ → ℂ}
   {r : ℝ}
@@ -28,6 +44,7 @@ theorem integrability_congr_changeDiscrete
       exact rfl
     rw [this]
     apply Set.Countable.preimage_circleMap
+
     sorry
     sorry
   · sorry