Compact Flux Identity for Globally Bounded Weak Tests
ProvedFunctionalInequalities.Analysis.integral_compact_flux_eq_neg_forcing_of_global_bounded_weak_test_readableThis is a weak integration-by-parts extension for compactly supported fluxes.
Let and be compactly supported, with each compact-locally in and locally integrable. Assume every compactly supported function satisfies
Let be locally integrable and globally bounded by . Suppose is a weak derivative of in the -th coordinate direction and is compact-locally in for every compact set. Then each and is integrable, and
The compact support of both the flux components and the forcing replaces compact support of the test function.
Original Lean declaration header
Within namespace FunctionalInequalities.Analysis. Shown in its original module context. Proof omitted.
theorem integral_compact_flux_eq_neg_forcing_of_global_bounded_weak_test {n : ℕ}
{J a : Fin n → EuclideanSpace ℝ (Fin n) → ℝ}
{F η : EuclideanSpace ℝ (Fin n) → ℝ} {C : ℝ}
(hJ : ∀ i : Fin n, ∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (J i) 2 ((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S))
(hF : LocallyIntegrable F (volume : Measure (EuclideanSpace ℝ (Fin n))))
(hJc : ∀ i : Fin n, HasCompactSupport (J i)) (hFc : HasCompactSupport F)
(hId : ∀ ψ : EuclideanSpace ℝ (Fin n) → ℝ,
ContDiff ℝ 1 ψ → HasCompactSupport ψ →
(∫ x, ∑ i : Fin n, J i x * fderiv ℝ ψ x (EuclideanSpace.basisFun (Fin n) ℝ i)
∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) =
-(∫ x, F x * ψ x ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))))
(hη : LocallyIntegrable η (volume : Measure (EuclideanSpace ℝ (Fin n))))
(hbound : ∀ x, ‖η x‖ ≤ C)
(hweak : ∀ i : Fin n, HasWeakDerivAlong η (a i) (EuclideanSpace.basisFun (Fin n) ℝ i))
(ha2 : ∀ i : Fin n, ∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (a i) 2 ((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S)) :
(∀ i : Fin n, Integrable (fun x => J i x * a i x)
(volume : Measure (EuclideanSpace ℝ (Fin n)))) ∧
Integrable (fun x => F x * η x) (volume : Measure (EuclideanSpace ℝ (Fin n))) ∧
(∫ x, ∑ i : Fin n, J i x * a i x ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) =
-(∫ x, F x * η x ∂(volume : Measure (EuclideanSpace ℝ (Fin n))))
Module navigation
Module: Analysis/WeakDerivative/Calculus.
Definition modules: Analysis/WeakDerivative/Basic.
Supporting theorems: HasWeakDerivAlong.compact_mul_data, integral_flux_eq_neg_forcing_of_bounded_weak_test.
Previous: HasWeakDerivAlong.compact_mul_data · Next: integral_eq_zero_of_integrable_weak_derivative.
Source excerpt, lines 1398–1419 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_Analysis_WeakDerivative_Calculus open MeasureTheory Filter Set Metric
theorem FunctionalInequalities.Analysis.integral_compact_flux_eq_neg_forcing_of_global_bounded_weak_test_readable {n : ℕ}
{J a : Fin n → EuclideanSpace ℝ (Fin n) → ℝ}
{F η : EuclideanSpace ℝ (Fin n) → ℝ} {C : ℝ}
(hJ : ∀ i : Fin n, ∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (J i) 2 ((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S))
(hF : LocallyIntegrable F (volume : Measure (EuclideanSpace ℝ (Fin n))))
(hJc : ∀ i : Fin n, HasCompactSupport (J i)) (hFc : HasCompactSupport F)
(hId : ∀ ψ : EuclideanSpace ℝ (Fin n) → ℝ,
ContDiff ℝ 1 ψ → HasCompactSupport ψ →
(∫ x, ∑ i : Fin n, J i x * fderiv ℝ ψ x (EuclideanSpace.basisFun (Fin n) ℝ i)
∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) =
-(∫ x, F x * ψ x ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))))
(hη : LocallyIntegrable η (volume : Measure (EuclideanSpace ℝ (Fin n))))
(hbound : ∀ x, ‖η x‖ ≤ C)
(hweak : ∀ i : Fin n, HasWeakDerivAlong η (a i) (EuclideanSpace.basisFun (Fin n) ℝ i))
(ha2 : ∀ i : Fin n, ∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (a i) 2 ((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S)) :
(∀ i : Fin n, Integrable (fun x => J i x * a i x)
(volume : Measure (EuclideanSpace ℝ (Fin n)))) ∧
Integrable (fun x => F x * η x) (volume : Measure (EuclideanSpace ℝ (Fin n))) ∧
(∫ x, ∑ i : Fin n, J i x * a i x ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) =
-(∫ x, F x * η x ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) := by sorry