Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Unbounded-variation stopped scale harmonicity from a negative starting reserve

Proved
AvramDividend.Classical.chat04_unbounded_stopped_scale_negative_reserve

by WillR · Oct 27, 2026 · Mathlib 0df444a (Lean v4.33.1)

fluctuation-theorylevy-processessource-faithful-childtwo-sided-exitunbounded-variation

For any x<0 with x≤a, the exact strict two-sided stopped scale payoff equals W(x)=0 for an unbounded-variation spectrally negative Lévy process. The downward clock is zero at the initially ruined reserve, so the strict upper-before-lower discounted exit factor vanishes. The accepted terminal payoff factorisation gives the identity for any upper boundary a, including positive a. Infinite-clock and tie conventions remain exactly those of the canonical theorem.

Preamble
import Mathlib.MeasureTheory.Integral.Lebesgue.Add
import Definitions.Def_AvramDividend_Classical_TwoSidedExit
import Definitions.Def_AvramDividend_Classical_ScaleFunction
import Theorems.Thm_AvramDividend_Classical_chat04_strict_two_sided_exit_terminal_payoff_factorisation_unbounded
import Theorems.Thm_AvramDividend_Classical_chat04_strict_exit_discount_zero_of_negative_reserve

open MeasureTheory Set
open scoped NNReal ENNReal
Formal statement
theorem AvramDividend.Classical.chat04_unbounded_stopped_scale_negative_reserve
    {Ω : Type*} [mΩ : MeasurableSpace Ω] {P : Measure Ω}
    {𝓕 : Filtration ℝ≥0 mΩ}
    (X : SpectrallyNegativeLevy P 𝓕)
    (hnbv : ¬ X.BoundedVariation)
    (q : ℝ) (hq : 0 < q)
    (W : ℝ → ℝ) (hW : IsScaleFunction X q W)
    (a x : ℝ) (hxa : x ≤ a) (hx : x < 0) :
    (∫⁻ ω, (if twoSidedExitUpTime X (a - x) ω <
          twoSidedExitDownTime X (-x) ω then
        ENNReal.ofReal
          (Real.exp (-(q * ENNReal.toReal (twoSidedExitUpTime X (a - x) ω)))) *
          ENNReal.ofReal
            (W (x + X.X (twoSidedExitUpTime X (a - x) ω).toNNReal ω))
      else 0) + (if twoSidedExitDownTime X (-x) ω <
          twoSidedExitUpTime X (a - x) ω then
        ENNReal.ofReal
          (Real.exp (-(q * ENNReal.toReal (twoSidedExitDownTime X (-x) ω)))) *
          ENNReal.ofReal
            (W (x + X.X (twoSidedExitDownTime X (-x) ω).toNNReal ω))
      else 0) ∂P) = ENNReal.ofReal (W x) := by sorry
Source
Avram, Palmowski and Pistorius (2007), arXiv:math/0702893. Independently Proved Prove2Me chat04_strict_exit_discount_zero_of_negative_reserve and chat04_strict_two_sided_exit_terminal_payoff_factorisation_unbounded.

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me