and its (weak) topology
DefinitionClosingLemma_DiffeoCrTopologyLet be a smooth manifold modelled on (without boundary) and let be an integer. Write for the set of diffeomorphisms .
For , charts and of the smooth structure of , a compact set with , and , the basic neighbourhood is the set of such that
- , and
- for every and every ,
where is the -th Fréchet derivative (a -linear map, with the operator norm).
The (weak) topology on is the topology generated by all such basic neighbourhoods. On a compact manifold it coincides with the strong (Whitney) topology. This is the topology in which "a -small perturbation of " is measured in the closing lemma.
Formalization Note is Diffeomorph (𝓡 n) (𝓡 n) M M r. Charts range over the maximal atlas IsManifold.maximalAtlas (𝓡 n) ∞ M. Local representatives are composed as total functions on ; since lies in the open set and , their derivatives at points of agree with those of the genuine local representative. The topology is a def (crTopology r) with a scoped instance, so it does not clash with other topologies on diffeomorphism groups.
import Mathlib
/-!
# `C^r` diffeomorphisms of a closed manifold and the weak `C^r` topology
Setting for the Prove2Me mission "Closing lemma for `C^r` diffeomorphisms".
* `ClosingLemma.Diff n M r` : the space `Diff^r(M)` of `C^r` diffeomorphisms of a smooth
manifold `M` modelled on `ℝⁿ` (no boundary).
* `ClosingLemma.crBasicNhd` : Hirsch's basic set `𝒩^r(f; (φ,U), (ψ,V), K, ε)`.
* `ClosingLemma.crTopology` : the weak (compact-open) `C^r` topology, generated by these sets
(Hirsch, *Differential Topology*, Ch. 2, §1). For compact `M` it coincides with the strong
(Whitney) `C^r` topology.
-/
open scoped Manifold ContDiff Topology
namespace ClosingLemma
/-- `Diff^r(M)`: the `C^r` diffeomorphisms of a manifold `M` modelled on `ℝⁿ`
(boundaryless model `𝓡 n`). -/
abbrev Diff (n : ℕ) (M : Type*) [TopologicalSpace M]
[ChartedSpace (EuclideanSpace ℝ (Fin n)) M] (r : ℕ) :=
Diffeomorph (𝓡 n) (𝓡 n) M M (r : WithTop ℕ∞)
variable {n : ℕ} {M : Type*} [TopologicalSpace M] [ChartedSpace (EuclideanSpace ℝ (Fin n)) M]
/-- Hirsch's basic set `𝒩^r(f; (φ,U), (ψ,V), K, ε)`: the diffeomorphisms `g` with
`g(K) ⊆ V = ψ.source` whose local representative `ψ ∘ g ∘ φ⁻¹` has all derivatives of order
`0, 1, …, r` within `ε` of those of `ψ ∘ f ∘ φ⁻¹` at every point of `φ(K)`. -/
def crBasicNhd (r : ℕ) (f : Diff n M r)
(φ ψ : OpenPartialHomeomorph M (EuclideanSpace ℝ (Fin n))) (K : Set M) (ε : ℝ) :
Set (Diff n M r) :=
{g | Set.MapsTo g K ψ.source ∧ ∀ x ∈ φ '' K, ∀ k ≤ r,
‖iteratedFDeriv ℝ k (ψ ∘ g ∘ φ.symm) x - iteratedFDeriv ℝ k (ψ ∘ f ∘ φ.symm) x‖ < ε}
/-- The admissible basic sets: `φ, ψ` are charts of the smooth structure of `M`,
`K ⊆ φ.source` is compact, `f(K) ⊆ ψ.source`, and `ε > 0`. -/
def crBasicNhds (r : ℕ) : Set (Set (Diff n M r)) :=
{S | ∃ (f : Diff n M r) (φ ψ : OpenPartialHomeomorph M (EuclideanSpace ℝ (Fin n)))
(K : Set M) (ε : ℝ),
φ ∈ IsManifold.maximalAtlas (𝓡 n) ∞ M ∧ ψ ∈ IsManifold.maximalAtlas (𝓡 n) ∞ M ∧
IsCompact K ∧ K ⊆ φ.source ∧ Set.MapsTo f K ψ.source ∧ 0 < ε ∧
S = crBasicNhd r f φ ψ K ε}
/-- The weak `C^r` topology on `Diff^r(M)`, generated by the basic sets `crBasicNhds r`. -/
abbrev crTopology (r : ℕ) : TopologicalSpace (Diff n M r) :=
TopologicalSpace.generateFrom (crBasicNhds r)
scoped instance (r : ℕ) : TopologicalSpace (Diff n M r) := crTopology r
end ClosingLemma
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.