English
Disjoint unions of locally path-connected spaces are locally path-connected.
Русский
Дисjoint объединения локально путевых пространств локально путеподключены.
LaTeX
$$LocPathConnectedSpace (X ⊕ Y)$$
Lean4
/-- Disjoint unions of locally path-connected spaces are locally path-connected. -/
instance locPathConnectedSpace.{u} {X Y : Type u} [TopologicalSpace X] [TopologicalSpace Y] [LocPathConnectedSpace X]
[LocPathConnectedSpace Y] : LocPathConnectedSpace (X ⊕ Y) :=
by
rw [locPathConnectedSpace_iff_pathComponentIn_mem_nhds]; intro x u hu hxu; rw [mem_nhds_iff]
obtain x | y := x
· refine ⟨Sum.inl '' (pathComponentIn (Sum.inl ⁻¹' u) x), ?_, ?_, ?_⟩
· apply IsPathConnected.subset_pathComponentIn
· exact (isPathConnected_pathComponentIn (by exact hxu)).image continuous_inl
· exact ⟨x, mem_pathComponentIn_self hxu, rfl⟩
· exact (image_mono pathComponentIn_subset).trans (u.image_preimage_subset _)
· exact isOpenMap_inl _ <| (hu.preimage continuous_inl).pathComponentIn _
· exact ⟨x, mem_pathComponentIn_self hxu, rfl⟩
· refine ⟨Sum.inr '' (pathComponentIn (Sum.inr ⁻¹' u) y), ?_, ?_, ?_⟩
· apply IsPathConnected.subset_pathComponentIn
· exact (isPathConnected_pathComponentIn (by exact hxu)).image continuous_inr
· exact ⟨y, mem_pathComponentIn_self hxu, rfl⟩
· exact (image_mono pathComponentIn_subset).trans (u.image_preimage_subset _)
· exact isOpenMap_inr _ <| (hu.preimage continuous_inr).pathComponentIn _
· exact ⟨y, mem_pathComponentIn_self hxu, rfl⟩