Case (b), μ2 > μ1 — a minimiser φ of s·q0 + √(s²q0² + 4q1) on the unit sphere solves (5.7) with 2b = its minimum value
ProvedNicaiseDelayWave.BoundaryInstab.case_b_minimizer_solves_5_7Let be a mixed domain, let , and put . Let be the class of real functions that are in , on and vanish on , and for let
Suppose that with attains the minimum of over , as in (5.16), and let , as in (5.15). Then solves (5.7):
This is case (b) of §5.1: together with the choice of delays (5.5)–(5.6), (5.7) is the variational form of (5.2) at , so the minimiser produces a solution with constant standard energy for each delay .
Formalization Note The paper minimises over the unit sphere of and tests (5.7) against all of ; the statement uses the classical class in both places, since Sobolev spaces on domains are not available in Mathlib. As in the paper, the existence of the minimiser is a hypothesis ("if the minimum … is attained at "), not a conclusion. Functions are real, so the complex conjugates of the page disappear.
import Mathlib import Definitions.Def_NicaiseDelayWave_Shared_MixedDomain import Definitions.Def_NicaiseDelayWave_BoundaryInstab_DelayProblem open MeasureTheory
namespace NicaiseDelayWave.BoundaryInstab
/-- Case (b), (5.15)–(5.19): let `0 < μ₁ < μ₂` and `s = √(μ₂² - μ₁²)`. If `φ` in the admissible
class, with `∫_Ω φ² = 1`, minimises `B_s(w) = s q₀(w) + √(s² q₀(w)² + 4 q₁(w))` over the
normalised admissible functions, then with `b = B_s(φ)/2` the function `φ` solves (5.7):
`∫_Ω ∇φ·∇v dx - b² ∫_Ω φ v dx + b s ∫_{Γ_N} φ v dΓ = 0` for every admissible `v`. -/
theorem case_b_minimizer_solves_5_7 {n : ℕ} (D : NicaiseDelayWave.Shared.MixedDomain n) (μ1 μ2 : ℝ)
(hμ1 : 0 < μ1) (hμ12 : μ1 < μ2)
(φ : EuclideanSpace ℝ (Fin n) → ℝ) (hφ : φ ∈ admissible D)
(hnorm : ∫ x in D.Ω, φ x ^ 2 = 1)
(hmin : ∀ w ∈ admissible D, ∫ x in D.Ω, w x ^ 2 = 1 →
functionalB D (Real.sqrt (μ2 ^ 2 - μ1 ^ 2)) φ ≤
functionalB D (Real.sqrt (μ2 ^ 2 - μ1 ^ 2)) w) :
∀ v ∈ admissible D,
(∫ x in D.Ω, inner ℝ (gradient φ x) (gradient v x))
- (functionalB D (Real.sqrt (μ2 ^ 2 - μ1 ^ 2)) φ / 2) ^ 2 * (∫ x in D.Ω, φ x * v x)
+ (functionalB D (Real.sqrt (μ2 ^ 2 - μ1 ^ 2)) φ / 2) * Real.sqrt (μ2 ^ 2 - μ1 ^ 2)
* (∫ x in D.ΓN, φ x * v x ∂D.σ) = 0 := by sorry
end NicaiseDelayWave.BoundaryInstab
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.