Actual centered selfadjoint operator and positive squared defect
AutoSamplingTheory.ExampleCases.ProximalBPS.CenteredDefectOperator.actual_centered_selfadjoint_defect · theorem · Teaching coverage
Mathematical statement
E is a finite-dimensional real Hilbert Borel space with canonical volume; rank zero is an explicit extension of the source Euclidean convention. V:E→ℝ is C²; 0<α≤β; α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v; η>0 and βη≤1. μ=volume.tilted(−V), J=Law(X,X+√ηZ) for independent X∼μ and Z∼N(0,I), and ν=J.snd. Finite dimensionality of E does not imply finite dimensionality of L²(ν). Let Λ be the law of (Y,2X−Y) under J, F(x,y)=(x,2x−y), and P the L²(J) conditional-expectation orthogonal projection onto the second-coordinate sigma algebra. The laws μ,J,ν are probabilities. There exist a Markov kernel S with, for every y, S(y)=volume.tilted(x↦−V((y+x)/2)−‖y−x‖²/(8η)), Λ disintegrated by S and both marginals equal to ν; an involutive selfadjoint linear isometry U with Ug=g∘F J-a.e.; an isometric pullback M with Mu=u∘snd J-a.e.; and a selfadjoint T on L²(ν) such that for every u, PMu=Mu, MTu=PUPMu, ‖Tu‖≤‖u‖, Tu(y)=∫u(x)S(y,dx) ν-a.e. and ∫Tu dν=∫u dν. There is a constant class q=1 ν-a.e. with Tq=q and ⟨q,u⟩=∫u dν for all u. Its exact closed orthogonal kernel H₀ is all of L²₀(ν). The full defect D=I−T² is positive, Dq=0 and ⟨Du,u⟩=‖u‖²−‖Tu‖² for all u. The actual restriction T₀:H₀→H₀ agrees with T on every u∈H₀, is selfadjoint and contractive. D₀=I_H₀−T₀² is positive, agrees with D as an ambient L² class on H₀, and satisfies ⟨D₀u,u⟩=‖u‖²−‖T₀u‖² for all u∈H₀.
Lean statement · actual_centered_selfadjoint_defect
E is a finite-dimensional real Hilbert Borel space with canonical volume; rank zero is an explicit extension of the source Euclidean convention. V:E→ℝ is C²; 0<α≤β; α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v; η>0 and βη≤1. μ=volume.tilted(−V), J=Law(X,X+√ηZ) for independent X∼μ and Z∼N(0,I), and ν=J.snd. Finite dimensionality of E does not imply finite dimensionality of L²(ν). Let Λ be the law of (Y,2X−Y) under J, F(x,y)=(x,2x−y), and P the L²(J) conditional-expectation orthogonal projection onto the second-coordinate sigma algebra. The laws μ,J,ν are probabilities. There exist a Markov kernel S with, for every y, S(y)=volume.tilted(x↦−V((y+x)/2)−‖y−x‖²/(8η)), Λ disintegrated by S and both marginals equal to ν; an involutive selfadjoint linear isometry U with Ug=g∘F J-a.e.; an isometric pullback M with Mu=u∘snd J-a.e.; and a selfadjoint T on L²(ν) such that for every u, PMu=Mu, MTu=PUPMu, ‖Tu‖≤‖u‖, Tu(y)=∫u(x)S(y,dx) ν-a.e. and ∫Tu dν=∫u dν. There is a constant class q=1 ν-a.e. with Tq=q and ⟨q,u⟩=∫u dν for all u. Its exact closed orthogonal kernel H₀ is all of L²₀(ν). The full defect D=I−T² is positive, Dq=0 and ⟨Du,u⟩=‖u‖²−‖Tu‖² for all u. The actual restriction T₀:H₀→H₀ agrees with T on every u∈H₀, is selfadjoint and contractive. D₀=I_H₀−T₀² is positive, agrees with D as an ambient L² class on H₀, and satisfies ⟨D₀u,u⟩=‖u‖²−‖T₀u‖² for all u∈H₀.
Braces mark parameters Lean can infer; square brackets request structures such as a measurable space or probability measure. Named hypotheses are mathematical premises, not facts established by this declaration. Section parameters are described in the mathematical hypotheses above; the module link retains their exact source context.
theorem actual_centered_selfadjoint_defect
{E : Type*} [NormedAddCommGroup E] [InnerProductSpace ℝ E]
[FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
{V : E → ℝ} {α β : ℝ≥0} {η : ℝ}
(hα : 0 < (α : ℝ)) (hαβ : α ≤ β) (hV : ContDiff ℝ 2 V)
(hH : ∀ x v : E,
(α : ℝ)*‖v‖^2 ≤ (fderiv ℝ (fderiv ℝ V) x v) v ∧
(fderiv ℝ (fderiv ℝ V) x v) v ≤ (β : ℝ)*‖v‖^2)
(hη : 0 < η) (hβη : (β : ℝ)*η ≤ 1) :
let μ := (volume : Measure E).tilted (fun x => -V x)
let J := (μ.prod (stdGaussian E)).map
(fun p : E × E => (p.1,p.1+Real.sqrt η • p.2))
let ν := J.snd
let Λ := J.map (fun p : E × E => (p.2,(2 : ℝ) • p.1-p.2))
let F := fun p : E × E => (p.1,(2 : ℝ) • p.1-p.2)
let P : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J :=
(lpMeas ℝ ℝ (MeasurableSpace.comap Prod.snd (inferInstance : MeasurableSpace E))
2 J).subtypeL ∘L condExpL2 ℝ ℝ measurable_snd.comap_le
IsProbabilityMeasure μ ∧ IsProbabilityMeasure J ∧ IsProbabilityMeasure ν ∧
∃ S : Kernel E E, IsMarkovKernel S ∧
(∀ y, S y = (volume : Measure E).tilted
(fun x => -V ((1/2 : ℝ) • (y+x)) - ‖y-x‖^2/(8*η))) ∧
Λ.IsCondKernel S ∧ Λ.fst = ν ∧ Λ.snd = ν ∧
∃ U : Lp ℝ 2 J →ₗᵢ[ℝ] Lp ℝ 2 J,
(∀ g : Lp ℝ 2 J, (U g : E × E → ℝ) =ᵐ[J] g ∘ F) ∧
Function.Involutive U ∧ IsSelfAdjoint U.toContinuousLinearMap ∧
∃ M : Lp ℝ 2 ν →ₗᵢ[ℝ] Lp ℝ 2 J,
(∀ u : Lp ℝ 2 ν, (M u : E × E → ℝ) =ᵐ[J] u ∘ Prod.snd) ∧
∃ T : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν,
IsSelfAdjoint T ∧
(∀ u : Lp ℝ 2 ν,
P (M u) = M u ∧
M (T u) = (P * U.toContinuousLinearMap * P) (M u) ∧
‖T u‖ ≤ ‖u‖ ∧
(T u : E → ℝ) =ᵐ[ν] (fun y => ∫ x, u x ∂S y) ∧
(∫ y, T u y ∂ν) = ∫ y, u y ∂ν) ∧
∃ q : Lp ℝ 2 ν,
(q : E → ℝ) =ᵐ[ν] (fun _ => (1 : ℝ)) ∧ T q = q ∧
(∀ u : Lp ℝ 2 ν, inner ℝ q u = ∫ y, u y ∂ν) ∧
(∀ u : Lp ℝ 2 ν, u ∈ ((innerSL ℝ q).ker) ↔ (∫ y, u y ∂ν) = 0) ∧
((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T).IsPositive ∧ ((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T) q = 0 ∧
(∀ u : Lp ℝ 2 ν,
inner ℝ (((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T) u) u = ‖u‖^2-‖T u‖^2) ∧
∃ T0 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker),
(∀ u : ((innerSL ℝ q).ker), (T0 u : Lp ℝ 2 ν) = T u) ∧
IsSelfAdjoint T0 ∧ (∀ u : ((innerSL ℝ q).ker), ‖T0 u‖ ≤ ‖u‖) ∧
((1 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker))-T0*T0).IsPositive ∧
(∀ u : ((innerSL ℝ q).ker), (((1 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker))-T0*T0) u : Lp ℝ 2 ν) = ((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T) u) ∧
(∀ u : ((innerSL ℝ q).ker),
inner ℝ (((1 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker))-T0*T0) u) u = ‖u‖^2-‖T0 u‖^2)Proof roadmap
- 1Recover the actual kernel and Hilbert operators
Reuse the compiled actual Gaussian augmentation, reflected conditional kernel S, isometric reflection U, second-coordinate pullback M, and operator T. The kernel has the literal normalized density exp(−V((y+x)/2)−‖y−x‖²/(8η)); its stationary law and probability normalization are conclusions, not supplied premises.
- 2Transport selfadjointness
The actual conditional expectation P is an orthogonal projection and U is selfadjoint. Move P across the inner product and use PM=M; the isometry M transfers the resulting symmetry to T.
- 3Prove mean preservation with the actual joint law
The reflected joint law Λ disintegrates as ν⊗S and has second marginal ν. Each L² function is integrable because ν is a probability. The actual AE formula for T and Fubini therefore give mean preservation.
- 4Identify the constant and the entire centered space
Take the canonical L² constant q=1. Its inner product is the mean. Selfadjointness and mean preservation imply Tq=q. The kernel of the continuous functional inner(q,·) is exactly all mean-zero classes, is closed, and is preserved by T.
- 5Restrict the actual operator
Restrict T to the closed invariant subspace H₀. Its action as an ambient L² class is exactly T; symmetry and the norm bound transfer to this same restriction T₀.
- 6Compute both squared defects
For either selfadjoint contraction, move one copy of T across the inner product. The result is nonnegative, so D=I−T² and D₀=I−T₀² are positive. Dq=0, and the centered defect is the actual restriction of D.
Full assumptions and notation
All objects and hypotheses
- The complete potential, curvature, initialization law and step conditions are stated above. No operator, probability, stationarity, mean-zero preservation or coercivity certificate is supplied by the caller.
- L² consists of AE classes; finite dimension of E does not make L² finite dimensional. The whole closed mean-zero subspace is used.
- Zero-dimensional E is explicitly included as an extension of the source Euclidean convention; αη=1 is retained.
Mathematical proof
1. Recover the actual kernel and Hilbert operators
Reuse the compiled actual Gaussian augmentation, reflected conditional kernel S, isometric reflection U, second-coordinate pullback M, and operator T. The kernel has the literal normalized density exp(−V((y+x)/2)−‖y−x‖²/(8η)); its stationary law and probability normalization are conclusions, not supplied premises.
Corresponding Lean step
L2MacroscopicMean.actual_macroscopic_l2_mean; hBase
2. Transport selfadjointness
The actual conditional expectation P is an orthogonal projection and U is selfadjoint. Move P across the inner product and use PM=M; the isometry M transfers the resulting symmetry to T.
Corresponding Lean step
hPs; M.inner_map_map; hTs
3. Prove mean preservation with the actual joint law
The reflected joint law Λ disintegrates as ν⊗S and has second marginal ν. Each L² function is integrable because ν is a probability. The actual AE formula for T and Fubini therefore give mean preservation.
Corresponding Lean step
Measure.disintegrate; integral_compProd; integral_map; hPreserve
4. Identify the constant and the entire centered space
Take the canonical L² constant q=1. Its inner product is the mean. Selfadjointness and mean preservation imply Tq=q. The kernel of the continuous functional inner(q,·) is exactly all mean-zero classes, is closed, and is preserved by T.
Corresponding Lean step
L2Expectation.one; inner_one_eq_integral; hTq; hH0
5. Restrict the actual operator
Restrict T to the closed invariant subspace H₀. Its action as an ambient L² class is exactly T; symmetry and the norm bound transfer to this same restriction T₀.
Corresponding Lean step
codRestrict; hInv; hT0; hT0s; hT0n
6. Compute both squared defects
For either selfadjoint contraction, move one copy of T across the inner product. The result is nonnegative, so D=I−T² and D₀=I−T₀² are positive. Dq=0, and the centered defect is the actual restriction of D.
Corresponding Lean step
hDef; hD; hDef0; hD0
Lean verification
The exact proof begins folded immediately after the mathematical argument; the statement is folded beside the claim above.
Lean proof · actual_centered_selfadjoint_defect
Recover the actual kernel and Hilbert operators; Transport selfadjointness; Prove mean preservation with the actual joint law; Identify the constant and the entire centered space; Restrict the actual operator; Compute both squared defects
Braces mark parameters Lean can infer; square brackets request structures such as a measurable space or probability measure. Named hypotheses are mathematical premises, not facts established by this declaration. Section parameters are described in the mathematical hypotheses above; the module link retains their exact source context.
theorem actual_centered_selfadjoint_defect
{E : Type*} [NormedAddCommGroup E] [InnerProductSpace ℝ E]
[FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
{V : E → ℝ} {α β : ℝ≥0} {η : ℝ}
(hα : 0 < (α : ℝ)) (hαβ : α ≤ β) (hV : ContDiff ℝ 2 V)
(hH : ∀ x v : E,
(α : ℝ)*‖v‖^2 ≤ (fderiv ℝ (fderiv ℝ V) x v) v ∧
(fderiv ℝ (fderiv ℝ V) x v) v ≤ (β : ℝ)*‖v‖^2)
(hη : 0 < η) (hβη : (β : ℝ)*η ≤ 1) :
let μ := (volume : Measure E).tilted (fun x => -V x)
let J := (μ.prod (stdGaussian E)).map
(fun p : E × E => (p.1,p.1+Real.sqrt η • p.2))
let ν := J.snd
let Λ := J.map (fun p : E × E => (p.2,(2 : ℝ) • p.1-p.2))
let F := fun p : E × E => (p.1,(2 : ℝ) • p.1-p.2)
let P : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J :=
(lpMeas ℝ ℝ (MeasurableSpace.comap Prod.snd (inferInstance : MeasurableSpace E))
2 J).subtypeL ∘L condExpL2 ℝ ℝ measurable_snd.comap_le
IsProbabilityMeasure μ ∧ IsProbabilityMeasure J ∧ IsProbabilityMeasure ν ∧
∃ S : Kernel E E, IsMarkovKernel S ∧
(∀ y, S y = (volume : Measure E).tilted
(fun x => -V ((1/2 : ℝ) • (y+x)) - ‖y-x‖^2/(8*η))) ∧
Λ.IsCondKernel S ∧ Λ.fst = ν ∧ Λ.snd = ν ∧
∃ U : Lp ℝ 2 J →ₗᵢ[ℝ] Lp ℝ 2 J,
(∀ g : Lp ℝ 2 J, (U g : E × E → ℝ) =ᵐ[J] g ∘ F) ∧
Function.Involutive U ∧ IsSelfAdjoint U.toContinuousLinearMap ∧
∃ M : Lp ℝ 2 ν →ₗᵢ[ℝ] Lp ℝ 2 J,
(∀ u : Lp ℝ 2 ν, (M u : E × E → ℝ) =ᵐ[J] u ∘ Prod.snd) ∧
∃ T : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν,
IsSelfAdjoint T ∧
(∀ u : Lp ℝ 2 ν,
P (M u) = M u ∧
M (T u) = (P * U.toContinuousLinearMap * P) (M u) ∧
‖T u‖ ≤ ‖u‖ ∧
(T u : E → ℝ) =ᵐ[ν] (fun y => ∫ x, u x ∂S y) ∧
(∫ y, T u y ∂ν) = ∫ y, u y ∂ν) ∧
∃ q : Lp ℝ 2 ν,
(q : E → ℝ) =ᵐ[ν] (fun _ => (1 : ℝ)) ∧ T q = q ∧
(∀ u : Lp ℝ 2 ν, inner ℝ q u = ∫ y, u y ∂ν) ∧
(∀ u : Lp ℝ 2 ν, u ∈ ((innerSL ℝ q).ker) ↔ (∫ y, u y ∂ν) = 0) ∧
((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T).IsPositive ∧ ((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T) q = 0 ∧
(∀ u : Lp ℝ 2 ν,
inner ℝ (((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T) u) u = ‖u‖^2-‖T u‖^2) ∧
∃ T0 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker),
(∀ u : ((innerSL ℝ q).ker), (T0 u : Lp ℝ 2 ν) = T u) ∧
IsSelfAdjoint T0 ∧ (∀ u : ((innerSL ℝ q).ker), ‖T0 u‖ ≤ ‖u‖) ∧
((1 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker))-T0*T0).IsPositive ∧
(∀ u : ((innerSL ℝ q).ker), (((1 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker))-T0*T0) u : Lp ℝ 2 ν) = ((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T) u) ∧
(∀ u : ((innerSL ℝ q).ker),
inner ℝ (((1 : ((innerSL ℝ q).ker) →L[ℝ] ((innerSL ℝ q).ker))-T0*T0) u) u = ‖u‖^2-‖T0 u‖^2) := by
classical
dsimp only
let μ := (volume : Measure E).tilted (fun x => -V x)
let J := (μ.prod (stdGaussian E)).map
(fun p : E × E => (p.1,p.1+Real.sqrt η • p.2))
let ν := J.snd
let Λ := J.map (fun p : E × E => (p.2,(2 : ℝ) • p.1-p.2))
let P : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J :=
(lpMeas ℝ ℝ (MeasurableSpace.comap Prod.snd (inferInstance : MeasurableSpace E))
2 J).subtypeL ∘L condExpL2 ℝ ℝ measurable_snd.comap_le
have hBase := L2MacroscopicMean.actual_macroscopic_l2_mean hα hαβ hV hH hη hβη
rcases hBase with ⟨hμ,hJ,hν,S,hS,hSd,hSc,hSf,hSs,U,hU,hUi,hUs,M,hM,T,hAll⟩
letI : IsProbabilityMeasure μ := hμ
letI : IsProbabilityMeasure J := hJ
letI : IsProbabilityMeasure ν := hν
letI : IsMarkovKernel S := hS
letI : Λ.IsCondKernel S := hSc
have hPs (f g : Lp ℝ 2 J) : inner ℝ (P f) g = inner ℝ f (P g) :=
inner_condExpL2_left_eq_right measurable_snd.comap_le
have hTs : IsSelfAdjoint T := by
apply ContinuousLinearMap.isSelfAdjoint_iff_isSymmetric.mpr
intro u v
change inner ℝ (T u) v = inner ℝ u (T v)
rw [← M.inner_map_map (T u) v, ← M.inner_map_map u (T v)]
rw [(hAll u).2.1, (hAll v).2.1]
change inner ℝ (P (U (P (M u)))) (M v) =
inner ℝ (M u) (P (U (P (M v))))
rw [hPs, (hAll u).1, (hAll v).1]
calc
inner ℝ (U (M u)) (M v) = inner ℝ (M u) (U (M v)) :=
hUs.isSymmetric (M u) (M v)
_ = inner ℝ (M u) (P (U (M v))) := by
rw [← hPs, (hAll u).1]
have hcompS : ν ⊗ₘ S = Λ := by
calc
ν ⊗ₘ S = Λ.fst ⊗ₘ S := congrArg (fun ρ => ρ ⊗ₘ S) hSf.symm
_ = Λ := Measure.disintegrate Λ S
have hPreserve (u : Lp ℝ 2 ν) : (∫ y, T u y ∂ν)=∫ y, u y ∂ν := by
have hi : Integrable (fun p : E × E => u p.2) (ν ⊗ₘ S) := by
rw [hcompS]
exact ((Lp.memLp u).comp_measurePreserving
(show MeasurePreserving (Prod.snd : E × E → E) Λ ν from
⟨measurable_snd,hSs⟩)).integrable (by norm_num)
rw [integral_congr_ae (hAll u).2.2.2.1, ← Measure.integral_compProd hi, hcompS]
calc
(∫ p : E × E, u p.2 ∂Λ) = ∫ y, u y ∂Λ.snd :=
(integral_map (μ:=Λ) measurable_snd.aemeasurable
(Lp.stronglyMeasurable u).aestronglyMeasurable).symm
_ = ∫ y, u y ∂ν := by rw [hSs]
let q : Lp ℝ 2 ν := AutoSamplingTheory.TechnicalLemmas.Measure.L2Expectation.one ν
have hq (u : Lp ℝ 2 ν) : inner ℝ q u = ∫ y, u y ∂ν :=
AutoSamplingTheory.TechnicalLemmas.Measure.L2Expectation.inner_one_eq_integral ν u
have hTq : T q=q := by
apply ext_inner_right ℝ
intro u
calc
inner ℝ (T q) u = inner ℝ q (T u) := hTs.isSymmetric q u
_ = ∫ y, T u y ∂ν := hq _
_ = ∫ y, u y ∂ν := hPreserve u
_ = inner ℝ q u := (hq _).symm
let H0 : Submodule ℝ (Lp ℝ 2 ν) := (innerSL ℝ q).ker
have hH0 (u : Lp ℝ 2 ν) : u ∈ H0 ↔ (∫ y, u y ∂ν)=0 := by
change inner ℝ q u = 0 ↔ _
rw [hq]
have hInv (u : H0) : T u ∈ H0 :=
(hH0 _).mpr ((hPreserve u).trans ((hH0 _).mp u.property))
let T0 : H0 →L[ℝ] H0 := (T.comp H0.subtypeL).codRestrict H0 hInv
have hT0 (u : H0) : (T0 u : Lp ℝ 2 ν)=T u := rfl
have hT0s : IsSelfAdjoint T0 := by
apply ContinuousLinearMap.isSelfAdjoint_iff_isSymmetric.mpr
intro u v
exact hTs.isSymmetric (u : Lp ℝ 2 ν) (v : Lp ℝ 2 ν)
have hTn (u : Lp ℝ 2 ν) : ‖T u‖ ≤ ‖u‖ := (hAll u).2.2.1
have hT0n (u : H0) : ‖T0 u‖ ≤ ‖u‖ := hTn u
have hDef (u : Lp ℝ 2 ν) : inner ℝ (((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T) u) u = ‖u‖^2-‖T u‖^2 := by
simp only [ContinuousLinearMap.sub_apply, ContinuousLinearMap.one_apply,
ContinuousLinearMap.mul_apply, inner_sub_left]
have hs : inner ℝ (T (T u)) u = inner ℝ (T u) (T u) := hTs.isSymmetric (T u) u
rw [hs, real_inner_self_eq_norm_sq, real_inner_self_eq_norm_sq]
have hD : ((1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T).IsPositive := by
apply (ContinuousLinearMap.isPositive_iff' _).mpr
refine ⟨((IsSelfAdjoint.one (Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)).sub (by simpa only [pow_two] using hTs.pow 2)),?_⟩
intro u
rw [hDef]
exact sub_nonneg.mpr ((sq_le_sq₀ (norm_nonneg _) (norm_nonneg _)).mpr (hTn u))
have hDef0 (u : H0) : inner ℝ (((1 : H0 →L[ℝ] H0)-T0*T0) u) u = ‖u‖^2-‖T0 u‖^2 := by
simp only [ContinuousLinearMap.sub_apply, ContinuousLinearMap.one_apply,
ContinuousLinearMap.mul_apply, inner_sub_left]
have hs : inner ℝ (T0 (T0 u)) u = inner ℝ (T0 u) (T0 u) := hT0s.isSymmetric (T0 u) u
rw [hs, real_inner_self_eq_norm_sq, real_inner_self_eq_norm_sq]
have hD0 : ((1 : H0 →L[ℝ] H0)-T0*T0).IsPositive := by
apply (ContinuousLinearMap.isPositive_iff' _).mpr
refine ⟨(IsSelfAdjoint.one (H0 →L[ℝ] H0)).sub (by simpa only [pow_two] using hT0s.pow 2),?_⟩
intro u
rw [hDef0]
exact sub_nonneg.mpr ((sq_le_sq₀ (norm_nonneg _) (norm_nonneg _)).mpr (hT0n u))
have hqa : (q : E → ℝ) =ᵐ[ν] (fun _ => (1 : ℝ)) :=
Lp.coeFn_const (α:=E) (μ:=ν) (p:=(2 : ℝ≥0∞)) (c:=(1 : ℝ))
refine ⟨hμ,hJ,hν,S,hS,hSd,hSc,hSf,hSs,U,hU,hUi,hUs,M,hM,T,hTs,?_,
q,hqa,hTq,hq,?_⟩
· intro u
exact ⟨(hAll u).1,(hAll u).2.1,hTn u,(hAll u).2.2.2.1,hPreserve u⟩
· refine ⟨hH0,hD,?_,hDef,T0,hT0,hT0s,hT0n,hD0,?_,hDef0⟩
· simp only [ContinuousLinearMap.sub_apply,ContinuousLinearMap.one_apply,
ContinuousLinearMap.mul_apply,hTq,sub_self]
· intro u
rfl
end
end AutoSamplingTheory.ExampleCases.ProximalBPS.CenteredDefectOperator
#print axioms AutoSamplingTheory.ExampleCases.ProximalBPS.CenteredDefectOperator.actual_centered_selfadjoint_defectSource assumptions versus formal assumptions
| Source | Actual Lean | Difference kind | Why it matters |
|---|---|---|---|
| Finite Euclidean real base and source standing C2, global lower/upper Hessian bounds and positive capped η. | E is a finite-dimensional real Hilbert Borel space with canonical volume; rank zero is an explicit extension of the source Euclidean convention. V:E→ℝ is C²; 0<α≤β; α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v; η>0 and βη≤1. μ=volume.tilted(−V), J=Law(X,X+√ηZ) for independent X∼μ and Z∼N(0,I), and ν=J.snd. Finite dimensionality of E does not imply finite dimensionality of L²(ν). | generalization | Original analytic/step hypotheses retained. Finite real Hilbert/Borel formulation and rank-zero extension are explicit; no finite-dimensional L2 or Nontrivial premise. |
| Actual normalized augmentation and reflected conditional kernel/operator. | μ,J,ν,Λ,S,U,M,T and all Markov/disintegration/stationarity witnesses are produced under original inputs; S has the every-y displayed normalized density. | same | No supplied law/operator certificates; measurability, integrability and normalization come from actual55 and true marginal/disintegration. |
| Constant/mean-zero real L2 domain and squared defect precursor to Γ. | q is AE1, the full H0 is ker inner(q); T0 is the actual restriction and D0 the restricted squared defect. The consumer proves exact rho/delta and IsUnit D0 on H0. | same | A background completion for the actual paper consumer. Closedness/completeness and δ>0 are derived internally; no new public regularity/centering/coercivity premise. |
| Ordinary let abbreviation H0 and operator identity notation. | Explicit typed operator identities and exact inline ker inner(q) in public header; local H0 remains that definition in proof. | API-limitation | Two separately reviewed definitionally equal syntax overlays fix Lean elaboration. Complete rfl equivalences and inverse byte reconstruction; no source/math correction. |
| Positive Γ/root and inverse/polar, weakH1, dynamics, mixing, implementation errors, costs and composition. | SAME actual55 T on L2(nu), selfadjoint/mean preserving/constant fixed, exact complete mean-zero restriction T0, full and centered positive squared defects; real Test uses actual58 rho/delta to prove IsUnit centered squared defect. No Gamma/root/polar/full weakH1/hypocoercivity/dynamics/main/implementation error/cost/composition/fullpaper/Goal admission. | unresolved | IsUnit of the centered squared defect is not construction of Γ or proof of any main theorem or query-cost statement. |
SAME actual55 T on L2(nu), selfadjoint/mean preserving/constant fixed, exact complete mean-zero restriction T0, full and centered positive squared defects; real Test uses actual58 rho/delta to prove IsUnit centered squared defect. No Gamma/root/polar/full weakH1/hypocoercivity/dynamics/main/implementation error/cost/composition/fullpaper/Goal admission.
Encoder–denoiser: accepted · equivalent-after-elaboration
Detected semantic differences
- domains: Finite real Hilbert/Borel model is explicit Euclidean elaboration; rank-zero case is a disclosed ASTIS extension, not claimed source text. L2 may be infinite-dimensional. — Independent native generalization nonblocking classification retained in runs/20261007-companion-priority/pbps-centered-defect59/source-review59/source.0.review.json
- objects: Explicit operator identity domains and exact inline kernel are definition notation only. Current entire statement independently checked; old syntax acceptance is not a source verdict substitute. — Independent native API-limitation nonblocking classification retained in runs/20261007-companion-priority/pbps-centered-defect59/source-review59/source.0.review.json
- conclusion: Actual selfadjointness/means/constant/closed restriction and positive scalar squared defects complete source background; not printed joint B5 identity. — Independent native source-implicit nonblocking classification retained in runs/20261007-companion-priority/pbps-centered-defect59/source-review59/source.0.review.json
- scopes: Gamma positive root/Loewner inverse/polar/fullweakH1/dynamics/main/errors/cost/composition remain outside admitted scope. Printed B5 source edges retained independently; pending whole-paper obligations are not failures of this scoped background statement. — Independent native unresolved nonblocking classification retained in runs/20261007-companion-priority/pbps-centered-defect59/source-review59/source.0.review.json
A generalization is not a source correction. Proposed missing conditions require separate independent repair review. No proposed repair silently changes the original theorem.
Scope and omitted-condition boundaries
- SAME actual55 T on L2(nu), selfadjoint/mean preserving/constant fixed, exact complete mean-zero restriction T0, full and centered positive squared defects; real Test uses actual58 rho/delta to prove IsUnit centered squared defect. No Gamma/root/polar/full weakH1/hypocoercivity/dynamics/main/implementation error/cost/composition/fullpaper/Goal admission.
Sources, dependencies, and reuse
Source and reuse
Samplinglib parents called
AutoSamplingTheory.ExampleCases.ProximalBPS.L2MacroscopicMean.actual_macroscopic_l2_meanAutoSamplingTheory.TechnicalLemmas.Measure.L2Expectation.inner_one_eq_integral
Mathlib API called (external library)
- inner_condExpL2_left_eq_right
- LinearIsometry.inner_map_map
- Measure.disintegrate
- Measure.integral_compProd
- integral_map
- ContinuousLinearMap.isPositive_iff'
- ContinuousLinearMap.completeSpace_ker
Mathematical sources
- PBPS2609.06905v1 AppendixB B1-B5, D1-D2 real L2 stationarity/centering, C4/B15 squared-defect precursor; exact31regions/54items source inventory independently covered. — SAME actual55 T on L2(nu), selfadjoint/mean preserving/constant fixed, exact complete mean-zero restriction T0, full and centered positive squared defects; real Test uses actual58 rho/delta to prove IsUnit centered squared defect. No Gamma/root/polar/full weakH1/hypocoercivity/dynamics/main/implementation error/cost/composition/fullpaper/Goal admission.
Samplinglib prose is not a quotation or a source-equivalence certificate. Definitions and aliases are explained as constructions, not counted as new mathematical proofs.