Documentation

TauCeti.Analysis.InnerProductSpace.SquaredDistance

Squared distance along a differentiable map #

For a map i : V → E into a real inner product space and a point a : E, this file computes the first and second derivatives of the squared-distance function

x ↦ ‖i x - a‖ ^ 2.

A point is critical exactly when the displacement from a is orthogonal to the range of Di. The Hessian is twice the sum of the pullback metric term and the pairing of the displacement with D²i. For a holomorphic map between complex normed spaces, the latter terms cancel between v and I • v. Consequently the Levi diagonal is exactly ‖Di(v)‖², and a holomorphic immersion pulls squared distance back to a strictly plurisubharmonic function.

These formulas are the local inner-product-space calculation behind squared-distance exhaustions of closed complex submanifolds. No immersion hypothesis is needed until strict positivity is deduced.

The same calculus gives the first and second derivatives of the Gaussian x ↦ exp (-α ‖x - a‖ ^ 2) of the squared distance, the classical barrier of Hopf's boundary-point lemma for elliptic operators with variable coefficients.

The file also computes the Hessian of the radial profile (σ ‖y - c‖² + ε)^(-β), the barrier of the Krylov–Safonov measure estimate.

Main results #

References #

theorem TauCeti.fderiv_norm_sq_sub_comp {V : Type u_1} {E : Type u_2} [NormedAddCommGroup V] [NormedSpace ℝ V] [NormedAddCommGroup E] [InnerProductSpace ℝ E] {i : V → E} {a : E} {x : V} (hi : DifferentiableAt ℝ i x) :
fderiv ℝ (fun (y : V) => ‖i y - a‖ ^ 2) x = 2 • (innerSL ℝ) (i x - a) ∘SL fderiv ℝ i x

The derivative of squared distance from a along a differentiable map i is the pairing with 2 • (i x - a), precomposed with the derivative of i.

theorem TauCeti.fderiv_norm_sq_sub_comp_eq_zero_iff {V : Type u_1} {E : Type u_2} [NormedAddCommGroup V] [NormedSpace ℝ V] [NormedAddCommGroup E] [InnerProductSpace ℝ E] {i : V → E} {a : E} {x : V} (hi : DifferentiableAt ℝ i x) :
fderiv ℝ (fun (y : V) => ‖i y - a‖ ^ 2) x = 0 ↔ i x - a ∈ (↑(fderiv ℝ i x)).rangeᗮ

The critical-point normal-vector test. Squared distance from a along i is critical at x exactly when the displacement i x - a is orthogonal to the range of Di(x).

theorem TauCeti.fderiv_fderiv_norm_sq_apply {E : Type u_2} [NormedAddCommGroup E] [InnerProductSpace ℝ E] (y u v : E) :
((fderiv ℝ (fderiv ℝ fun (z : E) => ‖z‖ ^ 2) y) u) v = 2 * inner ℝ u v

The second derivative of squared norm is twice the inner product.

theorem TauCeti.fderiv_fderiv_norm_sq_sub_comp_apply {V : Type u_1} {E : Type u_2} [NormedAddCommGroup V] [NormedSpace ℝ V] [NormedAddCommGroup E] [InnerProductSpace ℝ E] {i : V → E} {a : E} {x : V} (hi : ContDiffAt ℝ 2 i x) (v w : V) :
((fderiv ℝ (fderiv ℝ fun (y : V) => ‖i y - a‖ ^ 2) x) v) w = 2 * (inner ℝ ((fderiv ℝ i x) v) ((fderiv ℝ i x) w) + inner ℝ (i x - a) (((fderiv ℝ (fderiv ℝ i) x) v) w))

The Hessian of squared distance along a map. It is twice the sum of the pullback inner product and the pairing of the displacement with the second derivative of the map.

theorem TauCeti.hasFDerivAt_exp_neg_mul_norm_sub_sq {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] (α : ℝ) (a x : E) :
HasFDerivAt (fun (z : E) => Real.exp (-α * ‖z - a‖ ^ 2)) ((-2 * α * Real.exp (-α * ‖x - a‖ ^ 2)) • (innerSL ℝ) (x - a)) x

The derivative of the Gaussian x ↦ exp (-α ‖x - a‖ ^ 2) of the squared distance from a is -2 α exp (-α ‖x - a‖ ^ 2) ⟪x - a, ·⟫.

theorem TauCeti.fderiv_fderiv_exp_neg_mul_norm_sub_sq_apply {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] (α : ℝ) (a x v w : E) :
((fderiv ℝ (fderiv ℝ fun (z : E) => Real.exp (-α * ‖z - a‖ ^ 2)) x) v) w = (4 * α ^ 2 * inner ℝ (x - a) v * inner ℝ (x - a) w - 2 * α * inner ℝ v w) * Real.exp (-α * ‖x - a‖ ^ 2)

The second derivative of the Gaussian x ↦ exp (-α ‖x - a‖ ^ 2) of the squared distance from a is (4 α² ⟪x - a, v⟫ ⟪x - a, w⟫ - 2 α ⟪v, w⟫) exp (-α ‖x - a‖ ^ 2).

theorem TauCeti.contDiffAt_rpow_mul_norm_sq_sub_add {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] {σ ε : ℝ} {c x : E} (hσ : 0 ≤ σ) (hε : 0 < ε) (β : ℝ) {k : WithTop ℕ∞} :
ContDiffAt ℝ k (fun (y : E) => (σ * ‖y - c‖ ^ 2 + ε) ^ (-β)) x

The radial profile (σ ‖y - c‖² + ε)^(-β) is smooth when σ ≥ 0 and ε > 0.

theorem TauCeti.fderiv_fderiv_rpow_mul_norm_sq_sub_add_apply {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] {σ ε : ℝ} {c x : E} (hσ : 0 ≤ σ) (hε : 0 < ε) (β : ℝ) (v w : E) :
((fderiv ℝ (fderiv ℝ fun (y : E) => (σ * ‖y - c‖ ^ 2 + ε) ^ (-β)) x) v) w = 4 * σ ^ 2 * β * (β + 1) * (σ * ‖x - c‖ ^ 2 + ε) ^ (-β - 2) * inner ℝ (x - c) v * inner ℝ (x - c) w - 2 * σ * β * (σ * ‖x - c‖ ^ 2 + ε) ^ (-β - 1) * inner ℝ v w

The Hessian of a power of a shifted squared distance. For σ ≥ 0 and ε > 0, with s = σ ‖x - c‖² + ε, the second derivative of (σ ‖y - c‖² + ε)^(-β) at x is 4 σ² β (β + 1) s^(-β-2) ⟪x - c, v⟫ ⟪x - c, w⟫ - 2 σ β s^(-β-1) ⟪v, w⟫.

theorem TauCeti.fderiv_fderiv_norm_sq_apply_complex {E : Type u_2} [NormedAddCommGroup E] [InnerProductSpace ℂ E] (x v w : E) :
((fderiv ℝ (fderiv ℝ fun (z : E) => ‖z‖ ^ 2) x) v) w = 2 * (inner ℂ v w).re

The real second derivative of the squared norm of a complex inner product space is 2 * Re ⟪v, w⟫_ℂ.

theorem TauCeti.fderiv_fderiv_norm_sq_sub_comp_add_I_smul {V : Type u_1} {E : Type u_2} [NormedAddCommGroup V] [NormedSpace ℂ V] [NormedAddCommGroup E] [InnerProductSpace ℂ E] {i : V → E} {a : E} {x : V} (hi : ContDiffAt ℂ 2 i x) (v : V) :
((fderiv ℝ (fderiv ℝ fun (y : V) => ‖i y - a‖ ^ 2) x) v) v + ((fderiv ℝ (fderiv ℝ fun (y : V) => ‖i y - a‖ ^ 2) x) (Complex.I • v)) (Complex.I • v) = 4 * ‖(fderiv ℂ i x) v‖ ^ 2

The complex Hessian identity for squared distance. For a holomorphic C² map, the sum of the real Hessian on v and I • v is four times the squared norm of the complex derivative. The identity holds at every point; at a critical point it is the intrinsic Hessian identity used in the squared-distance Morse-index estimate.

theorem TauCeti.re_leviForm_norm_sq_sub_comp_apply_self {V : Type u_1} {E : Type u_2} [NormedAddCommGroup V] [NormedSpace ℂ V] [NormedAddCommGroup E] [InnerProductSpace ℂ E] {i : V → E} {a : E} {x : V} (hi : ContDiffAt ℂ 2 i x) (v : V) :
(((leviForm (fun (y : V) => ‖i y - a‖ ^ 2) x) v) v).re = ‖(fderiv ℂ i x) v‖ ^ 2

The Levi diagonal of squared distance along a holomorphic C² map is the squared norm of its complex derivative.

theorem TauCeti.isStrictlyPlurisubharmonicAt_norm_sq_sub_comp {V : Type u_1} {E : Type u_2} [NormedAddCommGroup V] [NormedSpace ℂ V] [NormedAddCommGroup E] [InnerProductSpace ℂ E] {i : V → E} {a : E} {x : V} (hi : ContDiffAt ℂ 2 i x) (hi' : Function.Injective ⇑(fderiv ℂ i x)) :
IsStrictlyPlurisubharmonicAt (fun (y : V) => ‖i y - a‖ ^ 2) x

Squared distance pulled back along a holomorphic immersion is strictly plurisubharmonic at the point of immersion.