Documentation

TauCeti.Geometry.Manifold.Diffeomorph.Extend

Extending diffeomorphisms by the identity #

A diffeomorphism of an open part of a manifold extends by the identity when its moving points are contained in a closed subset of the ambient manifold lying inside that open part. IsLocalDiffeomorph.exists_diffeomorph_extend gives this extension along an open embedding which is a local diffeomorphism. The source and ambient manifold may have different models.

For a compact set in the source, its image is closed in a Hausdorff ambient manifold, giving IsLocalDiffeomorph.exists_diffeomorph_extend_of_isCompact. In particular, Diffeomorph.exists_extend_of_isCompact extends a compactly supported diffeomorphism of any open submanifold. These results transplant diffeomorphisms constructed in coordinates to the ambient manifold while keeping control of where points move.

When the open part is the source of an extended chart, the extension has an explicit formula, TauCeti.chartExtend: a map f of the model space which fixes every point outside a compact subset K of the interior of the chart target, and maps K into itself, is read through the chart on the chart source and extended by the identity elsewhere. The formula makes the dependence on f visible: a family of such maps depending C^n-smoothly on a parameter gives a family of self-maps of the manifold depending C^n-smoothly on the parameter (TauCeti.contMDiff_chartExtend). A diffeomorphism of the model space supported in K extends to the diffeomorphism Diffeomorph.chartExtend of the manifold.

The underlying homeomorphism is supplied by Topology.IsOpenEmbedding.exists_homeomorph_extend. Smoothness follows locally: on the open image, cancel the coordinate local diffeomorphism; away from the closed set, the extension is locally the identity. This applies to the inverse as well, without any loss of regularity.

References #

theorem IsLocalDiffeomorph.exists_diffeomorph_extend {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {F : Type u_3} [NormedAddCommGroup F] [NormedSpace 𝕜 F] {H : Type u_4} [TopologicalSpace H] {G : Type u_5} [TopologicalSpace G] {I : ModelWithCorners 𝕜 E H} {J : ModelWithCorners 𝕜 F G} {M : Type u_6} [TopologicalSpace M] [ChartedSpace H M] {N : Type u_7} [TopologicalSpace N] [ChartedSpace G N] {n : WithTop ℕ∞} {· : N → M} (h· : IsLocalDiffeomorph J I n ·) (h·o : Topology.IsOpenEmbedding ·) (Λ : Diffeomorph J J N N n) {C : Set M} (hC : IsClosed C) (hC· : C ⊆ Set.range ·) (hΛ : ∀ (z : N), · z ∉ C → Λ z = z) :
∃ (ÎĻ : Diffeomorph I I M M n), (∀ (z : N), ÎĻ (· z) = · (Λ z)) ∧ ∀ y ∉ C, ÎĻ y = y

A diffeomorphism of N extends along a smooth open embedding · : N → M by the identity if its moving points lie over a closed set C ⊆ range ·. The extension intertwines the original diffeomorphism with · and fixes every point outside C.

theorem IsLocalDiffeomorph.exists_diffeomorph_extend_of_isCompact {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {F : Type u_3} [NormedAddCommGroup F] [NormedSpace 𝕜 F] {H : Type u_4} [TopologicalSpace H] {G : Type u_5} [TopologicalSpace G] {I : ModelWithCorners 𝕜 E H} {J : ModelWithCorners 𝕜 F G} {M : Type u_6} [TopologicalSpace M] [ChartedSpace H M] {N : Type u_7} [TopologicalSpace N] [ChartedSpace G N] {n : WithTop ℕ∞} {· : N → M} [T2Space M] (h· : IsLocalDiffeomorph J I n ·) (h·o : Topology.IsOpenEmbedding ·) (Λ : Diffeomorph J J N N n) {K : Set N} (hK : IsCompact K) (hΛ : ∀ z ∉ K, Λ z = z) :
∃ (ÎĻ : Diffeomorph I I M M n), (∀ (z : N), ÎĻ (· z) = · (Λ z)) ∧ ∀ y ∉ · '' K, ÎĻ y = y

A diffeomorphism fixing the complement of a compact set K extends along a smooth open embedding into a Hausdorff manifold, fixing the complement of the compact image · '' K.

theorem Diffeomorph.exists_extend_of_isCompact {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] [T2Space M] {n : WithTop ℕ∞} {U : TopologicalSpace.Opens M} (Λ : Diffeomorph I I (â†ĨU) (â†ĨU) n) {K : Set â†ĨU} (hK : IsCompact K) (hΛ : ∀ z ∉ K, Λ z = z) :
∃ (ÎĻ : Diffeomorph I I M M n), (∀ (z : â†ĨU), ÎĻ â†‘z = ↑(Λ z)) ∧ ∀ y ∉ Subtype.val '' K, ÎĻ y = y

A diffeomorphism of an open submanifold, equal to the identity off a compact set K in that submanifold, extends to an ambient diffeomorphism equal to the identity off K's image. In particular, the ambient diffeomorphism fixes every point outside the open submanifold.

Extension through a chart #

noncomputable def TauCeti.chartExtend {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] (I : ModelWithCorners 𝕜 E H) {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] (f : E → E) (x z : M) :
M

The extension by the identity of a map f of the model space through the extended chart at x: a point z of the chart source goes to (extChartAt I x).symm (f (extChartAt I x z)), and every other point is fixed.

Instances For
    theorem TauCeti.chartExtend_of_mem {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] {f : E → E} {x z : M} (hz : z ∈ (extChartAt I x).source) :
    chartExtend I f x z = ↑(extChartAt I x).symm (f (↑(extChartAt I x) z))

    On the chart source, the extension of f is f read through the chart.

    theorem TauCeti.chartExtend_of_notMem {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] {f : E → E} {x z : M} (hz : z ∉ (extChartAt I x).source) :
    chartExtend I f x z = z

    Off the chart source, the extension of f is the identity.

    theorem TauCeti.chartExtend_extChartAt_symm {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] {f : E → E} {x : M} {p : E} (hp : p ∈ (extChartAt I x).target) :
    chartExtend I f x (↑(extChartAt I x).symm p) = ↑(extChartAt I x).symm (f p)

    On the chart, the extension of f reads as f.

    theorem TauCeti.chartExtend_eq_self {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] {f : E → E} {x z : M} {K : Set E} (hf : ∀ p ∉ K, f p = p) (hz : z ∉ ↑(extChartAt I x).symm '' K) :
    chartExtend I f x z = z

    The extension of a map fixing every point outside K fixes every point outside the preimage of K under the chart.

    @[simp]
    theorem TauCeti.chartExtend_id {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] {x : M} :

    The extension of the identity is the identity.

    theorem TauCeti.chartExtend_comp {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] {f g : E → E} {x : M} {K : Set E} (hKt : K ⊆ (extChartAt I x).target) (hg : ∀ p ∉ K, g p = p) (hgK : Set.MapsTo g K K) :

    Extension through a chart is compatible with composition, for maps fixing every point outside a subset K of the chart target and mapping K into itself.

    theorem TauCeti.contMDiff_chartExtend {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] {x : M} {K : Set E} {E' : Type u_5} [NormedAddCommGroup E'] [NormedSpace 𝕜 E'] {H' : Type u_6} [TopologicalSpace H'] {I' : ModelWithCorners 𝕜 E' H'} {P : Type u_7} [TopologicalSpace P] [ChartedSpace H' P] {n : WithTop ℕ∞} [T2Space M] [IsManifold I n M] {ÎĻ : P → E → E} (hÎĻ : ContMDiff (I'.prod (modelWithCornersSelf 𝕜 E)) (modelWithCornersSelf 𝕜 E) n fun (q : P × E) => ÎĻ q.1 q.2) (hK : IsCompact K) (hKt : K ⊆ interior (extChartAt I x).target) (hÎĻK : ∀ (q : P), Set.MapsTo (ÎĻ q) K K) (hÎĻ' : ∀ (q : P), ∀ p ∉ K, ÎĻ q p = p) :
    ContMDiff (I'.prod I) I n fun (q : P × M) => chartExtend I (ÎĻ q.1) x q.2

    Smooth dependence of the extension through a chart on parameters. Let ÎĻ q, for q in a manifold P, be maps of the model space depending jointly C^n-smoothly on q and the point, each fixing every point outside a compact subset K of the interior of the chart target and mapping K into itself. Then their extensions through the chart at x depend jointly C^n-smoothly on q and the point of M.

    noncomputable def Diffeomorph.chartExtend {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] [T2Space M] {n : WithTop ℕ∞} [IsManifold I n M] {K : Set E} (Ά : Diffeomorph (modelWithCornersSelf 𝕜 E) (modelWithCornersSelf 𝕜 E) E E n) (x : M) (hK : IsCompact K) (hKt : K ⊆ interior (extChartAt I x).target) (hΆ : ∀ p ∉ K, Ά p = p) :
    Diffeomorph I I M M n

    The extension of a diffeomorphism of the model space through a chart. A C^n diffeomorphism Ά of the model space fixing every point outside a compact subset K of the interior of the target of the extended chart at x extends to a C^n diffeomorphism of M: it reads as Ά through the chart (Diffeomorph.chartExtend_extChartAt_symm) and fixes every point outside the preimage of K under the chart (Diffeomorph.chartExtend_eq_self). Its inverse is the extension of Ά.symm (Diffeomorph.chartExtend_symm).

    Instances For
      @[simp]
      theorem Diffeomorph.coe_chartExtend {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] [T2Space M] {n : WithTop ℕ∞} [IsManifold I n M] {K : Set E} {Ά : Diffeomorph (modelWithCornersSelf 𝕜 E) (modelWithCornersSelf 𝕜 E) E E n} {x : M} {hK : IsCompact K} {hKt : K ⊆ interior (extChartAt I x).target} {hΆ : ∀ p ∉ K, Ά p = p} :
      ⇑(Ά.chartExtend x hK hKt hΆ) = TauCeti.chartExtend I (â‡‘Ī†) x

      The extension of Ά through the chart is TauCeti.chartExtend of Ά.

      @[simp]
      theorem Diffeomorph.chartExtend_symm {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] [T2Space M] {n : WithTop ℕ∞} [IsManifold I n M] {K : Set E} {Ά : Diffeomorph (modelWithCornersSelf 𝕜 E) (modelWithCornersSelf 𝕜 E) E E n} {x : M} {hK : IsCompact K} {hKt : K ⊆ interior (extChartAt I x).target} {hΆ : ∀ p ∉ K, Ά p = p} :
      (Ά.chartExtend x hK hKt hΆ).symm = Ά.symm.chartExtend x hK hKt ⋯

      The inverse of the extension of Ά through the chart is the extension of Ά.symm.

      theorem Diffeomorph.chartExtend_extChartAt_symm {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] [T2Space M] {n : WithTop ℕ∞} [IsManifold I n M] {K : Set E} {Ά : Diffeomorph (modelWithCornersSelf 𝕜 E) (modelWithCornersSelf 𝕜 E) E E n} {x : M} {hK : IsCompact K} {hKt : K ⊆ interior (extChartAt I x).target} {hΆ : ∀ p ∉ K, Ά p = p} {p : E} (hp : p ∈ (extChartAt I x).target) :
      (Ά.chartExtend x hK hKt hΆ) (↑(extChartAt I x).symm p) = ↑(extChartAt I x).symm (Ά p)

      The extension of Ά through the chart reads as Ά on the chart.

      theorem Diffeomorph.chartExtend_eq_self {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] [T2Space M] {n : WithTop ℕ∞} [IsManifold I n M] {K : Set E} {Ά : Diffeomorph (modelWithCornersSelf 𝕜 E) (modelWithCornersSelf 𝕜 E) E E n} {x : M} {hK : IsCompact K} {hKt : K ⊆ interior (extChartAt I x).target} {hΆ : ∀ p ∉ K, Ά p = p} {z : M} (hz : z ∉ ↑(extChartAt I x).symm '' K) :
      (Ά.chartExtend x hK hKt hΆ) z = z

      The extension of Ά through the chart fixes every point outside the preimage of K.

      theorem Diffeomorph.contMDiff_chartExtend {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_4} [TopologicalSpace M] [ChartedSpace H M] [T2Space M] {n : WithTop ℕ∞} [IsManifold I n M] {K : Set E} {x : M} {hK : IsCompact K} {hKt : K ⊆ interior (extChartAt I x).target} {E' : Type u_5} [NormedAddCommGroup E'] [NormedSpace 𝕜 E'] {H' : Type u_6} [TopologicalSpace H'] {I' : ModelWithCorners 𝕜 E' H'} {P : Type u_7} [TopologicalSpace P] [ChartedSpace H' P] {Ī„ : P → Diffeomorph (modelWithCornersSelf 𝕜 E) (modelWithCornersSelf 𝕜 E) E E n} (hĪ„ : ContMDiff (I'.prod (modelWithCornersSelf 𝕜 E)) (modelWithCornersSelf 𝕜 E) n fun (q : P × E) => (Ī„ q.1) q.2) (hĪ„K : ∀ (q : P), ∀ p ∉ K, (Ī„ q) p = p) :
      ContMDiff (I'.prod I) I n fun (q : P × M) => ((Ī„ q.1).chartExtend x hK hKt ⋯) q.2

      Smooth families of extensions through a chart. The extensions through the chart at x of a family Ī„ q, q ∈ P, of diffeomorphisms of the model space depending jointly C^n-smoothly on q and the point, each fixing every point outside K, depend jointly C^n-smoothly on q and the point of M.