Documentation

TauCeti.Analysis.Sobolev.LipschitzDomain.Trace.Basic

Local Sobolev traces in Lipschitz boundary charts #

A smooth cutoff supported inside a Lipschitz boundary chart lets a Sobolev function be transported to the whole epigraph of the chart's graph. Its epigraph trace is the localized boundary trace, parametrized by y ↦ e.symm (φ y, y) and measured using Lebesgue measure on the tangential space E, not surface measure on the frontier of the original domain; TauCeti.W1p.frontierTrace glues these local traces into a trace for surface measure.

W1p.lipschitzChartLocalizeL performs the cutoff, zero extension past the artificial chart boundary, and rigid coordinate change. It has norm at most 2 M. For 1 ≤ p < ∞, composing with the graph trace gives W1p.lipschitzChartTrace : W^{1,p}(Ω) →L[ℝ] Lᵖ(E), of norm at most 2 M p ^ (1 / p) (1 + L), and at most 2 M (1 + L) for p = 2. Functions in W^{1,p}_0 have zero local trace. Equality of the cutoff products suffices for equality of local traces. For a function continuous up to the boundary, the local trace is the classical boundary value of the cutoff product at the graph point (W1p.lipschitzChartTrace_apply_ae_of_continuousOn). These are the local operators used when assembling a boundary trace by a partition of unity; Set.IsLipschitzDomainWith.exists_lipschitzChart_cutoffs provides such a partition, with cutoffs satisfying the hypotheses of W1p.lipschitzChartTrace, on a bounded Lipschitz domain.

Unlike reflection extension, taking a trace requires no shortening of the chart cylinder: the support need only lie inside the original cylinder.

References #

noncomputable def TauCeti.W1p.lipschitzChartTrace {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b M : ℝ} {p : ENNReal} [Fact (1 ≤ p)] (hp : p ≠ ⊤) (h : (↑Ω).IsLipschitzChartWith L e φ a b) (ψ : WithLp 2 (ℝ × E) → ℝ) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) :

The localized W^{1,p} trace through a Lipschitz boundary chart, for 1 ≤ p < ∞. The result is in Lᵖ(E) with respect to tangential Lebesgue measure, not surface measure on frontier Ω.

Instances For
    theorem TauCeti.W1p.lipschitzChartTrace_apply {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} {p : ENNReal} [Fact (1 ≤ p)] (hp : p ≠ ⊤) (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) (u : ↥(W1p MeasureTheory.volume Ω p)) :
    (lipschitzChartTrace hp h ψ hψ hM hψM hgM hs) u = (normalEpigraphTrace hp ⋯) ((lipschitzChartLocalizeL h ψ hψ hM hψM hgM hs) u)

    The local chart trace is the epigraph trace of the localized function in chart coordinates.

    theorem TauCeti.W1p.norm_lipschitzChartTrace_le {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} {p : ENNReal} [Fact (1 ≤ p)] (hp : p ≠ ⊤) (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) (u : ↥(W1p MeasureTheory.volume Ω p)) :
    ‖(lipschitzChartTrace hp h ψ hψ hM hψM hgM hs) u‖ ≤ 2 * M * p.toReal ^ p.toReal⁻¹ * (1 + ↑L) * ‖u‖

    The local trace estimate, with explicit cutoff and graph constants: for 1 ≤ p < ∞, ‖Tu‖_{Lᵖ} ≤ 2 M p ^ (1 / p) (1 + L) ‖u‖_{W^{1,p}}.

    theorem TauCeti.W1p.opNorm_lipschitzChartTrace_le {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} {p : ENNReal} [Fact (1 ≤ p)] (hp : p ≠ ⊤) (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) :
    ‖lipschitzChartTrace hp h ψ hψ hM hψM hgM hs‖ ≤ 2 * M * p.toReal ^ p.toReal⁻¹ * (1 + ↑L)

    For 1 ≤ p < ∞, the local trace has operator norm at most 2 M p ^ (1 / p) (1 + L).

    theorem TauCeti.W1p.norm_lipschitzChartTrace_two_le {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) (u : ↥(W1p MeasureTheory.volume Ω 2)) :
    ‖(lipschitzChartTrace ⋯ h ψ hψ hM hψM hgM hs) u‖ ≤ 2 * M * (1 + ↑L) * ‖u‖

    The local H¹ trace estimate, with explicit cutoff and graph constants: ‖Tu‖_{L²} ≤ 2 M (1 + L) ‖u‖_{H¹}.

    theorem TauCeti.W1p.opNorm_lipschitzChartTrace_two_le {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) :
    ‖lipschitzChartTrace ⋯ h ψ hψ hM hψM hgM hs‖ ≤ 2 * M * (1 + ↑L)

    The local H¹ trace has operator norm at most 2 M (1 + L).

    theorem TauCeti.W1p.lipschitzChartTrace_eq_zero_of_mem_w1p0Submodule {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} {p : ENNReal} [Fact (1 ≤ p)] (hp : p ≠ ⊤) (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) {u : ↥(W1p MeasureTheory.volume Ω p)} (hu : u ∈ w1p0Submodule MeasureTheory.volume Ω p) :
    (lipschitzChartTrace hp h ψ hψ hM hψM hgM hs) u = 0

    A function with zero Sobolev boundary values has zero trace in every localized chart.

    theorem TauCeti.W1p.lipschitzChartTrace_eq_of_smul_value_ae_eq {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} {p : ENNReal} [Fact (1 ≤ p)] (hp : p ≠ ⊤) (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) {u v : ↥(W1p MeasureTheory.volume Ω p)} (huv : (fun (x : WithLp 2 (ℝ × E)) => ψ x • ↑↑(value u) x) =ᵐ[MeasureTheory.volume.restrict ↑Ω] fun (x : WithLp 2 (ℝ × E)) => ψ x • ↑↑(value v) x) :
    (lipschitzChartTrace hp h ψ hψ hM hψM hgM hs) u = (lipschitzChartTrace hp h ψ hψ hM hψM hgM hs) v

    The local trace depends only on the cutoff product on the original domain. In particular, values outside the support of the cutoff have no effect on it.

    theorem TauCeti.W1p.lipschitzChartTrace_apply_ae_of_continuousOn {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E] {Ω : TopologicalSpace.Opens (WithLp 2 (ℝ × E))} {L : NNReal} {e : WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)} {φ : E → ℝ} {a b : ℝ} {ψ : WithLp 2 (ℝ × E) → ℝ} {M : ℝ} {p : ENNReal} [Fact (1 ≤ p)] (hp : p ≠ ⊤) (h : (↑Ω).IsLipschitzChartWith L e φ a b) (hψ : ContDiff ℝ (↑⊤) ψ) (hM : 0 ≤ M) (hψM : ∀ x ∈ Ω, |ψ x| ≤ M) (hgM : ∀ x ∈ Ω, ‖_root_.gradient ψ x‖ ≤ M) (hs : tsupport ψ ⊆ ⇑e ⁻¹' normalCylinder a b) {u : ↥(W1p MeasureTheory.volume Ω p)} {f : WithLp 2 (ℝ × E) → ℝ} (hf : ContinuousOn f (closure ↑Ω)) (hu : ↑↑(value u) =ᵐ[MeasureTheory.volume.restrict ↑Ω] f) :
    ∀ᵐ (y : E), ↑↑((lipschitzChartTrace hp h ψ hψ hM hψM hgM hs) u) y = ψ (e.symm (normalGraphEmbedding φ y)) * f (e.symm (normalGraphEmbedding φ y))

    The local trace of a function continuous up to the boundary. Let 1 ≤ p < ∞. If u ∈ W^{1,p}(Ω) agrees almost everywhere with a function f continuous on closure Ω, then its local chart trace is the classical boundary value of the cutoff product ψ f at the graph point e.symm (φ y, y), for almost every y.

    theorem Set.IsLipschitzDomainWith.exists_lipschitzChart_cutoffs {E : Type u_1} [NormedAddCommGroup E] [InnerProductSpace ℝ E] [FiniteDimensional ℝ E] {L : NNReal} {Omega : Set (WithLp 2 (ℝ × E))} (hΩ : Omega.IsLipschitzDomainWith L) (hb : Bornology.IsBounded Omega) :
    ∃ (t : Finset (WithLp 2 (ℝ × E))) (e : ↥t → WithLp 2 (ℝ × E) ≃ᵃⁱ[ℝ] WithLp 2 (ℝ × E)) (φ : ↥t → E → ℝ) (a : ↥t → ℝ) (b : ↥t → ℝ) (ψ₀ : WithLp 2 (ℝ × E) → ℝ) (ψ : ↥t → WithLp 2 (ℝ × E) → ℝ) (M : ↥t → ℝ), (∀ (i : ↥t), Omega.IsLipschitzChartWith L (e i) (φ i) (a i) (b i)) ∧ (ContDiff ℝ (↑⊤) ψ₀ ∧ HasCompactSupport ψ₀ ∧ tsupport ψ₀ ⊆ Omega) ∧ (∀ (i : ↥t), ContDiff ℝ (↑⊤) (ψ i) ∧ 0 ≤ M i ∧ (∀ (x : WithLp 2 (ℝ × E)), |ψ i x| ≤ M i) ∧ (∀ (x : WithLp 2 (ℝ × E)), ‖gradient (ψ i) x‖ ≤ M i) ∧ tsupport (ψ i) ⊆ ⇑(e i) ⁻¹' TauCeti.normalCylinder (a i) (b i)) ∧ ∀ x ∈ closure Omega, ψ₀ x + ∑ i : ↥t, ψ i x = 1

    Chart cutoffs on a bounded Lipschitz domain. A bounded Lipschitz domain Omega has finitely many Lipschitz boundary charts e i, φ i with radii a i, b i, smooth boundary cutoffs ψ i bounded together with their gradients by M i and supported in the chart cylinders, as TauCeti.W1p.lipschitzChartTrace requires, and a smooth interior cutoff ψ₀ compactly supported in Omega, such that ψ₀ + ∑ i, ψ i = 1 on the closure of Omega.