Unweighted Weak Hessian Flux Identity
ProvedFunctionalInequalities.Analysis.integral_weak_hessian_flux_eq_trace_derivative_readableThis formalizes part of Lemma 2.4 of Letwin (arXiv:2607.24164v1), as an unweighted weak flux identity.
Let , be with Lipschitz gradient, and let be a tensor. Assume that, for every coordinate and indices , the component has weak derivative in the -th basis direction, with belonging locally to on every compact set. Assume similarly that the entries of have weak derivatives
that these derivatives are compact-locally in , and that the inverse-Hessian entries are compact-locally in in the ENNReal sense. Finally, let be a tensor whose prescribed weak derivative is the trace of and whose components are compact-locally in .
Define
and
Then, for every , each is compact-locally in , is locally integrable, and every compactly supported test function satisfies
The result is a technical weak integration-by-parts identity reusable by weighted Hessian evolution statements.
Original Lean conclusion excerpt
Within namespace FunctionalInequalities.Analysis. Shown in its original module context. Earlier hypotheses and the proof are omitted from this excerpt; the complete verified statement remains below.
∀ i j : Fin n,
(∀ a : Fin n, ∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => J x i j a) 2
((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S)) ∧
LocallyIntegrable (fun x => C x i j)
(volume : Measure (EuclideanSpace ℝ (Fin n))) ∧
∀ ψ : EuclideanSpace ℝ (Fin n) → ℝ,
ContDiff ℝ 1 ψ → HasCompactSupport ψ →
(∫ x, ∑ a : Fin n, J x i j a *
fderiv ℝ ψ x (EuclideanSpace.basisFun (Fin n) ℝ a)
∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) =
-(∫ x, C x i j * ψ x ∂(volume : Measure (EuclideanSpace ℝ (Fin n))))
Module navigation
Module: Analysis/BakryEmery/IntegrationByParts/WeakHessianEvolution.
Definition modules: Analysis/BakryEmery/HessianOperator, Analysis/Operator/Coordinates, Analysis/WeakDerivative/Basic.
Supporting theorems: HasWeakDerivAlong.compact_mul_data, ae_weak_third_derivative_symm, integral_weakDeriv_mul_eq_swap, localLp_hessian_flux_trace_forcing, integral_array_pair_balance.
Previous: integral_array_pair_balance · Next: ae_hessian_flux_forcing_minus_drift.
Source excerpt, lines 918–929 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_Analysis_BakryEmery_IntegrationByParts_WeakHessianEvolution open MeasureTheory Set Filter open FunctionalInequalities.Probability.Stein set_option maxHeartbeats 1200000
theorem FunctionalInequalities.Analysis.integral_weak_hessian_flux_eq_trace_derivative_readable {n : ℕ}
{u : EuclideanSpace ℝ (Fin n) → ℝ} {G : NNReal}
(hu : ContDiff ℝ 1 u) (hG : LipschitzWith G (gradient u))
(T : EuclideanSpace ℝ (Fin n) → Fin n → Fin n → Fin n → ℝ)
(hT : ∀ k i j : Fin n,
HasWeakDerivAlong (fun x => hessianMatrix u x i j) (fun x => T x k i j)
(EuclideanSpace.basisFun (Fin n) ℝ k) ∧
∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => T x k i j) 2
((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S))
(hInv : ∀ k i j : Fin n,
HasWeakDerivAlong (fun x => (hessianMatrix u x)⁻¹ i j)
(fun x => -(((hessianMatrix u x)⁻¹ *
(Matrix.of fun a b => T x k a b) * (hessianMatrix u x)⁻¹) i j))
(EuclideanSpace.basisFun (Fin n) ℝ k) ∧
(∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => -(((hessianMatrix u x)⁻¹ *
(Matrix.of fun a b => T x k a b) * (hessianMatrix u x)⁻¹) i j)) 2
((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S)) ∧
∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => (hessianMatrix u x)⁻¹ i j) (⊤ : ENNReal)
((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S))
(Q : EuclideanSpace ℝ (Fin n) → Fin n → Fin n → ℝ)
(hQ : ∀ i j : Fin n,
HasWeakDerivAlong
(fun x => ((hessianMatrix u x)⁻¹ * (Matrix.of fun a b => T x i a b)).trace)
(fun x => Q x i j) (EuclideanSpace.basisFun (Fin n) ℝ j) ∧
∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => Q x i j) 2
((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S)) :
let R := fun x => (hessianMatrix u x)⁻¹
let D := fun x k b a => -((R x * (Matrix.of fun c d => T x k c d) * R x) b a)
let J := fun x i j a => ∑ b : Fin n, R x b a * T x b i j
let C := fun x i j => Q x i j -
(∑ a : Fin n, ∑ b : Fin n, T x i a b * D x j b a) +
∑ b : Fin n, T x b i j * (∑ a : Fin n, D x a b a)
∀ i j : Fin n,
(∀ a : Fin n, ∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => J x i j a) 2
((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S)) ∧
LocallyIntegrable (fun x => C x i j)
(volume : Measure (EuclideanSpace ℝ (Fin n))) ∧
∀ ψ : EuclideanSpace ℝ (Fin n) → ℝ,
ContDiff ℝ 1 ψ → HasCompactSupport ψ →
(∫ x, ∑ a : Fin n, J x i j a *
fderiv ℝ ψ x (EuclideanSpace.basisFun (Fin n) ℝ a)
∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) =
-(∫ x, C x i j * ψ x ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) := by sorry