Actual PBPS zero-safe bounce, rate and energy-layer bound
AutoSamplingTheory.ExampleCases.ProximalBPS.ActualBounceRate.actual_bounce_rate_energy_laws · theorem · Teaching coverage
Mathematical statement
Let E be a finite-dimensional real inner-product Borel space, including rank zero. Let V:E→ℝ be C² on all E, let α,β≥0 satisfy 0<α≤β and α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v∈E, and let η>0 with βη≤1. For all y,xRef∈E define c=y−η∇V(xRef), h(xRef,x)=∇V(x)−∇V(xRef), R(n,p)=p−(2⟨p,n⟩/‖n‖²)n with total real division, S(xRef,(x,p))=(x,R(h(xRef,x),p)), λ(xRef,(x,p))=√η max(0,⟨p,h(xRef,x)⟩) and H(y,xRef,(x,p))=(η⁻¹‖x−c‖²+‖p‖²)/2. Then: (1) S is jointly Borel measurable in (xRef,x,p); (2) λ is jointly continuous; (3) λ is jointly Borel measurable; (4) R(0,p)=p for every p; (5) for every n,p, R(n,R(n,p))=p, ‖R(n,p)‖=‖p‖ and ⟨R(n,p),n⟩=−⟨p,n⟩; (6) for every xRef,z, S fixes the position coordinate and S(xRef,S(xRef,z))=z; (7) H(y,xRef,S(xRef,z))=H(y,xRef,z) for all y,xRef,z; (8) λ(xRef,z)≥0, λ(xRef,S(xRef,z))=√η max(0,−⟨p,h(xRef,x)⟩) and λ(xRef,z)−λ(xRef,S(xRef,z))=√η⟨p,h(xRef,x)⟩; (9) h(xRef,x)=0 implies both S(xRef,(x,p))=(x,p) and λ(xRef,(x,p))=0; (10) for every y,xRef,z₀ put ℰ=H(y,xRef,z₀). Then ℰ≥0, and every z=(x,p) with H(y,xRef,z)=ℰ obeys ‖p‖≤√(2ℰ), ‖x−c‖≤√(2ηℰ) and λ(xRef,z)≤√η β√(2ℰ)(√(2ηℰ)+‖c−xRef‖). The gradient β-Lipschitz bound is derived internally from the canonical Hessian producer, never supplied as a new premise. The original six callers persist. Positive α, α≤β and βη≤1 remain standing conditions unused by this bounded deterministic BODY; C², the global Hessian bounds and η>0 supply the proof. No joint continuity of S is claimed at its zero-normal locus. This result supplies actual jump/rate prerequisites for Algorithm1/AppendixA.1 Proposition3.1; random clocks, path construction, nonexplosion, invariant and terminal kernels, convergence and costs remain open.
Lean statement · actual_bounce_rate_energy_laws
Let E be a finite-dimensional real inner-product Borel space, including rank zero. Let V:E→ℝ be C² on all E, let α,β≥0 satisfy 0<α≤β and α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v∈E, and let η>0 with βη≤1. For all y,xRef∈E define c=y−η∇V(xRef), h(xRef,x)=∇V(x)−∇V(xRef), R(n,p)=p−(2⟨p,n⟩/‖n‖²)n with total real division, S(xRef,(x,p))=(x,R(h(xRef,x),p)), λ(xRef,(x,p))=√η max(0,⟨p,h(xRef,x)⟩) and H(y,xRef,(x,p))=(η⁻¹‖x−c‖²+‖p‖²)/2. Then: (1) S is jointly Borel measurable in (xRef,x,p); (2) λ is jointly continuous; (3) λ is jointly Borel measurable; (4) R(0,p)=p for every p; (5) for every n,p, R(n,R(n,p))=p, ‖R(n,p)‖=‖p‖ and ⟨R(n,p),n⟩=−⟨p,n⟩; (6) for every xRef,z, S fixes the position coordinate and S(xRef,S(xRef,z))=z; (7) H(y,xRef,S(xRef,z))=H(y,xRef,z) for all y,xRef,z; (8) λ(xRef,z)≥0, λ(xRef,S(xRef,z))=√η max(0,−⟨p,h(xRef,x)⟩) and λ(xRef,z)−λ(xRef,S(xRef,z))=√η⟨p,h(xRef,x)⟩; (9) h(xRef,x)=0 implies both S(xRef,(x,p))=(x,p) and λ(xRef,(x,p))=0; (10) for every y,xRef,z₀ put ℰ=H(y,xRef,z₀). Then ℰ≥0, and every z=(x,p) with H(y,xRef,z)=ℰ obeys ‖p‖≤√(2ℰ), ‖x−c‖≤√(2ηℰ) and λ(xRef,z)≤√η β√(2ℰ)(√(2ηℰ)+‖c−xRef‖). The gradient β-Lipschitz bound is derived internally from the canonical Hessian producer, never supplied as a new premise. The original six callers persist. Positive α, α≤β and βη≤1 remain standing conditions unused by this bounded deterministic BODY; C², the global Hessian bounds and η>0 supply the proof. No joint continuity of S is claimed at its zero-normal locus. This result supplies actual jump/rate prerequisites for Algorithm1/AppendixA.1 Proposition3.1; random clocks, path construction, nonexplosion, invariant and terminal kernels, convergence and costs remain open.
Braces mark parameters Lean can infer; square brackets request structures such as a measurable space or probability measure. Named hypotheses are mathematical premises, not facts established by this declaration. Section parameters are described in the mathematical hypotheses above; the module link retains their exact source context.
theorem actual_bounce_rate_energy_laws
{E : Type*} [NormedAddCommGroup E] [InnerProductSpace ℝ E]
[FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
{V : E → ℝ} {α β : ℝ≥0} {η : ℝ}
(hα : 0 < (α : ℝ)) (hαβ : α ≤ β) (hV : ContDiff ℝ 2 V)
(hH : ∀ x v : E,
(α : ℝ) * ‖v‖ ^ 2 ≤ (fderiv ℝ (fderiv ℝ V) x v) v ∧
(fderiv ℝ (fderiv ℝ V) x v) v ≤ (β : ℝ) * ‖v‖ ^ 2)
(hη : 0 < η) (hβη : (β : ℝ) * η ≤ 1) :
actual_bounce_rate_energy_statement hα hαβ hV hH hη hβηFull Lean proposition (definition) · actual_bounce_rate_energy_statement
This literal definition stores the complete proposition asserted above. It supplies no mathematical proof or additional hypothesis; the theorem proof must establish its value.
Braces mark parameters Lean can infer; square brackets request structures such as a measurable space or probability measure. Named hypotheses are mathematical premises, not facts established by this declaration. Section parameters are described in the mathematical hypotheses above; the module link retains their exact source context.
private def actual_bounce_rate_energy_statement
{E : Type*} [NormedAddCommGroup E] [InnerProductSpace ℝ E]
[FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
{V : E → ℝ} {α β : ℝ≥0} {η : ℝ}
(hα : 0 < (α : ℝ)) (hαβ : α ≤ β) (hV : ContDiff ℝ 2 V)
(hH : ∀ x v : E,
(α : ℝ) * ‖v‖ ^ 2 ≤ (fderiv ℝ (fderiv ℝ V) x v) v ∧
(fderiv ℝ (fderiv ℝ V) x v) v ≤ (β : ℝ) * ‖v‖ ^ 2)
(hη : 0 < η) (hβη : (β : ℝ) * η ≤ 1) : Prop :=
let c : E → E → E := fun y xRef => y - η • gradient V xRef
let h : E → E → E := fun xRef x => gradient V x - gradient V xRef
let R : E → E → E := fun n p =>
p - (2 * inner ℝ p n / ‖n‖ ^ 2) • n
let S : E → (E × E) → (E × E) := fun xRef z =>
(z.1, R (h xRef z.1) z.2)
let rate : E → (E × E) → ℝ := fun xRef z =>
Real.sqrt η * max 0 (inner ℝ z.2 (h xRef z.1))
let H : E → E → (E × E) → ℝ := fun y xRef z =>
(η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 + ‖z.2‖ ^ 2) / 2
Measurable (fun a : E × (E × E) => S a.1 a.2) ∧
Continuous (fun a : E × (E × E) => rate a.1 a.2) ∧
Measurable (fun a : E × (E × E) => rate a.1 a.2) ∧
(∀ p : E, R 0 p = p) ∧
(∀ n p : E, R n (R n p) = p ∧ ‖R n p‖ = ‖p‖ ∧
inner ℝ (R n p) n = -inner ℝ p n) ∧
(∀ xRef : E, ∀ z : E × E,
(S xRef z).1 = z.1 ∧ S xRef (S xRef z) = z) ∧
(∀ y xRef : E, ∀ z : E × E,
H y xRef (S xRef z) = H y xRef z) ∧
(∀ xRef : E, ∀ z : E × E, 0 ≤ rate xRef z ∧
rate xRef (S xRef z) =
Real.sqrt η * max 0 (-inner ℝ z.2 (h xRef z.1)) ∧
rate xRef z - rate xRef (S xRef z) =
Real.sqrt η * inner ℝ z.2 (h xRef z.1)) ∧
(∀ xRef x p : E, h xRef x = 0 →
S xRef (x,p) = (x,p) ∧ rate xRef (x,p) = 0) ∧
(∀ y xRef : E, ∀ z₀ : E × E,
0 ≤ H y xRef z₀ ∧
∀ z : E × E, H y xRef z = H y xRef z₀ →
‖z.2‖ ≤ Real.sqrt (2 * H y xRef z₀) ∧
‖z.1 - c y xRef‖ ≤ Real.sqrt (2 * η * H y xRef z₀) ∧
rate xRef z ≤ Real.sqrt η * (β : ℝ) *
Real.sqrt (2 * H y xRef z₀) *
(Real.sqrt (2 * η * H y xRef z₀) + ‖c y xRef - xRef‖))Proof roadmap
- 1Derive the gradient bound internally
Finite dimension supplies completeness. Apply the existing quadratic-regularization Hessian theorem with r=0 to obtain LipschitzWith β (gradient V), hence continuity of the actual gradient. This closes a proof ingredient without adding a caller.
- 2Identify the zero-safe orthogonal reflection
Total division gives R(0,p)=p. For all n, R is the existing isometric reflection in the orthogonal complement of span(n). Its square is identity and it preserves norm. Expanding the inner product gives its sign reversal; the nonzero branch uses ‖n‖²≠0, while n=0 is handled separately.
- 3Check Borel and continuous operations
The state-dependent reflection uses continuous gradients, inner products and norms, together with total real division, which is Borel. Thus S is jointly Borel, including h=0. The positive-part rate uses no quotient, so it is jointly continuous and consequently Borel. Joint continuity of S is not required or asserted.
- 4Prove the actual bounce and rate identities
The position stays fixed, so its residual h stays fixed. Reflection involution proves S²=I and norm preservation proves exact H conservation. Its pairing sign reversal gives the flipped rate. For a=⟨p,h⟩, the two sign cases prove max(0,a)−max(0,−a)=a. The zero-residual case gives identity and zero rate.
- 5Keep zero energy and collect the first nine laws
η>0 makes η⁻¹ nonnegative, so H is nonnegative as the weighted sum of two squared vector norms divided by two. Collect the first nine laws, then fix arbitrary y,xRef,z₀ and z on its actual energy layer.
- 6Extract the two energy-layer radii
The equality H(z)=ℰ gives η⁻¹‖x−c‖²+‖p‖²=2ℰ. Dropping each nonnegative summand gives the momentum radius and, after multiplication by positive η, the position radius. Taking square roots requires no ℰ>0 and no division by ℰ.
- 7Derive the exact pointwise majorant
The triangle inequality bounds ‖x−xRef‖ by ‖x−c‖+‖c−xRef‖. Apply the internally derived β-Lipschitz estimate to h, then Cauchy–Schwarz and max(0,⟨p,h⟩)≤‖p‖‖h‖. Insert both radii and multiply by √η≥0. The resulting Λ is the printed same-energy-layer majorant, not a stochastic path or cost bound.
Full assumptions and notation
All objects and hypotheses
- E is a finite-dimensional real inner-product space with compatible norm and its Borel measurable structure; products have product structures. Rank zero is allowed.
- V:E→ℝ is C² on all E. The nonnegative α,β satisfy 0<α and α≤β, with α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v∈E.
- η is real, η>0 and βη≤1. These are the original six analytic callers. No gradient-Lipschitz, nonzero-normal, positive-energy, positive-dimension, flow or stochastic-law certificate is a caller.
- All y,xRef,x,p are independent arbitrary points of E. Define c,h,R,S,λ,H exactly as displayed. Real division is total, so R(0,p)=p. H is a weighted sum of separate vector squared norms.
- The final bound quantifies each z₀ and each z in the SAME actual H energy layer. It assumes no strictly positive energy or positive majorant; no division by either occurs.
Mathematical proof
1. Derive the gradient bound internally
Finite dimension supplies completeness. Apply the existing quadratic-regularization Hessian theorem with r=0 to obtain LipschitzWith β (gradient V), hence continuity of the actual gradient. This closes a proof ingredient without adding a caller.
Corresponding Lean step
letI : CompleteSpace E := FiniteDimensional.complete ℝ E
have hLip : LipschitzWith β (gradient V) := by
simpa using
(AutoSamplingTheory.TechnicalLemmas.Analysis.QuadraticRegularization.strongConvexOn_and_lipschitzWith_gradient_add_quadratic
(m := α) (L := β) (r := 0) hV hH (0 : E)).2
have hgrad : Continuous (gradient V) := hLip.continuous
Exact contiguous compiled BODY; literal c,h,R,S,rate,H and preceding facts stay in scope.
2. Identify the zero-safe orthogonal reflection
Total division gives R(0,p)=p. For all n, R is the existing isometric reflection in the orthogonal complement of span(n). Its square is identity and it preserves norm. Expanding the inner product gives its sign reversal; the nonzero branch uses ‖n‖²≠0, while n=0 is handled separately.
Corresponding Lean step
have hRzero (p : E) : R 0 p = p := by simp [R]
have hRreflect (n p : E) : R n p = (ℝ ∙ n)ᗮ.reflection p := by
rw [Submodule.reflection_orthogonal_apply, Submodule.reflection_singleton_apply]
simp only [two_smul, neg_sub]
dsimp [R]
simp only [div_eq_mul_inv, mul_smul]
rw [real_inner_comm n p]
module
have hRlaws (n p : E) : R n (R n p) = p ∧ ‖R n p‖ = ‖p‖ ∧
inner ℝ (R n p) n = -inner ℝ p n := by
refine ⟨?_, ?_, ?_⟩
· simp only [hRreflect, Submodule.reflection_reflection]
· rw [hRreflect]; exact LinearIsometryEquiv.norm_map _ _
· by_cases hn : n = 0
· simp [hn]
· have hn2 : ‖n‖ ^ 2 ≠ 0 := pow_ne_zero _ (norm_ne_zero_iff.mpr hn)
dsimp [R]
rw [inner_sub_left, real_inner_smul_left, real_inner_self_eq_norm_sq]
field_simp [hn2] <;> ring
Exact contiguous compiled BODY; literal c,h,R,S,rate,H and preceding facts stay in scope.
3. Check Borel and continuous operations
The state-dependent reflection uses continuous gradients, inner products and norms, together with total real division, which is Borel. Thus S is jointly Borel, including h=0. The positive-part rate uses no quotient, so it is jointly continuous and consequently Borel. Joint continuity of S is not required or asserted.
Corresponding Lean step
have hSmeas : Measurable (fun a : E × (E × E) => S a.1 a.2) := by
dsimp [S, R, h]
fun_prop
have hratecont : Continuous (fun a : E × (E × E) => rate a.1 a.2) := by
dsimp [rate, h]
fun_prop
Exact contiguous compiled BODY; literal c,h,R,S,rate,H and preceding facts stay in scope.
4. Prove the actual bounce and rate identities
The position stays fixed, so its residual h stays fixed. Reflection involution proves S²=I and norm preservation proves exact H conservation. Its pairing sign reversal gives the flipped rate. For a=⟨p,h⟩, the two sign cases prove max(0,a)−max(0,−a)=a. The zero-residual case gives identity and zero rate.
Corresponding Lean step
have hSlaws (xRef : E) (z : E × E) :
(S xRef z).1 = z.1 ∧ S xRef (S xRef z) = z := by
refine ⟨rfl, ?_⟩
exact Prod.ext rfl (hRlaws (h xRef z.1) z.2).1
have hHbounce (y xRef : E) (z : E × E) : H y xRef (S xRef z) = H y xRef z := by
dsimp [H, S]
rw [(hRlaws (h xRef z.1) z.2).2.1]
have hrateflip (xRef : E) (z : E × E) :
rate xRef (S xRef z) = Real.sqrt η * max 0 (-inner ℝ z.2 (h xRef z.1)) := by
dsimp [rate, S]
rw [(hRlaws (h xRef z.1) z.2).2.2]
have hratelaws (xRef : E) (z : E × E) : 0 ≤ rate xRef z ∧
rate xRef (S xRef z) = Real.sqrt η * max 0 (-inner ℝ z.2 (h xRef z.1)) ∧
rate xRef z - rate xRef (S xRef z) = Real.sqrt η * inner ℝ z.2 (h xRef z.1) := by
refine ⟨mul_nonneg (Real.sqrt_nonneg _) (le_max_left _ _), hrateflip xRef z, ?_⟩
rw [hrateflip]
dsimp [rate]
by_cases hi : 0 ≤ inner ℝ z.2 (h xRef z.1)
· rw [max_eq_right hi, max_eq_left (by linarith)]
ring
· rw [max_eq_left (le_of_not_ge hi), max_eq_right (by linarith)]
ring
have hzero (xRef x p : E) (hh : h xRef x = 0) :
S xRef (x,p) = (x,p) ∧ rate xRef (x,p) = 0 := by
simp [S, rate, hh, hRzero]
Exact contiguous compiled BODY; literal c,h,R,S,rate,H and preceding facts stay in scope.
5. Keep zero energy and collect the first nine laws
η>0 makes η⁻¹ nonnegative, so H is nonnegative as the weighted sum of two squared vector norms divided by two. Collect the first nine laws, then fix arbitrary y,xRef,z₀ and z on its actual energy layer.
Corresponding Lean step
have hHnonneg (y xRef : E) (z : E × E) : 0 ≤ H y xRef z := by
exact div_nonneg (add_nonneg (mul_nonneg (inv_nonneg.mpr hη.le) (sq_nonneg _))
(sq_nonneg _)) (by norm_num)
refine ⟨hSmeas, hratecont, hratecont.measurable, hRzero, hRlaws,
hSlaws, hHbounce, hratelaws, hzero, ?_⟩
intro y xRef z₀
refine ⟨hHnonneg y xRef z₀, ?_⟩
intro z heq
Exact contiguous compiled BODY; literal c,h,R,S,rate,H and preceding facts stay in scope.
6. Extract the two energy-layer radii
The equality H(z)=ℰ gives η⁻¹‖x−c‖²+‖p‖²=2ℰ. Dropping each nonnegative summand gives the momentum radius and, after multiplication by positive η, the position radius. Taking square roots requires no ℰ>0 and no division by ℰ.
Corresponding Lean step
have hsum : η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 + ‖z.2‖ ^ 2 = 2 * H y xRef z₀ := by
change (η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 + ‖z.2‖ ^ 2) / 2 = _ at heq
linarith
have hp2 : ‖z.2‖ ^ 2 ≤ 2 * H y xRef z₀ := by
have := mul_nonneg (inv_nonneg.mpr hη.le) (sq_nonneg ‖z.1 - c y xRef‖)
linarith
have hxweighted : η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 ≤ 2 * H y xRef z₀ := by
nlinarith [sq_nonneg ‖z.2‖]
have hx2 : ‖z.1 - c y xRef‖ ^ 2 ≤ 2 * η * H y xRef z₀ := by
calc
‖z.1 - c y xRef‖ ^ 2 = η * (η⁻¹ * ‖z.1 - c y xRef‖ ^ 2) := by
rw [← mul_assoc, mul_inv_cancel₀ (ne_of_gt hη), one_mul]
_ ≤ η * (2 * H y xRef z₀) := mul_le_mul_of_nonneg_left hxweighted hη.le
_ = _ := by ring
have hp : ‖z.2‖ ≤ Real.sqrt (2 * H y xRef z₀) := Real.le_sqrt_of_sq_le hp2
have hx : ‖z.1 - c y xRef‖ ≤ Real.sqrt (2 * η * H y xRef z₀) :=
Real.le_sqrt_of_sq_le hx2
refine ⟨hp, hx, ?_⟩
Exact contiguous compiled BODY; literal c,h,R,S,rate,H and preceding facts stay in scope.
7. Derive the exact pointwise majorant
The triangle inequality bounds ‖x−xRef‖ by ‖x−c‖+‖c−xRef‖. Apply the internally derived β-Lipschitz estimate to h, then Cauchy–Schwarz and max(0,⟨p,h⟩)≤‖p‖‖h‖. Insert both radii and multiply by √η≥0. The resulting Λ is the printed same-energy-layer majorant, not a stochastic path or cost bound.
Corresponding Lean step
have htriangle : ‖z.1 - xRef‖ ≤ ‖z.1 - c y xRef‖ + ‖c y xRef - xRef‖ := by
calc
‖z.1 - xRef‖ = ‖(z.1 - c y xRef) + (c y xRef - xRef)‖ := by
congr 1
abel
_ ≤ _ := norm_add_le _ _
have hnormal : ‖h xRef z.1‖ ≤ (β : ℝ) *
(Real.sqrt (2 * η * H y xRef z₀) + ‖c y xRef - xRef‖) := by
calc
‖h xRef z.1‖ ≤ (β : ℝ) * ‖z.1 - xRef‖ := hLip.norm_sub_le z.1 xRef
_ ≤ _ := mul_le_mul_of_nonneg_left (htriangle.trans (add_le_add hx le_rfl)) β.coe_nonneg
have hpair : max 0 (inner ℝ z.2 (h xRef z.1)) ≤ ‖z.2‖ * ‖h xRef z.1‖ :=
max_le (mul_nonneg (norm_nonneg _) (norm_nonneg _)) (real_inner_le_norm _ _)
calc
rate xRef z ≤ Real.sqrt η * (‖z.2‖ * ‖h xRef z.1‖) :=
mul_le_mul_of_nonneg_left hpair (Real.sqrt_nonneg _)
_ ≤ Real.sqrt η * (Real.sqrt (2 * H y xRef z₀) *
((β : ℝ) * (Real.sqrt (2 * η * H y xRef z₀) + ‖c y xRef - xRef‖))) :=
mul_le_mul_of_nonneg_left
(mul_le_mul hp hnormal (norm_nonneg _) (Real.sqrt_nonneg _)) (Real.sqrt_nonneg _)
_ = _ := by ring
Exact contiguous compiled BODY; literal c,h,R,S,rate,H and preceding facts stay in scope.
Lean verification
The exact proof begins folded immediately after the mathematical argument; the statement is folded beside the claim above.
Lean proof · actual_bounce_rate_energy_laws
Derive the gradient bound internally; Identify the zero-safe orthogonal reflection; Check Borel and continuous operations; Prove the actual bounce and rate identities; Keep zero energy and collect the first nine laws; Extract the two energy-layer radii; Derive the exact pointwise majorant
Braces mark parameters Lean can infer; square brackets request structures such as a measurable space or probability measure. Named hypotheses are mathematical premises, not facts established by this declaration. Section parameters are described in the mathematical hypotheses above; the module link retains their exact source context.
theorem actual_bounce_rate_energy_laws
{E : Type*} [NormedAddCommGroup E] [InnerProductSpace ℝ E]
[FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
{V : E → ℝ} {α β : ℝ≥0} {η : ℝ}
(hα : 0 < (α : ℝ)) (hαβ : α ≤ β) (hV : ContDiff ℝ 2 V)
(hH : ∀ x v : E,
(α : ℝ) * ‖v‖ ^ 2 ≤ (fderiv ℝ (fderiv ℝ V) x v) v ∧
(fderiv ℝ (fderiv ℝ V) x v) v ≤ (β : ℝ) * ‖v‖ ^ 2)
(hη : 0 < η) (hβη : (β : ℝ) * η ≤ 1) :
actual_bounce_rate_energy_statement hα hαβ hV hH hη hβη := by
let c : E → E → E := fun y xRef => y - η • gradient V xRef
let h : E → E → E := fun xRef x => gradient V x - gradient V xRef
let R : E → E → E := fun n p => p - (2 * inner ℝ p n / ‖n‖ ^ 2) • n
let S : E → (E × E) → (E × E) := fun xRef z => (z.1, R (h xRef z.1) z.2)
let rate : E → (E × E) → ℝ := fun xRef z =>
Real.sqrt η * max 0 (inner ℝ z.2 (h xRef z.1))
let H : E → E → (E × E) → ℝ := fun y xRef z =>
(η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 + ‖z.2‖ ^ 2) / 2
change
Measurable (fun a : E × (E × E) => S a.1 a.2) ∧
Continuous (fun a : E × (E × E) => rate a.1 a.2) ∧
Measurable (fun a : E × (E × E) => rate a.1 a.2) ∧
(∀ p : E, R 0 p = p) ∧
(∀ n p : E, R n (R n p) = p ∧ ‖R n p‖ = ‖p‖ ∧
inner ℝ (R n p) n = -inner ℝ p n) ∧
(∀ xRef : E, ∀ z : E × E,
(S xRef z).1 = z.1 ∧ S xRef (S xRef z) = z) ∧
(∀ y xRef : E, ∀ z : E × E,
H y xRef (S xRef z) = H y xRef z) ∧
(∀ xRef : E, ∀ z : E × E, 0 ≤ rate xRef z ∧
rate xRef (S xRef z) =
Real.sqrt η * max 0 (-inner ℝ z.2 (h xRef z.1)) ∧
rate xRef z - rate xRef (S xRef z) =
Real.sqrt η * inner ℝ z.2 (h xRef z.1)) ∧
(∀ xRef x p : E, h xRef x = 0 →
S xRef (x,p) = (x,p) ∧ rate xRef (x,p) = 0) ∧
(∀ y xRef : E, ∀ z₀ : E × E,
0 ≤ H y xRef z₀ ∧
∀ z : E × E, H y xRef z = H y xRef z₀ →
‖z.2‖ ≤ Real.sqrt (2 * H y xRef z₀) ∧
‖z.1 - c y xRef‖ ≤ Real.sqrt (2 * η * H y xRef z₀) ∧
rate xRef z ≤ Real.sqrt η * (β : ℝ) *
Real.sqrt (2 * H y xRef z₀) *
(Real.sqrt (2 * η * H y xRef z₀) + ‖c y xRef - xRef‖))
letI : CompleteSpace E := FiniteDimensional.complete ℝ E
have hLip : LipschitzWith β (gradient V) := by
simpa using
(AutoSamplingTheory.TechnicalLemmas.Analysis.QuadraticRegularization.strongConvexOn_and_lipschitzWith_gradient_add_quadratic
(m := α) (L := β) (r := 0) hV hH (0 : E)).2
have hgrad : Continuous (gradient V) := hLip.continuous
have hRzero (p : E) : R 0 p = p := by simp [R]
have hRreflect (n p : E) : R n p = (ℝ ∙ n)ᗮ.reflection p := by
rw [Submodule.reflection_orthogonal_apply, Submodule.reflection_singleton_apply]
simp only [two_smul, neg_sub]
dsimp [R]
simp only [div_eq_mul_inv, mul_smul]
rw [real_inner_comm n p]
module
have hRlaws (n p : E) : R n (R n p) = p ∧ ‖R n p‖ = ‖p‖ ∧
inner ℝ (R n p) n = -inner ℝ p n := by
refine ⟨?_, ?_, ?_⟩
· simp only [hRreflect, Submodule.reflection_reflection]
· rw [hRreflect]; exact LinearIsometryEquiv.norm_map _ _
· by_cases hn : n = 0
· simp [hn]
· have hn2 : ‖n‖ ^ 2 ≠ 0 := pow_ne_zero _ (norm_ne_zero_iff.mpr hn)
dsimp [R]
rw [inner_sub_left, real_inner_smul_left, real_inner_self_eq_norm_sq]
field_simp [hn2] <;> ring
have hSmeas : Measurable (fun a : E × (E × E) => S a.1 a.2) := by
dsimp [S, R, h]
fun_prop
have hratecont : Continuous (fun a : E × (E × E) => rate a.1 a.2) := by
dsimp [rate, h]
fun_prop
have hSlaws (xRef : E) (z : E × E) :
(S xRef z).1 = z.1 ∧ S xRef (S xRef z) = z := by
refine ⟨rfl, ?_⟩
exact Prod.ext rfl (hRlaws (h xRef z.1) z.2).1
have hHbounce (y xRef : E) (z : E × E) : H y xRef (S xRef z) = H y xRef z := by
dsimp [H, S]
rw [(hRlaws (h xRef z.1) z.2).2.1]
have hrateflip (xRef : E) (z : E × E) :
rate xRef (S xRef z) = Real.sqrt η * max 0 (-inner ℝ z.2 (h xRef z.1)) := by
dsimp [rate, S]
rw [(hRlaws (h xRef z.1) z.2).2.2]
have hratelaws (xRef : E) (z : E × E) : 0 ≤ rate xRef z ∧
rate xRef (S xRef z) = Real.sqrt η * max 0 (-inner ℝ z.2 (h xRef z.1)) ∧
rate xRef z - rate xRef (S xRef z) = Real.sqrt η * inner ℝ z.2 (h xRef z.1) := by
refine ⟨mul_nonneg (Real.sqrt_nonneg _) (le_max_left _ _), hrateflip xRef z, ?_⟩
rw [hrateflip]
dsimp [rate]
by_cases hi : 0 ≤ inner ℝ z.2 (h xRef z.1)
· rw [max_eq_right hi, max_eq_left (by linarith)]
ring
· rw [max_eq_left (le_of_not_ge hi), max_eq_right (by linarith)]
ring
have hzero (xRef x p : E) (hh : h xRef x = 0) :
S xRef (x,p) = (x,p) ∧ rate xRef (x,p) = 0 := by
simp [S, rate, hh, hRzero]
have hHnonneg (y xRef : E) (z : E × E) : 0 ≤ H y xRef z := by
exact div_nonneg (add_nonneg (mul_nonneg (inv_nonneg.mpr hη.le) (sq_nonneg _))
(sq_nonneg _)) (by norm_num)
refine ⟨hSmeas, hratecont, hratecont.measurable, hRzero, hRlaws,
hSlaws, hHbounce, hratelaws, hzero, ?_⟩
intro y xRef z₀
refine ⟨hHnonneg y xRef z₀, ?_⟩
intro z heq
have hsum : η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 + ‖z.2‖ ^ 2 = 2 * H y xRef z₀ := by
change (η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 + ‖z.2‖ ^ 2) / 2 = _ at heq
linarith
have hp2 : ‖z.2‖ ^ 2 ≤ 2 * H y xRef z₀ := by
have := mul_nonneg (inv_nonneg.mpr hη.le) (sq_nonneg ‖z.1 - c y xRef‖)
linarith
have hxweighted : η⁻¹ * ‖z.1 - c y xRef‖ ^ 2 ≤ 2 * H y xRef z₀ := by
nlinarith [sq_nonneg ‖z.2‖]
have hx2 : ‖z.1 - c y xRef‖ ^ 2 ≤ 2 * η * H y xRef z₀ := by
calc
‖z.1 - c y xRef‖ ^ 2 = η * (η⁻¹ * ‖z.1 - c y xRef‖ ^ 2) := by
rw [← mul_assoc, mul_inv_cancel₀ (ne_of_gt hη), one_mul]
_ ≤ η * (2 * H y xRef z₀) := mul_le_mul_of_nonneg_left hxweighted hη.le
_ = _ := by ring
have hp : ‖z.2‖ ≤ Real.sqrt (2 * H y xRef z₀) := Real.le_sqrt_of_sq_le hp2
have hx : ‖z.1 - c y xRef‖ ≤ Real.sqrt (2 * η * H y xRef z₀) :=
Real.le_sqrt_of_sq_le hx2
refine ⟨hp, hx, ?_⟩
have htriangle : ‖z.1 - xRef‖ ≤ ‖z.1 - c y xRef‖ + ‖c y xRef - xRef‖ := by
calc
‖z.1 - xRef‖ = ‖(z.1 - c y xRef) + (c y xRef - xRef)‖ := by
congr 1
abel
_ ≤ _ := norm_add_le _ _
have hnormal : ‖h xRef z.1‖ ≤ (β : ℝ) *
(Real.sqrt (2 * η * H y xRef z₀) + ‖c y xRef - xRef‖) := by
calc
‖h xRef z.1‖ ≤ (β : ℝ) * ‖z.1 - xRef‖ := hLip.norm_sub_le z.1 xRef
_ ≤ _ := mul_le_mul_of_nonneg_left (htriangle.trans (add_le_add hx le_rfl)) β.coe_nonneg
have hpair : max 0 (inner ℝ z.2 (h xRef z.1)) ≤ ‖z.2‖ * ‖h xRef z.1‖ :=
max_le (mul_nonneg (norm_nonneg _) (norm_nonneg _)) (real_inner_le_norm _ _)
calc
rate xRef z ≤ Real.sqrt η * (‖z.2‖ * ‖h xRef z.1‖) :=
mul_le_mul_of_nonneg_left hpair (Real.sqrt_nonneg _)
_ ≤ Real.sqrt η * (Real.sqrt (2 * H y xRef z₀) *
((β : ℝ) * (Real.sqrt (2 * η * H y xRef z₀) + ‖c y xRef - xRef‖))) :=
mul_le_mul_of_nonneg_left
(mul_le_mul hp hnormal (norm_nonneg _) (Real.sqrt_nonneg _)) (Real.sqrt_nonneg _)
_ = _ := by ring
end
end AutoSamplingTheory.ExampleCases.ProximalBPS.ActualBounceRateScope and omitted-condition boundaries
- Only actual deterministic bounce/rate/pointwise same-H energy-layer envelope. No random path/clock, Exp iid law, nonaccumulation/nonexplosion, measurable PDMP recursion, terminal Markov kernel, invariance/reversal, hypocoercivity/main, implementation error/expected query cost/actual-input composition, full paper/Exposition/PURIFIED/main/live/Goal credit. Focused compilation is local evidence; independent proof/source/decoder review, serialized aggregate and reader delivery remain separate.
Sources, dependencies, and reuse
Source and reuse
Samplinglib parents called
Mathlib API called (external library)
- Submodule.reflection_orthogonal_apply
- Submodule.reflection_singleton_apply
- Submodule.reflection_reflection
- LinearIsometryEquiv.norm_map
- Continuous.measurable
- LipschitzWith.norm_sub_le
- Real.le_sqrt_of_sq_le
- real_inner_le_norm
- norm_add_le
Mathematical sources
- arXiv2609.06905v1 Section2 Eq(2.4),Section3 Eq(3.4),Algorithm1 steps6-7/eq(3.9),AppendixA.1 Ex4-6 and A1.SS2.p3; deterministic prerequisites for Proposition3.1. — Only actual deterministic bounce/rate/pointwise same-H energy-layer envelope. No random path/clock, Exp iid law, nonaccumulation/nonexplosion, measurable PDMP recursion, terminal Markov kernel, invariance/reversal, hypocoercivity/main, implementation error/expected query cost/actual-input composition, full paper/Exposition/PURIFIED/main/live/Goal credit. Focused compilation is local evidence; independent proof/source/decoder review, serialized aggregate and reader delivery remain separate.
Samplinglib prose is not a quotation or a source-equivalence certificate. Definitions and aliases are explained as constructions, not counted as new mathematical proofs.