Expanded temporal density-capacity inequality under score coarsening
ProvedFormalCapacity.Measure.temporal_density_capacityFlow_expandedLet and be arbitrary measure spaces, and let be any function. At each stage , take seven real-valued functions on . For arbitrary weights , put and . Define the following functions pointwise at each stage:
For , let
For each stage separately, assume almost everywhere that the four block intensities are nonnegative and satisfy
Assume also, almost everywhere at each stage,
Require and, separately, each of to be real-integrable with respect to . The temporal input is the assumed integrated score-coarsening inequality
Write and
Then the expanded canonical-flow gap obeys
This transfers early adjacent-pair loss and late outer-pair gain bounds to a comparison of canonical density scores. It does not prove the assumed score-coarsening inequality or construct a coupling realizing the density data. The labels early and late do not encode time parameters or a Brownian process. No measurability of , pushforward relation between the measures, probability normalization, or finite-measure assumption is required: the displayed pulled-back integrability and almost-everywhere hypotheses are supplied directly.
import Mathlib
import Mathlib.MeasureTheory.Integral.Bochner.Basic
import Mathlib.MeasureTheory.Measure.FiniteMeasure
import Definitions.Def_capacityMeasureThreeLabel
import Definitions.Def_capacityTemporalFlow
set_option autoImplicit false
/-!
# The temporal capacity-flow inequality
This file proves the abstract form of equation (4.2). The first theorem uses
finite block measures and an arbitrary measurable restriction map. The second
specializes it to the density hypotheses discharged by the integrated
three-label stability theorem. The final corollary expands the canonical
score into the triple and two weighted pair terms printed in (4.2).
-/
open MeasureTheory
open FormalCapacity.Measure
variable {α β : Type*} [MeasurableSpace α] [MeasurableSpace β]
theorem FormalCapacity.Measure.temporal_density_capacityFlow_expanded
(early : ThreeLabelDensities α) (late : ThreeLabelDensities β)
(μEarly : Measure α) (μLate : Measure β) (R : α → β)
(q12 q23 : β → ℝ)
(hintEarly : early.IntegrableFor (q12 ∘ R) (q23 ∘ R) μEarly)
(hintLate : late.IntegrableFor q12 q23 μLate)
(hcomponentsEarly : CanonicalComponentsIntegrable early (q12 ∘ R) (q23 ∘ R) μEarly)
(hcomponentsLate : CanonicalComponentsIntegrable late q12 q23 μLate)
(hvalidEarly : ∀ᵐ x ∂μEarly, early.ValidAt x)
(hvalidLate : ∀ᵐ y ∂μLate, late.ValidAt y)
(hadmissibleEarly : ∀ᵐ x ∂μEarly,
early.AdmissibleAt (q12 ∘ R) (q23 ∘ R) x)
(hadmissibleLate : ∀ᵐ y ∂μLate, late.AdmissibleAt q12 q23 y)
(hcoarsen :
(∫ x, early.actualScore (q12 ∘ R) (q23 ∘ R) x ∂μEarly) ≤
∫ y, late.actualScore q12 q23 y ∂μLate) :
densityCanonicalFlowGapExpanded early late μEarly μLate R q12 q23 ≤
(∫ x, early.deficit12 x ∂μEarly) +
(∫ x, early.deficit23 x ∂μEarly) +
(∫ y, late.deficit13 y ∂μLate) := by
sorry