Juillet's excursion coupling as a completed-graph occupation measure
DefinitionJuilletExcursionCouplingThis definition formalizes Juillet's excursion coupling for mutually singular probability measures on the real line as the literal occupation measure of the completed-graph pairing construction.
For , let
The level law has density with respect to Lebesgue measure. Measurable branch data enumerate every increasing and decreasing crossing exactly once at almost every nonzero regular level and pair each increasing crossing with the adjacent decreasing crossing prescribed by the sign of the level. If and are these paired branches on their measurable active level sets , the resulting occupation measure is
A measure is a Juillet excursion coupling precisely when it is a probability measure with marginals and is exactly this occupation measure. Thus the definition records the completed-graph construction itself, rather than merely requiring concentration on the set of admissible paired routes.
Formalization Note Countably many measurable branches are used only to represent the finite collection of pairs at almost every level. The exhaustive-uniqueness fields make the resulting sum independent of unused branch values and of null exceptional levels.
import Definitions.Def_excursion_coupling
import Mathlib.MeasureTheory.Measure.WithDensity
namespace ExcursionCoupling
open MeasureTheory Set Function
/-- The total number of increasing and decreasing completed-graph crossings
at a level, viewed as an extended nonnegative real number. -/
noncomputable def crossingMultiplicity (F : Real -> Real) (h : Real) : ENNReal :=
({x | (x, h) ∈ posPoints F}.encard.toENNReal) +
({x | (x, h) ∈ negPoints F}.encard.toENNReal)
/-- Juillet's law `theta / 2` for the randomly sampled completed-graph level. -/
noncomputable def excursionLevelLaw
(mu nu : Measure Real) : Measure Real :=
(2 : ENNReal)⁻¹ •
(volume.withDensity (crossingMultiplicity (Fsigma mu nu)))
/-- The increasing crossing and its adjacent decreasing crossing at one
nonzero regular level, with the orientation prescribed by the sign. -/
def pairedAtLevel
(F : Real -> Real) (h : Real) : Set (Real × Real) :=
{r |
h ≠ 0 ∧ regularLevel F h ∧
(r.1, h) ∈ posPoints F ∧ (r.2, h) ∈ negPoints F ∧
((0 < h ∧ r.1 < r.2 ∧
∀ z ∈ Ioo r.1 r.2, z ∉ levelSet F h) ∨
(h < 0 ∧ r.2 < r.1 ∧
∀ z ∈ Ioo r.2 r.1, z ∉ levelSet F h))}
/-- Measurable branch data for Juillet's completed-graph construction.
At almost every nonzero level, the active indices enumerate every increasing
and every decreasing crossing exactly once and pair adjacent crossings. -/
structure JuilletPairingData (mu nu : Measure Real) where
source : Nat -> Real -> Real
target : Nat -> Real -> Real
active : Nat -> Set Real
source_measurable : ∀ i, Measurable (source i)
target_measurable : ∀ i, Measurable (target i)
active_measurable : ∀ i, MeasurableSet (active i)
active_nonzero : ∀ i, active i ⊆ {0}ᶜ
regular_levels :
∀ᵐ h ∂(volume : Measure Real),
h ≠ 0 -> regularLevel (Fsigma mu nu) h
paired_ae :
∀ᵐ h ∂(volume : Measure Real),
∀ i, h ∈ active i ->
(source i h, target i h) ∈ pairedAtLevel (Fsigma mu nu) h
sources_exhaustive_unique_ae :
∀ᵐ h ∂(volume : Measure Real),
∀ x, h ≠ 0 -> regularLevel (Fsigma mu nu) h ->
(x, h) ∈ posPoints (Fsigma mu nu) ->
∃! i : Nat, h ∈ active i ∧ source i h = x
targets_exhaustive_unique_ae :
∀ᵐ h ∂(volume : Measure Real),
∀ y, h ≠ 0 -> regularLevel (Fsigma mu nu) h ->
(y, h) ∈ negPoints (Fsigma mu nu) ->
∃! i : Nat, h ∈ active i ∧ target i h = y
finite_active_ae :
∀ᵐ h ∂(volume : Measure Real), {i | h ∈ active i}.Finite
/-- The joint law obtained by integrating one atom at every adjacent
increasing/decreasing crossing pair over the completed-graph levels. This is
equivalent to sampling `H` with law `theta / 2` and then choosing uniformly
among the pairs at level `H`. -/
noncomputable def excursionCouplingMeasure
{mu nu : Measure Real} (data : JuilletPairingData mu nu) :
Measure (Real × Real) :=
Measure.sum fun i =>
Measure.map (fun h => (data.source i h, data.target i h))
((volume : Measure Real).restrict (data.active i))
/-- A measure is Juillet's excursion coupling when it has the prescribed
marginals and is exactly the completed-graph occupation measure. -/
def IsJuilletExcursionCoupling
(mu nu : Measure Real) (gamma : Measure (Real × Real)) : Prop :=
IsProbabilityMeasure gamma ∧
gamma.map Prod.fst = mu ∧
gamma.map Prod.snd = nu ∧
∃ data : JuilletPairingData mu nu,
gamma = excursionCouplingMeasure data
end ExcursionCouplingRead-back
What the Lean code literally says, in plain math · openai-codex
crossingMultiplicity
For every function and level , let
A point is positive when some satisfies, for every ,
and is negative when the same condition instead implies . Then crossingMultiplicity F h is the extended-nonnegative-real sum of the cardinalities of the sets of for which is respectively positive and negative. A finite set contributes its ordinary cardinality and an infinite set contributes . No regularity or existence of an ordinary left limit is assumed: leftLim is used as a total operator even when has no ordinary left limit.
excursionLevelLaw
For arbitrary measures on , define
where is extended-nonnegative-real conversion to a real number; in particular, converts to . At each , form the sum of the extended cardinalities of the positive and negative completed-graph points at height , where the completed graph and its positive and negative points are exactly those described under crossingMultiplicity, with . Then excursionLevelLaw mu nu is
where is Lebesgue measure. The declaration imposes no finiteness, probability, mutual-singularity, or measurability hypothesis on or on .
pairedAtLevel
For and , use and its positive and negative points as expanded under crossingMultiplicity, and set . Call regular precisely when there are and a strictly increasing family , indexed by , such that , every is positive or negative, and, for every ,
Then pairedAtLevel F h consists exactly of pairs such that , is regular, is positive, is negative, and either
or
The natural number may be , in which case regularity requires and all indexed conditions are vacuous; such a level cannot nevertheless produce a pair because a pair also requires positive and negative points.
JuilletPairingData
For arbitrary measures on , a JuilletPairingData mu nu value is a package of functions and sets , indexed by every , satisfying all of the following. Each and is measurable, each is measurable, and . Put , with converting to , and define its completed graph, positive points, negative points, regular levels, and paired points by the fully expanded conditions above. For Lebesgue-almost every , implies that is regular. For Lebesgue-almost every , simultaneously for every , membership implies that is paired at , including all the nonzero, regularity, sign, ordering, and no-intermediate-level-point conditions in pairedAtLevel. For Lebesgue-almost every , every positive completed-graph point at a nonzero regular level has exactly one index satisfying and . Likewise, for Lebesgue-almost every , every negative point at a nonzero regular level has exactly one index satisfying and . Finally, for Lebesgue-almost every , the set is finite. These almost-everywhere fields may have different exceptional null sets. At , the regular-level implication is vacuous and every is nevertheless required to exclude ; outside the asserted full-measure sets, the pairing, exhaustion, uniqueness, and finiteness conditions impose nothing.
excursionCouplingMeasure
For arbitrary implicit measures and any package satisfying every measurability, zero-exclusion, almost-everywhere regularity, expanded pairing, unique positive-source exhaustion, unique negative-target exhaustion, and finite-active-index condition stated in JuilletPairingData, excursionCouplingMeasure data is the measure on
Equivalently, for every measurable , its value is
Every active index contributes one full restricted-Lebesgue pushforward; the definition contains no normalization or division by the number of active indices. Null-set exceptional behavior does not affect these restricted measures.
IsJuilletExcursionCoupling
For arbitrary measures on and an arbitrary measure on , IsJuilletExcursionCoupling mu nu gamma asserts the conjunction of four requirements: ; the pushforward of by equals ; the pushforward by equals ; and there exist measurable functions and measurable sets , indexed by , satisfying all of the expanded JuilletPairingData conditions above for , such that
Thus the existential data must exclude from every , satisfy regularity almost everywhere away from , pair every active source and target almost everywhere by the fully expanded adjacent-crossing condition, uniquely enumerate all positive and negative crossings at almost every nonzero regular level, and have only finitely many active indices almost everywhere. No assumptions on or are premises; if the conjunction holds, their equality to the marginals of the probability measure is part of what is asserted.
Confirmed by the mission captain (proposal self-audit).