Coordinate Taylor Tensor Generator Identity
ProvedFunctionalInequalities.KLS.LogConcave.PoissonIterate.taylorTensor_gen_apply_readableThis formalizes BKL Lemma 3.6 in coordinates.
Let be finite-dimensional, let with , and assume all exponential moments of are integrable. Let lie in the domain of . For and an index map , write for the standard orthonormal basis. Then the st Taylor tensor of satisfies
The sum averages over all permutations of the coordinate positions.
This coordinate identity is the tensor form of the generator–gradient tilt identity and is reused in the Poisson-iterate Taylor estimates.
Formalization Note: Taylor tensors are formed from representatives, and the coordinate indices use Fin (Module.finrank ℝ V).
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave.PoissonIterate. Shown in its original module context. Proof omitted.
theorem taylorTensor_gen_apply {u : Lp ℝ 2 (ν : Measure V)} (hu : u ∈ (adjointComp T̄).domain)
(d : ℕ) (i : Fin (d + 1) → Fin (Module.finrank ℝ V)) :
taylorTensor (ν : Measure V) (⇑(gen T̄ u)) (d + 1) (fun p => stdOrthonormalBasis ℝ V (i p)) =
((d + 1).factorial : ℝ)⁻¹ * ∑ τ : Equiv.Perm (Fin (d + 1)),
taylorTensor (ν : Measure V) (⇑(partialDeriv T̄ (i (τ (Fin.last d))) u)) d
(fun p => stdOrthonormalBasis ℝ V (i (τ (Fin.castSucc p))))
Module navigation
Module: KLS/BKL/PoissonIterate/Taylor.
Definition modules: KLS/BKL/PoissonIterate/Basic, KLS/LogConcave/WeightedGradient/Closure, Analysis/Semigroup/AdjointComp, Probability/LogConcave, Analysis/BakryEmery/Tilt/Basic.
Supporting theorems: contDiff_tiltAverage_of_memLp, integrable_expTilt_of_memLp, taylorTensor_succ_of_eq_inner, tiltAverage_adjointComp_eq.
Previous: symmetrize_apply_comp_cast · Next: symmetrize_taylorField_grad0_step.
Source excerpt, lines 254–259 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_BKL_PoissonIterate_Taylor
open MeasureTheory
open FunctionalInequalities.Analysis.Semigroup FunctionalInequalities.Analysis.BakryEmery
variable {V : Type*} [NormedAddCommGroup V] [InnerProductSpace ℝ V] [CompleteSpace V]
[MeasurableSpace V] [BorelSpace V] [SecondCountableTopology V] [FiniteDimensional ℝ V]
{ν : MeasureTheory.ProbabilityMeasure V} (m : MeasureTheory.Measure V) [m.IsAddHaarMeasure] (hν : FunctionalInequalities.KLS.LogConcave ν)
(hi : (interior (ν : MeasureTheory.Measure V).support).Nonempty) {U : V → ℝ}
(hνU : (ν : MeasureTheory.Measure V) = m.tilted (-U)) (hU : ContDiff ℝ 2 U)
(hexp : ∀ r : ℝ, MeasureTheory.Integrable (fun x => Real.exp (r * ‖x‖)) (ν : MeasureTheory.Measure V))
local notation "T̄" => hν.closedWeightedOperator m (ContinuousLinearMap.id ℝ V) hi
include hνU hU hexp
theorem FunctionalInequalities.KLS.LogConcave.PoissonIterate.taylorTensor_gen_apply_readable {u : Lp ℝ 2 (ν : Measure V)} (hu : u ∈ (adjointComp T̄).domain)
(d : ℕ) (i : Fin (d + 1) → Fin (Module.finrank ℝ V)) :
taylorTensor (ν : Measure V) (⇑(gen T̄ u)) (d + 1) (fun p => stdOrthonormalBasis ℝ V (i p)) =
((d + 1).factorial : ℝ)⁻¹ * ∑ τ : Equiv.Perm (Fin (d + 1)),
taylorTensor (ν : Measure V) (⇑(partialDeriv T̄ (i (τ (Fin.last d))) u)) d
(fun p => stdOrthonormalBasis ℝ V (i (τ (Fin.castSucc p)))) := by sorry