Samplinglib
Lean gate passed 2026-08-19T06:32:39.895922+00:00 · 7bcd37294df1
production module

AutoSamplingTheory.TechnicalLemmas.StochasticProcesses.ItoHorizonConsistency

5 named declarations scanned from AutoSamplingTheory/TechnicalLemmas/StochasticProcesses/ItoHorizonConsistency.lean.

Imports
Imported by
Placeholder scan
0 declaration(s) flagged
Gate status
Compiled

Declarations

def AutoSamplingTheory.TechnicalLemmas.StochasticProcesses.ItoHorizonConsistency.extendedCanonicalApprox Compiled Not mapped

- Canonical small-horizon approximants, represented exactly on a larger cofinal dyadic horizon.

noncomputable def extendedCanonicalApprox
    [IsFiniteMeasure mu]
    {a b : ℕ} (hab : a ≤ b)
    (eta : ProgressiveL2Integrand filtration mu (dyadicHorizon a))
    (n : ℕ) : DyadicElementaryProcess filtration (dyadicHorizon b) :=
  extendDyadicHorizon hab
    (canonicalElementaryApprox eta (dyadicHorizon_pos a) n)

/-- The extended canonical approximants converge to analytic zero extension in
product-space `L²` on the larger horizon. -/
theorem AutoSamplingTheory.TechnicalLemmas.StochasticProcesses.ItoHorizonConsistency.tendsto_extendedCanonicalApprox_toLp Compiled Not mapped

- The extended canonical approximants converge to analytic zero extension in product-space `L²` on the larger horizon.

theorem tendsto_extendedCanonicalApprox_toLp
    [IsFiniteMeasure mu]
    {a b : ℕ} (hab : a ≤ b)
    (eta : ProgressiveL2Integrand filtration mu (dyadicHorizon a)) :
    Tendsto
      (fun n => (extendedCanonicalApprox hab eta n).toLp mu)
      atTop
      (𝓝 (extendByZero eta (dyadicHorizon_mono hab)).toLp) := by
  apply tendsto_iff_norm_sub_tendsto_zero.mpr
  have hsmall := tendsto_iff_norm_sub_tendsto_zero.mp
    (tendsto_canonicalElementaryApprox_toLp eta (dyadicHorizon_pos a))
  have hnorm : ∀ n,
      ‖(extendedCanonicalApprox hab eta n).toLp mu -
          (extendByZero eta (dyadicHorizon_mono hab)).toLp‖ =
        ‖(canonicalElementaryApprox eta (dyadicHorizon_pos a) n).toLp mu -
          eta.toLp‖ := by
    intro n
    rw [show (extendedCanonicalApprox hab eta n).toLp mu =
        (extendByZero
          (toProgressiveL2
            (canonicalElementaryApprox eta (dyadicHorizon_pos a) n).process
            mu (dyadicHorizon a))
          (dyadicHorizon_mono hab)).toLp by
      exact extendDyadicHorizon_toLp_eq_extendByZero hab
        (canonicalElementaryApprox eta (dyadicHorizon_pos a) n)]
    simpa only [DyadicElementaryProcess.toLp] using
      norm_extendByZero_sub_extendByZero_eq
        (toProgressiveL2
          (canonicalElementaryApprox eta (dyadicHorizon_pos a) n).process
          mu (dyadicHorizon a))
        eta (dyadicHorizon_mono hab)
  simpa only [hnorm] using hsmall

/-- The large-horizon process-space representatives of the extended canonical
approximants converge to the completed zero extension. -/
theorem AutoSamplingTheory.TechnicalLemmas.StochasticProcesses.ItoHorizonConsistency.tendsto_extendedCanonicalApprox_processToLp Compiled Not mapped

- The large-horizon process-space representatives of the extended canonical approximants converge to the completed zero extension.

theorem tendsto_extendedCanonicalApprox_processToLp
    [IsProbabilityMeasure mu]
    {a b : ℕ} (hab : a ≤ b)
    (eta : ProgressiveL2Integrand filtration mu (dyadicHorizon a))
    (hB : IsBrownianMotionWithFiltration B filtration mu) :
    Tendsto
      (fun n => processToLp (extendedCanonicalApprox hab eta n) hB)
      atTop
      (𝓝 (integrandToLp
        (extendByZero eta (dyadicHorizon_mono hab)) hB)) := by
  change Tendsto
    (fun n => (extendedCanonicalApprox hab eta n).toLp mu)
    atTop (𝓝 (extendByZero eta (dyadicHorizon_mono hab)).toLp)
  exact tendsto_extendedCanonicalApprox_toLp hab eta

/-- The terminal sequence obtained after exact horizon extension is literally
the canonical small-horizon terminal approximation sequence. -/
theorem AutoSamplingTheory.TechnicalLemmas.StochasticProcesses.ItoHorizonConsistency.extendedCanonicalApprox_terminal_eq Compiled Not mapped

- The terminal sequence obtained after exact horizon extension is literally the canonical small-horizon terminal approximation sequence.

theorem extendedCanonicalApprox_terminal_eq
    [IsProbabilityMeasure mu]
    {a b : ℕ} (hab : a ≤ b)
    (eta : ProgressiveL2Integrand filtration mu (dyadicHorizon a))
    (hB : IsBrownianMotionWithFiltration B filtration mu)
    (n : ℕ) :
    terminalToLp (extendedCanonicalApprox hab eta n) hB =
      terminalApprox eta (dyadicHorizon_pos a) hB n := by
  unfold extendedCanonicalApprox terminalApprox
  exact extendDyadicHorizon_terminalToLp_eq hab
    (canonicalElementaryApprox eta (dyadicHorizon_pos a) n) hB

/-- **Completed terminal cross-horizon identity.**  Integrating an `L²`
integrand on `H_a` gives exactly the same terminal `L²(mu)` element as first
zero-extending it to any larger dyadic horizon `H_b` and integrating there. -/
theorem AutoSamplingTheory.TechnicalLemmas.StochasticProcesses.ItoHorizonConsistency.itoIntegralTerminal_extendByZero_eq Compiled Not mapped

Completed terminal cross-horizon identity. Integrating an `L²` integrand on `H_a` gives exactly the same terminal `L²(mu)` element as first zero-extending it to any larger dyadic horizon `H_b` and integrating there.

theorem itoIntegralTerminal_extendByZero_eq
    [IsProbabilityMeasure mu]
    {a b : ℕ} (hab : a ≤ b)
    (eta : ProgressiveL2Integrand filtration mu (dyadicHorizon a))
    (hB : IsBrownianMotionWithFiltration B filtration mu) :
    itoIntegralTerminal
        (extendByZero eta (dyadicHorizon_mono hab))
        (dyadicHorizon_pos b) hB =
      itoIntegralTerminal eta (dyadicHorizon_pos a) hB := by
  have hlarge : Tendsto
      (fun n => terminalToLp (extendedCanonicalApprox hab eta n) hB)
      atTop
      (𝓝 (itoIntegralTerminal
        (extendByZero eta (dyadicHorizon_mono hab))
        (dyadicHorizon_pos b) hB)) :=
    tendsto_terminal_of_tendsto_elementary
      (extendByZero eta (dyadicHorizon_mono hab))
      (dyadicHorizon_pos b) hB
      (extendedCanonicalApprox hab eta)
      (tendsto_extendedCanonicalApprox_processToLp hab eta hB)
  have hsmall : Tendsto
      (terminalApprox eta (dyadicHorizon_pos a) hB)
      atTop
      (𝓝 (itoIntegralTerminal eta (dyadicHorizon_pos a) hB)) :=
    tendsto_terminalApprox eta (dyadicHorizon_pos a) hB
  have hseq :
      (fun n => terminalToLp (extendedCanonicalApprox hab eta n) hB) =
        terminalApprox eta (dyadicHorizon_pos a) hB := by
    funext n
    exact extendedCanonicalApprox_terminal_eq hab eta hB n
  rw [hseq] at hlarge
  exact tendsto_nhds_unique hlarge hsmall

end ItoHorizonConsistency
end StochasticProcesses
end TechnicalLemmas
end AutoSamplingTheory