Samplinglib
Lean gate not recorded for this source state main · 9bb7a7394ab0

ActualBounceRate: mathematical reading route

Read the statements and derivations in source order. Every result has its own optional Lean statement and proof. Source assumptions, library reuse and unproved boundaries are kept explicit.

  1. Actual PBPS zero-safe bounce, rate and energy-layer bound
Samplinglib mathematical lesson

Actual PBPS zero-safe bounce, rate and energy-layer bound

AutoSamplingTheory.ExampleCases.ProximalBPS.ActualBounceRate.actual_bounce_rate_energy_laws · theorem · Teaching coverage

Read this first

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.

\[c=y-\eta\nabla V(x_{\rm ref}),\quad h=\nabla V(x)-\nabla V(x_{\rm ref}),\quad R(n,p)=p-\frac{2\langle p,n\rangle}{\|n\|^2}n,\quad R(0,p)=p.\quad S(x_{\rm ref},(x,p))=(x,R(h,p)),\quad\lambda(x_{\rm ref},(x,p))=\sqrt\eta\max\{0,\langle p,h\rangle\},\quad H=\tfrac12(\eta^{-1}\|x-c\|^2+\|p\|^2).\quad H(Sz)=H(z),\quad\lambda(z)-\lambda(Sz)=\sqrt\eta\langle p,h\rangle,\quad\lambda(z)\le\Lambda_{\mathcal E}=\sqrt\eta\,\beta\sqrt{2\mathcal E}\bigl(\sqrt{2\eta\mathcal E}+\|c-x_{\rm ref}\|\bigr)\quad(H(z)=\mathcal E).\]
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βη

Exact module and namespace context

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.

Download module (.lean)
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‖))

Exact module and namespace context

Proof roadmap

  1. 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.

  2. 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.

  3. 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.

  4. 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.

  5. 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.

  6. 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 ℰ.

  7. 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.

\[\|\nabla V(x)-\nabla V(u)\|\le\beta\|x-u\|.\]
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.

\[R_n=(\operatorname{span}\{n\}^{\perp})\text{-reflection},\quad R_n^2=I,\quad\|R_np\|=\|p\|,\quad\langle R_np,n\rangle=-\langle p,n\rangle.\]
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.

\[S\text{ is Borel},\qquad\lambda=\sqrt\eta\max(0,\langle p,h\rangle)\text{ is continuous}.\]
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.

\[S^2=I,\quad H(Sz)=H(z),\quad\lambda(Sz)=\sqrt\eta\max(0,-a),\quad\lambda(z)-\lambda(Sz)=\sqrt\eta a.\]
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.

\[\mathcal E=H(y,x_{\rm ref},z_0)\ge0.\]
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 ℰ.

\[\|p\|^2\le2\mathcal E,\quad\|x-c\|^2\le2\eta\mathcal E,\quad\|p\|\le\sqrt{2\mathcal E},\quad\|x-c\|\le\sqrt{2\eta\mathcal E}.\]
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.

\[\lambda(z)\le\sqrt\eta\|p\|\|h\|\le\sqrt\eta\,\beta\sqrt{2\mathcal E}\bigl(\sqrt{2\eta\mathcal E}+\|c-x_{\rm ref}\|\bigr).\]
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.

Download module (.lean)
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.ActualBounceRate

Exact module and namespace context

Scope 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

Samplinglib prose is not a quotation or a source-equivalence certificate. Definitions and aliases are explained as constructions, not counted as new mathematical proofs.