Update meromorphicOn.lean

Nevanlinna/meromorphicOn.lean

@@ -18,19 +18,38 @@ theorem MeromorphicOn.open_of_order_eq_top
   apply isOpen_iff_forall_mem_open.mpr
   intro z hz
   simp at hz
+
+  have h₁z := hz
   rw [MeromorphicAt.order_eq_top_iff] at hz
   rw [eventually_nhdsWithin_iff] at hz
   rw [eventually_nhds_iff] at hz
   obtain ⟨t', h₁t', h₂t', h₃t'⟩ := hz
-
   let t : Set U := Subtype.val ⁻¹' t'
   use t
   constructor
   · intro w hw
     simp
+    by_cases h₁w : w = z
+    · rwa [h₁w]
+    · --
       rw [MeromorphicAt.order_eq_top_iff]
+      rw [eventually_nhdsWithin_iff]
+      rw [eventually_nhds_iff]
+      use t' \ {z.1}
+      constructor
+      · intro y h₁y h₂y
+        apply h₁t'
+        exact Set.mem_of_mem_diff h₁y
+        exact Set.mem_of_mem_inter_right h₁y
+      · constructor
+        · apply IsOpen.sdiff h₂t'
+          exact isClosed_singleton
+        · rw [Set.mem_diff]
+          constructor
+          · exact hw
+          · simp
+            exact Subtype.coe_ne_coe.mpr h₁w
 
-    sorry
   · constructor
     · exact isOpen_induced h₂t'
     · exact h₃t'