Documentation

TauCeti.Geometry.Manifold.RegularValue.Level

Regular levels of maps into finite-dimensional spaces #

Let ๐•œ be an RCLike field, such as โ„ or โ„‚, and let f : M โ†’ F be a map from a boundaryless manifold modelled on a finite-dimensional ๐•œ-space E to a finite-dimensional normed ๐•œ-space F. Suppose f is Cยน at every point of the level fโปยน(c) and c is a regular value of f. Then the actual subtype {x // f x = c} carries the atlas TauCeti.regularLevelChartedSpace, modelled on Fin n โ†’ ๐•œ for n = dim E - dim F, and is a C^m manifold when f is C^m at the points of the level, m โ‰ฅ 1 (TauCeti.isManifold_regularLevel). No Hausdorff or second-countability hypothesis is used, and the level may be empty. When it is nonempty, regularity forces dim F โ‰ค dim E, so the natural-number subtraction is exact. The model dimension is a parameter n together with a proof of dim E - dim F = n, so that special cases can fix a convenient expression for it: for scalar functions, F = ๐•œ, users take n = dim E - 1, with the proof by rw [finrank_self].

The atlas is the section-zero atlas TauCeti.sectionZeroChartedSpace of the section f - c of the trivial bundle with fibre F over the self-modelled copy TauCeti.BoundarylessModel I M, transported to fโปยน(c) along the identity of points. The trivialization coordinate of this section is f - c itself, and the linearization at x is the derivative

D_x = fderiv ๐•œ (f โˆ˜ (extChartAt I x).symm) (extChartAt I x x)

of f in the preferred extended chart. Writing ฯ€_x for the chosen projection of E onto ker D_x and K_x : ker D_x โ‰ƒ (Fin n โ†’ ๐•œ) for the index-model identification, the preferred chart at x is

w โ†ฆ K_x (ฯ€_x (extChartAt I x w - extChartAt I x x))

(TauCeti.regularLevelChartAt_apply). Its inverse is the inverse preferred extended chart of M applied to the inverse implicit-function chart of f - c on the zero slice (TauCeti.coe_regularLevelChartAt_symm_apply).

For this atlas the level is an embedded submanifold: the inclusion {x // f x = c} โ†’ M is a C^m immersion with complement F and a topological embedding, hence a smooth embedding (TauCeti.isSmoothEmbedding_coe_regularLevel), and its differential at x has range ker (mfderiv I ๐“˜(๐•œ, F) f x) (TauCeti.range_mfderiv_coe_regularLevel).

In particular, over โ„‚ and at order m = โˆž (or m = ฯ‰), this constructs the complex-manifold atlas and holomorphic embedding of a regular holomorphic level in arbitrary codimension dim โ„‚ F. The tangent-kernel equation is complex-linear. The RCLike assumption is used to obtain strict differentiability from Cยน regularity; the underlying section-zero construction works over arbitrary complete nontrivially normed fields when strict differentiability is given.

Main declarations #

References #

The section-zero data of a regular level #

theorem TauCeti.RegularLevel.instCompleteSpaceDomain {๐•œ : Type u_1} {E : Type u_2} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [FiniteDimensional ๐•œ E] :
theorem TauCeti.RegularLevel.instCompleteSpaceCodomain {๐•œ : Type u_1} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup F] [NormedSpace ๐•œ F] [FiniteDimensional ๐•œ F] :
theorem TauCeti.instCompleteSpaceRegularLevelDomain {๐•œ : Type u_1} {E : Type u_2} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [FiniteDimensional ๐•œ E] :
theorem TauCeti.instCompleteSpaceRegularLevelCodomain {๐•œ : Type u_1} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup F] [NormedSpace ๐•œ F] [FiniteDimensional ๐•œ F] :
noncomputable def TauCeti.regularLevelChartAt {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) :
OpenPartialHomeomorph { x : M // f x = c } (Fin n โ†’ ๐•œ)

The preferred chart at a point x of a regular level fโปยน(c), modelled on Fin n โ†’ ๐•œ for n = dim E - dim F: the section-zero chart of f - c at x. It reads a point w as the kernel component of extChartAt I x w - extChartAt I x x for the derivative of f in the preferred extended chart at x (TauCeti.regularLevelChartAt_apply).

Instances For
    theorem TauCeti.mem_regularLevelChartAt_source {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) :

    Every point of the level lies in the source of its preferred chart.

    @[irreducible]
    noncomputable def TauCeti.regularLevelChartedSpace {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) :
    ChartedSpace (Fin n โ†’ ๐•œ) { x : M // f x = c }

    The atlas of a regular level fโปยน(c): the section-zero atlas of f - c, with preferred charts TauCeti.regularLevelChartAt. It is modelled on Fin n โ†’ ๐•œ for n = dim E - dim F.

    Instances For
      @[simp]
      theorem TauCeti.regularLevelChartedSpace_chartAt {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) :
      chartAt (Fin n โ†’ ๐•œ) x = regularLevelChartAt hf hreg hn x

      The installed preferred charts are TauCeti.regularLevelChartAt.

      @[simp]
      theorem TauCeti.regularLevelChartedSpace_atlas {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) :
      atlas (Fin n โ†’ ๐•œ) { x : M // f x = c } = Set.range (regularLevelChartAt hf hreg hn)

      The installed atlas consists exactly of the preferred charts.

      theorem TauCeti.regularLevelChartAt_apply {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x w : { x : M // f x = c }) :
      โ†‘(regularLevelChartAt hf hreg hn x) w = let D := fderiv ๐•œ (f โˆ˜ โ†‘(extChartAt I โ†‘x).symm) (โ†‘(extChartAt I โ†‘x) โ†‘x); (D.kerModelEquiv โ‹ฏ โ‹ฏ) ((Classical.choose โ‹ฏ) (โ†‘(extChartAt I โ†‘x) โ†‘w - โ†‘(extChartAt I โ†‘x) โ†‘x))

      The preferred chart at x reads the displacement extChartAt I x w - extChartAt I x x through the chosen projection onto the kernel of the preferred-chart derivative D of f at x, followed by the identification of that kernel with Fin n โ†’ ๐•œ.

      @[simp]
      theorem TauCeti.regularLevelChartAt_apply_self {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) :
      โ†‘(regularLevelChartAt hf hreg hn x) x = 0

      A preferred chart is centred at its point.

      theorem TauCeti.mem_regularLevelChartAt_target {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) :

      The origin belongs to the target of every preferred chart.

      @[simp]
      theorem TauCeti.regularLevelChartAt_symm_zero {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) :
      โ†‘(regularLevelChartAt hf hreg hn x).symm 0 = x

      The inverse preferred chart at x sends the origin to x.

      @[simp]
      theorem TauCeti.regularLevelChartAt_source {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) :
      (regularLevelChartAt hf hreg hn x).source = let D := fderiv ๐•œ (f โˆ˜ โ†‘(extChartAt I โ†‘x).symm) (โ†‘(extChartAt I โ†‘x) โ†‘x); have hD := โ‹ฏ; have hD' := โ‹ฏ; have hker := โ‹ฏ; {w : { x : M // f x = c } | โ†‘w โˆˆ (chartAt H โ†‘x).source โˆง โ†‘(extChartAt I โ†‘x) โ†‘w โˆˆ (HasStrictFDerivAt.implicitToOpenPartialHomeomorphOfComplemented (fun (y : E) => f (โ†‘(extChartAt I โ†‘x).symm y) - c) D hD hD' hker).source โˆฉ hD.implicitCoordSource hD' hker}

      The source of the preferred chart at x: points of the level in the preferred chart of M at x whose extended coordinates lie in the source of the implicit-function chart of f - c and in the neighbourhood where its derivative stays invertible.

      @[simp]
      theorem TauCeti.mem_regularLevelChartAt_target_iff {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) (k : Fin n โ†’ ๐•œ) :
      k โˆˆ (regularLevelChartAt hf hreg hn x).target โ†” let D := fderiv ๐•œ (f โˆ˜ โ†‘(extChartAt I โ†‘x).symm) (โ†‘(extChartAt I โ†‘x) โ†‘x); have hD := โ‹ฏ; have hD' := โ‹ฏ; have hker := โ‹ฏ; have K := D.kerModelEquiv โ‹ฏ โ‹ฏ; have ฮฆ := HasStrictFDerivAt.implicitToOpenPartialHomeomorphOfComplemented (fun (y : E) => f (โ†‘(extChartAt I โ†‘x).symm y) - c) D hD hD' hker; (0, K.symm k) โˆˆ ฮฆ.target โˆง โ†‘ฮฆ.symm (0, K.symm k) โˆˆ hD.implicitCoordSource hD' hker โˆง โ†‘ฮฆ.symm (0, K.symm k) โˆˆ (extChartAt I โ†‘x).target

      The target of the preferred chart at x: model points k whose kernel vector K.symm k gives a point (0, K.symm k) of the implicit-function chart target of f - c, whose inverse lies in the regular neighbourhood and in the target of the preferred extended chart at x.

      theorem TauCeti.coe_regularLevelChartAt_symm_apply {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) (x : { x : M // f x = c }) {k : Fin n โ†’ ๐•œ} (hk : k โˆˆ (regularLevelChartAt hf hreg hn x).target) :
      โ†‘(โ†‘(regularLevelChartAt hf hreg hn x).symm k) = let D := fderiv ๐•œ (f โˆ˜ โ†‘(extChartAt I โ†‘x).symm) (โ†‘(extChartAt I โ†‘x) โ†‘x); have hD := โ‹ฏ; have hD' := โ‹ฏ; have hker := โ‹ฏ; have K := D.kerModelEquiv โ‹ฏ โ‹ฏ; โ†‘(extChartAt I โ†‘x).symm (โ†‘(HasStrictFDerivAt.implicitToOpenPartialHomeomorphOfComplemented (fun (y : E) => f (โ†‘(extChartAt I โ†‘x).symm y) - c) D hD hD' hker).symm (0, K.symm k))

      On its target, the inverse preferred chart at x is the inverse preferred extended chart of M at x, applied to the inverse implicit-function chart of f - c on the zero slice.

      The level as a submanifold #

      theorem TauCeti.isManifold_regularLevel {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} {m : WithTop โ„•โˆž} [IsManifold I m M] (hm : 1 โ‰ค m) (hfm : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) m f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) :
      IsManifold (modelWithCornersSelf ๐•œ (Fin n โ†’ ๐•œ)) m { x : M // f x = c }

      A regular level fโปยน(c) of a map which is C^m at the points of the level, with m โ‰ฅ 1, is a C^m manifold of dimension dim E - dim F for its preferred atlas.

      theorem TauCeti.isImmersionOfComplement_coe_regularLevel {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} {m : WithTop โ„•โˆž} [IsManifold I m M] (hm : 1 โ‰ค m) (hfm : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) m f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) :

      The inclusion of a regular level is an immersion with complement F. For the preferred atlas TauCeti.regularLevelChartedSpace, the inclusion of a regular level fโปยน(c) of a map which is C^m at the points of the level, m โ‰ฅ 1, is a C^m immersion whose normal forms have the space F of values of f as complement.

      theorem TauCeti.isSmoothEmbedding_coe_regularLevel {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} {m : WithTop โ„•โˆž} [IsManifold I m M] (hm : 1 โ‰ค m) (hfm : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) m f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) :
      Manifold.IsSmoothEmbedding (modelWithCornersSelf ๐•œ (Fin n โ†’ ๐•œ)) I m Subtype.val

      A regular level is an embedded submanifold. For the preferred atlas TauCeti.regularLevelChartedSpace, the inclusion of a regular level fโปยน(c) of a map which is C^m at the points of the level, m โ‰ฅ 1, is a C^m smooth embedding.

      theorem TauCeti.range_mfderiv_coe_regularLevel {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] {n : โ„•} (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) (hn : Module.finrank ๐•œ E - Module.finrank ๐•œ F = n) [IsManifold I 1 M] (x : { x : M // f x = c }) :
      (โ†‘(mfderiv% Subtype.val x)).range = (โ†‘(mfderiv% f โ†‘x)).ker

      The tangent space of a regular level is the kernel of df. At a point x of a regular level fโปยน(c), the differential of the inclusion, for the preferred atlas TauCeti.regularLevelChartedSpace, has range the kernel of the differential of f at x.

      theorem TauCeti.ker_mfderiv_eq_of_forall_eq_imp {๐•œ : Type u_1} {E : Type u_2} {H : Type u_3} {M : Type u_4} {F : Type u_5} [RCLike ๐•œ] [NormedAddCommGroup E] [NormedSpace ๐•œ E] [TopologicalSpace H] {I : ModelWithCorners ๐•œ E H} [TopologicalSpace M] [NormedAddCommGroup F] {f : M โ†’ F} {c : F} [NormedSpace ๐•œ F] [I.Boundaryless] [ChartedSpace H M] [FiniteDimensional ๐•œ E] [FiniteDimensional ๐•œ F] [IsManifold I 1 M] (hf : โˆ€ (x : M), f x = c โ†’ ContMDiffAt I (modelWithCornersSelf ๐•œ F) 1 f x) (hreg : IsRegularValue I (modelWithCornersSelf ๐•œ F) f c) {g : M โ†’ F} {c' : F} (hfg : โˆ€ (x : M), f x = c โ†’ g x = c') {x : M} (hx : f x = c) (hgx : IsRegularPoint I (modelWithCornersSelf ๐•œ F) g x) :
      (โ†‘(mfderiv% g x)).ker = (โ†‘(mfderiv% f x)).ker

      Two defining maps of a regular level have the same tangent kernels. If the regular level fโปยน(c) of a map which is Cยน near the level is contained in the level gโปยน(c') of a second map into the same space, then ker dg_x = ker df_x at each of its points x which is a regular point of g.