Update meromorphicOn.lean
This commit is contained in:
		| @@ -18,19 +18,38 @@ theorem MeromorphicOn.open_of_order_eq_top | |||||||
|   apply isOpen_iff_forall_mem_open.mpr |   apply isOpen_iff_forall_mem_open.mpr | ||||||
|   intro z hz |   intro z hz | ||||||
|   simp at hz |   simp at hz | ||||||
|  |  | ||||||
|  |   have h₁z := hz | ||||||
|   rw [MeromorphicAt.order_eq_top_iff] at hz |   rw [MeromorphicAt.order_eq_top_iff] at hz | ||||||
|   rw [eventually_nhdsWithin_iff] at hz |   rw [eventually_nhdsWithin_iff] at hz | ||||||
|   rw [eventually_nhds_iff] at hz |   rw [eventually_nhds_iff] at hz | ||||||
|   obtain ⟨t', h₁t', h₂t', h₃t'⟩ := hz |   obtain ⟨t', h₁t', h₂t', h₃t'⟩ := hz | ||||||
|  |  | ||||||
|   let t : Set U := Subtype.val ⁻¹' t' |   let t : Set U := Subtype.val ⁻¹' t' | ||||||
|   use t |   use t | ||||||
|   constructor |   constructor | ||||||
|   · intro w hw |   · intro w hw | ||||||
|     simp |     simp | ||||||
|     rw [MeromorphicAt.order_eq_top_iff] |     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 |   · constructor | ||||||
|     · exact isOpen_induced h₂t' |     · exact isOpen_induced h₂t' | ||||||
|     · exact h₃t' |     · exact h₃t' | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user
	 Stefan Kebekus
					Stefan Kebekus