Component-swapping homeomorphism moves a connected component off itself
Provedimage_connectedComponentIn_subset_diff_of_forall_mem_irreducibleComponents_image_neLet be a topological space and let be closed subsets which are irreducible (nonempty and preirreducible), with and with neither contained in the other. Let be a homeomorphism such that for every in irreducibleComponents X, i.e. maps no maximal irreducible subset of onto itself. Let be a subset with , and let be a point such that the traces of the two pieces on are the connected component of in and its complement in : connectedComponentIn U p and connectedComponentIn U p. The conclusion is that for every in the connected component of in , the point lies in connectedComponentIn U p; equivalently, carries that connected component into its complement inside .
A purely topological statement about a space covered by two closed irreducible subsets, neither contained in the other, so that these are precisely its irreducible components and any homeomorphism either fixes each of them or interchanges them. It is used in the construction of the regular model of , where the relevant bad geometric fibre consists of two crossing curves, is an invariant open subset, and is the base change of the level- automorphism; it supplies the clause asserting that moves one connected component of onto the other.
import Mathlib set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false set_option autoImplicit false universe u
theorem image_connectedComponentIn_subset_diff_of_forall_mem_irreducibleComponents_image_ne
{X : Type u} [TopologicalSpace X] (Z₁ Z₂ : Set X)
(hZ₁c : IsClosed Z₁) (hZ₂c : IsClosed Z₂) (hZ₁ : IsIrreducible Z₁) (hZ₂ : IsIrreducible Z₂)
(hcov : Z₁ ∪ Z₂ = Set.univ) (h₁₂ : ¬ Z₁ ⊆ Z₂) (h₂₁ : ¬ Z₂ ⊆ Z₁)
(τ : X ≃ₜ X) (hτ : ∀ Z ∈ irreducibleComponents X, τ '' Z ≠ Z)
(U : Set X) (hτU : τ '' U = U) (p : X)
(hU₁ : Z₁ ∩ U = connectedComponentIn U p) (hU₂ : Z₂ ∩ U = U \ connectedComponentIn U p) :
∀ y ∈ connectedComponentIn U p, τ y ∈ U \ connectedComponentIn U p := by sorry