Actual PBPS centered root order and bounded inverse
AutoSamplingTheory.ExampleCases.ProximalBPS.CenteredRootOrderInverse.actual_centered_root_order_inverse · theorem · Teaching coverage
Mathematical statement
Let E be a finite-dimensional real Hilbert Borel space with canonical volume, including the explicit rank-zero extension. Let V:E→ℝ be C², 0<α≤β, and assume α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v. Assume η>0 and βη≤1. Define μ(dx) proportional to exp(−V(x))dx, J as the law of (X,X+√η Z) for independent X~μ and Z~N(0,I), ν=J.snd, and Λ as the law of (Y,2X−Y) under J. These are probability laws. Put mY=comap(snd), H_P=L² classes measurable with respect to mY, P=i∘E[·|Y] and the canonical M:u↦u∘snd. Then H_P=ran(P), P is identity on H_P, and there exists an onto linear isometry e:L²(ν;ℝ)≃H_P with i e=M. There is a Markov kernel S whose every-state normalized law is S(y)=volume.tilted(x↦−V((y+x)/2)−‖y−x‖²/(8η)); Λ.IsCondKernel S and both Λ marginals equal ν. The same joint reflection F(x,y)=(x,2x−y) gives the involutive selfadjoint isometry U, with Uf=f∘F J-almost everywhere for every f. There is a bounded selfadjoint T on the full real L²(ν), with ‖Tu‖≤‖u‖, Tu(y)=∫u(x)S(y,dx) ν-almost everywhere for each u, and preserved integral. On H_P put A=PUP restricted via i and orthogonal projection, and B=(I_J−P)UPi:H_P→L²(J). Then A=eTe⁻¹ is selfadjoint and contractive, PB=0. There is a bounded positive operator Γ on the real scalar-valued L² space with Γ²=I−T². For the SAME transported Γ_P=eΓe⁻¹, positivity holds and Γ_P²=I_H_P−A²=B*B. There is q∈L²(ν;ℝ) equal to one ν-almost everywhere, with Tq=q and ⟨q,u⟩=∫u dν for every u. Set q_P=e q and H_P^0=ker⟨q_P,·⟩, with its inherited Hilbert structure. Membership is exactly zero ν-mean after e⁻¹. The SAME Γ_P annihilates q_P. Put γ=2√(αη)/(1+αη)>0. There exists Γ_0:H_P^0→H_P^0 equal under inclusion to the restriction of Γ_P, positive with Γ_0−γ I positive. Γ_0 is a unit in the algebra of bounded real operators. There exists a bounded real Inv on this SAME centered space with Inv Γ_0=Γ_0 Inv=I and ‖Inv‖≤1/γ. All probability, normalization, range, root, centering, spectral-gap, unit and inverse facts are internally derived from the original inputs; none is an additional public premise. αη=1 and rank-zero E remain legal. No inverse on full H_P is asserted.
Lean statement · actual_centered_root_order_inverse
Let E be a finite-dimensional real Hilbert Borel space with canonical volume, including the explicit rank-zero extension. Let V:E→ℝ be C², 0<α≤β, and assume α‖v‖²≤D²V(x)[v,v]≤β‖v‖² for every x,v. Assume η>0 and βη≤1. Define μ(dx) proportional to exp(−V(x))dx, J as the law of (X,X+√η Z) for independent X~μ and Z~N(0,I), ν=J.snd, and Λ as the law of (Y,2X−Y) under J. These are probability laws. Put mY=comap(snd), H_P=L² classes measurable with respect to mY, P=i∘E[·|Y] and the canonical M:u↦u∘snd. Then H_P=ran(P), P is identity on H_P, and there exists an onto linear isometry e:L²(ν;ℝ)≃H_P with i e=M. There is a Markov kernel S whose every-state normalized law is S(y)=volume.tilted(x↦−V((y+x)/2)−‖y−x‖²/(8η)); Λ.IsCondKernel S and both Λ marginals equal ν. The same joint reflection F(x,y)=(x,2x−y) gives the involutive selfadjoint isometry U, with Uf=f∘F J-almost everywhere for every f. There is a bounded selfadjoint T on the full real L²(ν), with ‖Tu‖≤‖u‖, Tu(y)=∫u(x)S(y,dx) ν-almost everywhere for each u, and preserved integral. On H_P put A=PUP restricted via i and orthogonal projection, and B=(I_J−P)UPi:H_P→L²(J). Then A=eTe⁻¹ is selfadjoint and contractive, PB=0. There is a bounded positive operator Γ on the real scalar-valued L² space with Γ²=I−T². For the SAME transported Γ_P=eΓe⁻¹, positivity holds and Γ_P²=I_H_P−A²=B*B. There is q∈L²(ν;ℝ) equal to one ν-almost everywhere, with Tq=q and ⟨q,u⟩=∫u dν for every u. Set q_P=e q and H_P^0=ker⟨q_P,·⟩, with its inherited Hilbert structure. Membership is exactly zero ν-mean after e⁻¹. The SAME Γ_P annihilates q_P. Put γ=2√(αη)/(1+αη)>0. There exists Γ_0:H_P^0→H_P^0 equal under inclusion to the restriction of Γ_P, positive with Γ_0−γ I positive. Γ_0 is a unit in the algebra of bounded real operators. There exists a bounded real Inv on this SAME centered space with Inv Γ_0=Γ_0 Inv=I and ‖Inv‖≤1/γ. All probability, normalization, range, root, centering, spectral-gap, unit and inverse facts are internally derived from the original inputs; none is an additional public premise. αη=1 and rank-zero E remain legal. No inverse on full H_P is asserted.
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_root_order_inverse
{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 mY := MeasurableSpace.comap Prod.snd (inferInstance : MeasurableSpace E)
letI : MeasurableSpace (E × E) := Prod.instMeasurableSpace
letI : Fact (mY ≤ (inferInstance : MeasurableSpace (E × E))) :=
⟨measurable_snd.comap_le⟩
let HP := lpMeas ℝ ℝ mY 2 J
let P : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J :=
HP.subtypeL ∘L condExpL2 ℝ ℝ (μ := J) measurable_snd.comap_le
let hp : MeasurePreserving (Prod.snd : E × E → E) J ν := ⟨measurable_snd,rfl⟩
let M : Lp ℝ 2 ν →ₗᵢ[ℝ] Lp ℝ 2 J := Lp.compMeasurePreservingₗᵢ ℝ Prod.snd hp
IsProbabilityMeasure μ ∧ IsProbabilityMeasure J ∧ IsProbabilityMeasure ν ∧
HP = P.toLinearMap.range ∧
(∀ f : HP, P (f : Lp ℝ 2 J) = f) ∧
∃ 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 = ν ∧
∃ e : Lp ℝ 2 ν ≃ₗᵢ[ℝ] HP,
(∀ u : Lp ℝ 2 ν, (e u : Lp ℝ 2 J) = M u) ∧
∃ U : Lp ℝ 2 J →ₗᵢ[ℝ] Lp ℝ 2 J,
(∀ g : Lp ℝ 2 J, (U g : E × E → ℝ) =ᵐ[J] g ∘ F) ∧
Function.Involutive U ∧ IsSelfAdjoint U.toContinuousLinearMap ∧
∃ T : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν,
IsSelfAdjoint T ∧
(∀ u : Lp ℝ 2 ν,
‖T u‖ ≤ ‖u‖ ∧
(T u : E → ℝ) =ᵐ[ν] (fun y => ∫ x, u x ∂S y) ∧
(∫ y, T u y ∂ν) = ∫ y, u y ∂ν) ∧
let A : HP →L[ℝ] HP :=
HP.orthogonalProjectionOnto ∘L U.toContinuousLinearMap ∘L HP.subtypeL
let B : HP →L[ℝ] Lp ℝ 2 J :=
(((1 : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J)-P)*U.toContinuousLinearMap*P) ∘L HP.subtypeL
A = e.conjStarAlgEquiv T ∧ IsSelfAdjoint A ∧
(∀ f : HP, ‖A f‖ ≤ ‖f‖) ∧
(∀ f : HP, P (B f) = 0) ∧
∃ Γ : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν,
Γ.IsPositive ∧ Γ*Γ=(1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T ∧
let ΓP : HP →L[ℝ] HP := e.conjStarAlgEquiv Γ
ΓP.IsPositive ∧ ΓP*ΓP=(1 : HP →L[ℝ] HP)-A*A ∧
B.adjoint ∘L B = ΓP*ΓP ∧
∃ q : Lp ℝ 2 ν,
(q : E → ℝ) =ᵐ[ν] (fun _ => (1 : ℝ)) ∧ T q = q ∧
(∀ u : Lp ℝ 2 ν, inner ℝ q u = ∫ y, u y ∂ν) ∧
let qP : HP := e q
let HP0 := (innerSL ℝ qP).ker
letI : NormedAddCommGroup HP0 := HP0.normedAddCommGroup
letI : InnerProductSpace ℝ HP0 := HP0.innerProductSpace
let γ : ℝ := 2*Real.sqrt ((α : ℝ)*η)/(1+(α : ℝ)*η)
(∀ f : HP, f ∈ HP0 ↔ (∫ y, (e.symm f) y ∂ν) = 0) ∧
ΓP qP = 0 ∧ 0 < γ ∧
∃ ΓP0 : HP0 →L[ℝ] HP0,
(∀ f : HP0, (ΓP0 f : HP) = ΓP (f : HP)) ∧
ΓP0.IsPositive ∧ (ΓP0-γ • (1 : HP0 →L[ℝ] HP0)).IsPositive ∧
IsUnit ΓP0 ∧
∃ Inv : HP0 →L[ℝ] HP0,
Inv*ΓP0=(1 : HP0 →L[ℝ] HP0) ∧
ΓP0*Inv=(1 : HP0 →L[ℝ] HP0) ∧ ‖Inv‖ ≤ 1/γProof roadmap
- 1Keep the actual objects and identify the constant kernel
Reuse the exact accepted actual canonical laws, normalized kernel, reflection, macroscopic range and positive root. Mean preservation and selfadjointness yield T1=1. Transporting the accepted macro energy identity gives ‖Γu‖²=‖u‖²−‖Tu‖², so Γ1=0.
- 2Join the same gradient graph and same conditional mean
The actual rough mean-gradient and Gaussian marginal Poincaré producers have the same compact smooth-gradient graph. Graph extensionality identifies their closures. Their every-observable AE kernel actions identify the produced T with the SAME reflected scalar T used by Γ.
- 3Derive the sharp centered contraction and exact constant
For centered u, Poincaré gives α‖Tu‖²≤(1+αη)‖Ku‖². The rough gradient estimate bounds η‖Ku‖² by (1−αη)²(‖u‖²−‖Tu‖²)/(4(1+αη)). Combining yields ‖Tu‖≤ρ‖u‖ with ρ=(1−αη)/(1+αη); γ²=1−ρ², including αη=1.
- 4Use the scalar constant-complement projection
Define Qu=u−⟨q,u⟩q. Since ‖q‖=1, Q is positive, selfadjoint and idempotent, and Qu is centered. Γq=0 gives ΓQu=Γu. Energy and centered contraction imply the full scalar-space square order Γ²≥γ²Q; no CFC instance is imposed on the centered subtype.
- 5Take positive square order on the full scalar space
The shared auxiliary result applies to the positive operators γQ and Γ. Since (γQ)²=γ²Q, it gives Γ≥γQ. This is the operator-order step; a norm lower bound alone is not substituted for it.
- 6Restrict the same transported root to the exact centered space
The isometry identifies H_P^0 with zero ν-mean. Γ_P q_P=0 and selfadjointness preserve that closed kernel. Restrict Γ_P with inherited norm and inner product to Γ_0, and transport Γ≥γQ to Γ_0≥γI.
- 7Derive an actual bounded inverse
The quadratic bound gives γ‖f‖²≤⟨Γ_0f,f⟩. With γ>0, the complete-Hilbert coercivity result proves that Γ_0 is a unit; injectivity, closed range and dense range are internally established by that theorem.
- 8Prove both cancellations and the accurate inverse norm
Take the inverse of the derived unit and prove both products equal the identity by application congruence. Cauchy–Schwarz gives γ‖f‖≤‖Γ_0f‖; substitute f=Inv g to obtain ‖Inv‖≤1/γ. The full-space constant kernel is kept separate.
- 9Exercise the normalized actual leakage consumer
The Test starts from the original potential/Hessian/step inputs. The SAME Gram identity and Γ_0Inv=I give ‖B i_0 Inv f‖=‖f‖, and PB=0 puts this actual leakage in ker P. No gap, unit, inverse, isometry or expected-cost premise is supplied. This Test does not publish a full polar/onto theorem.
Full assumptions and notation
All objects and hypotheses
- Finite-dimensional real Hilbert Borel base E with canonical volume, including the disclosed rank-zero extension; V is C²; 0<α≤β; both global Hessian bounds; η>0 and βη≤1.
- Canonical normalized laws/kernel, onto pullback e, SAME U/T, full and centered roots, exact centering, gap, unit and bounded inverse are conclusions. Conditional actions are per-observable AE. L² is not assumed finite-dimensional.
- γ=2√(αη)/(1+αη); the inverse acts only on H_P^0=ker⟨e1,·⟩ with inherited Hilbert structure; the legal endpoint αη=1 is retained.
Mathematical proof
1. Keep the actual objects and identify the constant kernel
Reuse the exact accepted actual canonical laws, normalized kernel, reflection, macroscopic range and positive root. Mean preservation and selfadjointness yield T1=1. Transporting the accepted macro energy identity gives ‖Γu‖²=‖u‖²−‖Tu‖², so Γ1=0.
Corresponding Lean step
have hBase := MacroscopicDefectRoot.actual_unique_positive_macroscopic_defect_root
(E:=E) (V:=V) (α:=α) (β:=β) (η:=η) hα hαβ hV hH hη hβη
dsimp only at hBase
rcases hBase with
⟨hμ,hJ,hν,hRange,hPf,S,hS,hSd,hSc,hSf,hSs,e,he,U,hU,hUi,hUs,
T,hTs,hAll,hAeq,hAs,hAn,hPB,Γ,hΓ,hΓSq,hΓP,hΓPSq,hGram,hEnergy,hUnique⟩
letI : IsProbabilityMeasure μ := hμ
letI : IsProbabilityMeasure J := hJ
letI : IsProbabilityMeasure ν := hν
let A : HP →L[ℝ] HP := HP.orthogonalProjectionOnto ∘L U.toContinuousLinearMap ∘L HP.subtypeL
let B : HP →L[ℝ] Lp ℝ 2 J :=
(((1 : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J)-P)*U.toContinuousLinearMap*P) ∘L HP.subtypeL
let ΓP : HP →L[ℝ] HP := e.conjStarAlgEquiv Γ
have hAeqLocal : A=e.conjStarAlgEquiv T := hAeq
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 hqa : (q : E → ℝ)=ᵐ[ν] (fun _ => (1 : ℝ)) :=
Lp.coeFn_const (α:=E) (μ:=ν) (p:=(2 : ℝ≥0∞)) (c:=(1 : ℝ))
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 ∂ν := (hAll u).2.2
_ = inner ℝ q u := (hq _).symm
have hqq : inner ℝ q q=1 := by
rw [hq,integral_congr_ae hqa]
simp
have hΓEnergy (u : Lp ℝ 2 ν) : ‖Γ u‖^2=‖u‖^2-‖T u‖^2 := by
have hs := (hEnergy (e u)).2
have hAction : A (e u)=e (T u) := by
have hh : A (e u)=(e.conjStarAlgEquiv T) (e u) :=
congrArg (fun C : HP →L[ℝ] HP => C (e u)) hAeqLocal
exact hh.trans (by simp only [LinearIsometryEquiv.conjStarAlgEquiv_apply_apply,e.symm_apply_apply])
change ‖(e.conjStarAlgEquiv Γ) (e u)‖^2=‖e u‖^2-‖A (e u)‖^2 at hs
simpa only [LinearIsometryEquiv.conjStarAlgEquiv_apply_apply,e.symm_apply_apply,
hAction,e.norm_map] using hs
have hΓq : Γ q=0 := by
have h : ‖Γ q‖^2=0 := by rw [hΓEnergy,hTq,sub_self]
exact norm_eq_zero.mp (by nlinarith [norm_nonneg (Γ q)])
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
2. Join the same gradient graph and same conditional mean
The actual rough mean-gradient and Gaussian marginal Poincaré producers have the same compact smooth-gradient graph. Graph extensionality identifies their closures. Their every-observable AE kernel actions identify the produced T with the SAME reflected scalar T used by Γ.
Corresponding Lean step
have hPIBase :=
AutoSamplingTheory.TechnicalLemmas.FunctionalInequalities.GaussianMarginalPoincare.actual_gaussian_marginal_centered_poincare
(E:=E) (V:=V) (α:=α) (β:=β) (η:=η) hα hαβ hV hH hη hβη
dsimp only at hPIBase
rcases hPIBase with ⟨_,G,_,hClose,hClosed,hGraph,hPI⟩
have hRoughBase := RoughMeanGradient.actual_rough_mean_gradient
(E:=E) (V:=V) (α:=α) (β:=β) (η:=η) hα hαβ hV hH hη hβη
dsimp only at hRoughBase
rcases hRoughBase with ⟨_,G',_,_,_,hGraph',Tr,K,hRough⟩
have hSameG : G'=G := LinearPMap.eq_of_eq_graph (by
ext p
rcases p with ⟨u,v⟩
exact (hGraph' u v).trans (hGraph u v).symm)
subst G'
have hSameT : Tr=T := by
apply ContinuousLinearMap.ext
intro u
apply Lp.ext
filter_upwards [(hRough u).2.2.1,(hAll u).2.1] with y hr ht
exact hr.trans ((congrArg (fun m : Measure E => ∫ x,u x ∂m) (hSd y)).symm.trans ht.symm)
subst Tr
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
3. Derive the sharp centered contraction and exact constant
For centered u, Poincaré gives α‖Tu‖²≤(1+αη)‖Ku‖². The rough gradient estimate bounds η‖Ku‖² by (1−αη)²(‖u‖²−‖Tu‖²)/(4(1+αη)). Combining yields ‖Tu‖≤ρ‖u‖ with ρ=(1−αη)/(1+αη); γ²=1−ρ², including αη=1.
Corresponding Lean step
have ha0 : 0 < (α : ℝ)*η := mul_pos hα hη
have ha1 : (α : ℝ)*η ≤ 1 :=
(mul_le_mul_of_nonneg_right (by exact_mod_cast hαβ) hη.le).trans hβη
have hd : 0 < 1+(α : ℝ)*η := by positivity
let ρ : ℝ := (1-(α : ℝ)*η)/(1+(α : ℝ)*η)
let γ : ℝ := 2*Real.sqrt ((α : ℝ)*η)/(1+(α : ℝ)*η)
have hρ : 0 ≤ ρ := div_nonneg (sub_nonneg.mpr ha1) hd.le
have hγ : 0 < γ := by dsimp [γ]; positivity
have hγSq : γ^2=1-ρ^2 := by
dsimp [γ,ρ]
rw [div_pow,mul_pow,Real.sq_sqrt ha0.le]
field_simp [ne_of_gt hd]
ring
have hCon (u : Lp ℝ 2 ν) (hu : (∫ y,u y ∂ν)=0) : ‖T u‖ ≤ ρ*‖u‖ := by
obtain ⟨hPair,_,_,_,hSharp,_⟩ := hRough u
let z : G.closure.domain := ⟨T u,G.closure.mem_domain_of_mem_graph hPair⟩
have hz : (∫ x,(z : Lp ℝ 2 ν) x ∂ν)=0 := (hAll u).2.2.trans hu
have hK : G.closure z=K u := G.closure.mem_graph_snd_inj (G.closure.mem_graph z) hPair rfl
have hC3 := hPI z hz
change ((α : ℝ)/(1+(α : ℝ)*η))*‖T u‖^2 ≤ ‖G.closure z‖^2 at hC3
rw [hK] at hC3
have hP : (α : ℝ)*‖T u‖^2 ≤ (1+(α : ℝ)*η)*‖K u‖^2 := by
calc
_ ≤ ‖K u‖^2*(1+(α : ℝ)*η) :=
(div_le_iff₀ hd).mp (by simpa only [div_mul_eq_mul_div] using hC3)
_ = _ := mul_comm _ _
have hs : η*‖K u‖^2 ≤
((1-(α : ℝ)*η)^2*(‖u‖^2-‖T u‖^2))/(4*(1+(α : ℝ)*η)) := by
simpa only [div_mul_eq_mul_div] using hSharp
have hs' := (le_div_iff₀ (show 0<4*(1+(α : ℝ)*η) from by positivity)).mp hs
have hSharp' : 4*(1+(α : ℝ)*η)*η*‖K u‖^2 ≤
(1-(α : ℝ)*η)^2*(‖u‖^2-‖T u‖^2) := by nlinarith [hs']
have hSq : (1+(α : ℝ)*η)^2*‖T u‖^2 ≤ (1-(α : ℝ)*η)^2*‖u‖^2 := by
nlinarith [mul_le_mul_of_nonneg_left hP (show 0≤4*η from by positivity)]
have hSq' : ‖T u‖^2 ≤ (ρ*‖u‖)^2 := by
dsimp [ρ]
rw [mul_pow,div_pow,div_mul_eq_mul_div]
apply (le_div_iff₀ (sq_pos_of_pos hd)).2
nlinarith [hSq]
exact (sq_le_sq₀ (norm_nonneg _) (mul_nonneg hρ (norm_nonneg _))).mp hSq'
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
4. Use the scalar constant-complement projection
Define Qu=u−⟨q,u⟩q. Since ‖q‖=1, Q is positive, selfadjoint and idempotent, and Qu is centered. Γq=0 gives ΓQu=Γu. Energy and centered contraction imply the full scalar-space square order Γ²≥γ²Q; no CFC instance is imposed on the centered subtype.
Corresponding Lean step
let Q : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν := 1-(innerSL ℝ q).smulRight q
have hQ (u : Lp ℝ 2 ν) : Q u=u-inner ℝ q u • q := rfl
have hQmean (u : Lp ℝ 2 ν) : inner ℝ q (Q u)=0 := by
rw [hQ,inner_sub_right,inner_smul_right,hqq]
simp
have hDecomp (u : Lp ℝ 2 ν) : u=Q u+inner ℝ q u • q := by rw [hQ];abel
have hQself : IsSelfAdjoint Q := by
apply ContinuousLinearMap.isSelfAdjoint_iff_isSymmetric.mpr
intro u v
change inner ℝ (Q u) v=inner ℝ u (Q v)
simp only [hQ,inner_sub_left,inner_sub_right,inner_smul_left,inner_smul_right,
starRingEnd_apply,star_trivial]
rw [real_inner_comm q u]
ring
have hQinner (u : Lp ℝ 2 ν) : inner ℝ (Q u) u=‖Q u‖^2 := by
nth_rw 2 [hDecomp u]
rw [inner_add_right,inner_smul_right,real_inner_comm q (Q u),hQmean]
simp [real_inner_self_eq_norm_sq]
have hQpos : Q.IsPositive := (ContinuousLinearMap.isPositive_iff' Q).mpr
⟨hQself,fun u => by rw [hQinner];positivity⟩
have hQsq : Q*Q=Q := by
apply ContinuousLinearMap.ext
intro u
change Q (Q u)=Q u
rw [hQ (Q u),hQmean,zero_smul,sub_zero]
have hΓQ (u : Lp ℝ 2 ν) : Γ (Q u)=Γ u := by rw [hQ,map_sub,map_smul,hΓq,smul_zero,sub_zero]
have hSquare : (Γ*Γ-(γ • Q)*(γ • Q)).IsPositive := by
apply (ContinuousLinearMap.isPositive_iff' _).mpr
refine ⟨(by simpa only [pow_two] using (hΓ.isSelfAdjoint.pow 2).sub ((hQpos.smul_of_nonneg hγ.le).isSelfAdjoint.pow 2)),?_⟩
intro u
have hc := hCon (Q u) (by rw [← hq,hQmean])
have hcSq : ‖T (Q u)‖^2 ≤ (ρ*‖Q u‖)^2 :=
(sq_le_sq₀ (norm_nonneg _) (mul_nonneg hρ (norm_nonneg _))).mpr hc
have he : inner ℝ ((Γ*Γ) u) u=‖Γ u‖^2 := by
change inner ℝ (Γ (Γ u)) u=_
have hs : inner ℝ (Γ (Γ u)) u=inner ℝ (Γ u) (Γ u) := hΓ.inner_left_eq_inner_right (Γ u) u
rw [hs,real_inner_self_eq_norm_sq]
have hm : (γ • Q)*(γ • Q)=(γ*γ) • Q := by
rw [smul_mul_smul_comm,hQsq]
rw [ContinuousLinearMap.sub_apply,inner_sub_left,he,hm,
ContinuousLinearMap.smul_apply,inner_smul_left,hQinner]
rw [← hΓQ u,hΓEnergy,← pow_two γ,hγSq]
simp only [starRingEnd_apply,star_trivial]
nlinarith only [hcSq]
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
5. Take positive square order on the full scalar space
The shared auxiliary result applies to the positive operators γQ and Γ. Since (γQ)²=γ²Q, it gives Γ≥γQ. This is the operator-order step; a norm lower bound alone is not substituted for it.
Corresponding Lean step
have hOrder : (Γ-γ • Q).IsPositive :=
AutoSamplingTheory.TechnicalLemmas.Measure.L2RealSquareOrder.positive_square_order
ν (γ • Q) Γ (hQpos.smul_of_nonneg hγ.le) hΓ hSquare
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
6. Restrict the same transported root to the exact centered space
The isometry identifies H_P^0 with zero ν-mean. Γ_P q_P=0 and selfadjointness preserve that closed kernel. Restrict Γ_P with inherited norm and inner product to Γ_0, and transport Γ≥γQ to Γ_0≥γI.
Corresponding Lean step
let qP : HP := e q
let HP0 := (innerSL ℝ qP).ker
letI : NormedAddCommGroup HP0 := HP0.normedAddCommGroup
letI : InnerProductSpace ℝ HP0 := HP0.innerProductSpace
have hCenter (f : HP) : f ∈ HP0 ↔ (∫ y,(e.symm f) y ∂ν)=0 := by
change inner ℝ (e q) f=0 ↔ _
rw [← e.apply_symm_apply f, e.inner_map_map,hq,e.symm_apply_apply]
have hΓPq : ΓP qP=0 := by
change e (Γ (e.symm (e q)))=0
rw [e.symm_apply_apply,hΓq,map_zero]
have hInv (f : HP0) : ΓP (f : HP) ∈ HP0 := by
change inner ℝ qP (ΓP (f : HP))=0
have hs : inner ℝ qP (ΓP (f : HP))=inner ℝ (ΓP qP) (f : HP) :=
(hΓP.inner_left_eq_inner_right qP (f : HP)).symm
rw [hs,hΓPq,inner_zero_left]
let ΓP0 : HP0 →L[ℝ] HP0 := (ΓP.comp HP0.subtypeL).codRestrict HP0 hInv
have hΓP0 (f : HP0) : (ΓP0 f : HP)=ΓP (f : HP) := rfl
have hPos0 : ΓP0.IsPositive := by
refine ⟨?_,?_⟩
· intro f g
exact hΓP.isSymmetric (f : HP) (g : HP)
· intro f
exact hΓP.re_inner_nonneg_left (f : HP)
have hOrder0 : (ΓP0-γ • (1 : HP0 →L[ℝ] HP0)).IsPositive := by
apply (ContinuousLinearMap.isPositive_iff' _).mpr
refine ⟨hPos0.isSelfAdjoint.sub ((ContinuousLinearMap.isPositive_one).smul_of_nonneg hγ.le).isSelfAdjoint,?_⟩
intro f
let u : Lp ℝ 2 ν := e.symm (f : HP)
have hu : inner ℝ q u=0 := by rw [hq];exact (hCenter _).mp f.property
have hQu : Q u=u := by rw [hQ,hu,zero_smul,sub_zero]
have h := hOrder.inner_nonneg_left u
simp only [ContinuousLinearMap.sub_apply,ContinuousLinearMap.smul_apply,
ContinuousLinearMap.one_apply,inner_sub_left,inner_smul_left,hQu] at h ⊢
have hInner : inner ℝ (ΓP0 f) f=inner ℝ (Γ u) u := by
change inner ℝ (ΓP (f : HP)) (f : HP)=_
change inner ℝ (e (Γ u)) (f : HP)=_
rw [← e.apply_symm_apply (f : HP),e.inner_map_map]
rw [hInner]
have hNorm : inner ℝ f f=inner ℝ u u := by
change inner ℝ (f : HP) (f : HP)=_
rw [← e.apply_symm_apply (f : HP),e.inner_map_map]
rw [hNorm]
exact h
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
7. Derive an actual bounded inverse
The quadratic bound gives γ‖f‖²≤⟨Γ_0f,f⟩. With γ>0, the complete-Hilbert coercivity result proves that Γ_0 is a unit; injectivity, closed range and dense range are internally established by that theorem.
Corresponding Lean step
have hCoerc (f : HP0) : γ*‖f‖^2 ≤ inner ℝ (ΓP0 f) f := by
have h := hOrder0.inner_nonneg_left f
simp only [ContinuousLinearMap.sub_apply,ContinuousLinearMap.smul_apply,
ContinuousLinearMap.one_apply,inner_sub_left,inner_smul_left,real_inner_self_eq_norm_sq,
starRingEnd_apply,star_trivial] at h
linarith
have hUnit : IsUnit ΓP0 := by
apply ContinuousLinearMap.isUnit_of_forall_le_norm_inner_map ΓP0 (c:=⟨γ,hγ.le⟩) hγ
intro f
have hnn : 0 ≤ inner ℝ (ΓP0 f) f := hPos0.inner_nonneg_left f
rw [Real.norm_eq_abs,abs_of_nonneg hnn,mul_comm]
exact hCoerc f
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
8. Prove both cancellations and the accurate inverse norm
Take the inverse of the derived unit and prove both products equal the identity by application congruence. Cauchy–Schwarz gives γ‖f‖≤‖Γ_0f‖; substitute f=Inv g to obtain ‖Inv‖≤1/γ. The full-space constant kernel is kept separate.
Corresponding Lean step
let Inv : HP0 →L[ℝ] HP0 := ↑(hUnit.unit⁻¹)
have hLeft : Inv*ΓP0=1 := by
exact (congrArg (fun C : HP0 →L[ℝ] HP0 => Inv*C) hUnit.unit_spec).symm.trans
(Units.inv_mul hUnit.unit)
have hRight : ΓP0*Inv=1 := by
exact (congrArg (fun C : HP0 →L[ℝ] HP0 => C*Inv) hUnit.unit_spec).symm.trans
(Units.mul_inv hUnit.unit)
have hNormCoerc (f : HP0) : γ*‖f‖ ≤ ‖ΓP0 f‖ := by
by_cases hf : f=0
· simp [hf]
· have hn : 0 < ‖f‖ := norm_pos_iff.mpr hf
have h := (hCoerc f).trans (by
calc inner ℝ (ΓP0 f) f ≤ ‖inner ℝ (ΓP0 f) f‖ := le_abs_self _
_ ≤ ‖ΓP0 f‖*‖f‖ := norm_inner_le_norm _ _)
nlinarith [h]
have hNormInv : ‖Inv‖ ≤ 1/γ := by
apply Inv.opNorm_le_bound (show 0≤1/γ from by positivity)
intro f
have h := hNormCoerc (Inv f)
have hc : ΓP0 (Inv f)=f := congrArg (fun C : HP0 →L[ℝ] HP0 => C f) hRight
rw [hc] at h
have hh : ‖Inv f‖ ≤ ‖f‖/γ := (le_div_iff₀ hγ).mpr (by simpa only [mul_comm] using h)
simpa only [one_div,div_eq_mul_inv,mul_comm,one_mul] using hh
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
9. Exercise the normalized actual leakage consumer
The Test starts from the original potential/Hessian/step inputs. The SAME Gram identity and Γ_0Inv=I give ‖B i_0 Inv f‖=‖f‖, and PB=0 puts this actual leakage in ker P. No gap, unit, inverse, isometry or expected-cost premise is supplied. This Test does not publish a full polar/onto theorem.
Corresponding Lean step
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 mY : MeasurableSpace (E × E) := MeasurableSpace.comap Prod.snd (inferInstance : MeasurableSpace E)
letI : MeasurableSpace (E × E) := Prod.instMeasurableSpace
letI : Fact (mY ≤ (inferInstance : MeasurableSpace (E × E))) := ⟨measurable_snd.comap_le⟩
let HP := lpMeas ℝ ℝ mY 2 J
letI : NormedAddCommGroup HP := HP.normedAddCommGroup
letI : InnerProductSpace ℝ HP := HP.innerProductSpace
let P : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J :=
HP.subtypeL ∘L condExpL2 ℝ ℝ (μ := J) measurable_snd.comap_le
have hBase := AutoSamplingTheory.ExampleCases.ProximalBPS.CenteredRootOrderInverse.actual_centered_root_order_inverse
(E:=E) (V:=V) (α:=α) (β:=β) (η:=η) hα hαβ hV hH hη hβη
dsimp only at hBase
rcases hBase with
⟨hμ,hJ,hν,hRange,hPf,S,hS,hSd,hSc,hSf,hSs,e,he,U,hU,hUi,hUs,
T,hTs,hAll,hAeq,hAs,hAn,hPB,Γ,hΓ,hΓSq,hΓP,hΓPSq,hGram,
q,hqa,hTq,hq,hCenter,hΓPq,hγ,ΓP0,hΓP0,hPos0,hOrder0,hUnit,
Inv,hLeft,hRight,hNormInv⟩
let A : HP →L[ℝ] HP := HP.orthogonalProjectionOnto ∘L U.toContinuousLinearMap ∘L HP.subtypeL
let B : HP →L[ℝ] Lp ℝ 2 J :=
(((1 : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J)-P)*U.toContinuousLinearMap*P) ∘L HP.subtypeL
let ΓP : HP →L[ℝ] HP := e.conjStarAlgEquiv Γ
let qP : HP := e q
let HP0 := (innerSL ℝ qP).ker
letI : NormedAddCommGroup HP0 := HP0.normedAddCommGroup
letI : InnerProductSpace ℝ HP0 := HP0.innerProductSpace
have hGramLocal : B.adjoint ∘L B=ΓP*ΓP := hGram
have hPosLocal : ΓP.IsPositive := hΓP
refine ⟨hμ,hJ,hν,hRange,hPf,S,hS,hSd,hSc,hSf,hSs,e,he,U,hU,hUi,hUs,T,hTs,hAll,
hAeq,hAs,hAn,hPB,Γ,hΓ,hΓSq,hΓP,hΓPSq,hGram,q,hqa,hTq,hq,hCenter,hΓPq,hγ,
ΓP0,hΓP0,hPos0,hOrder0,hUnit,Inv,hLeft,hRight,hNormInv,?_⟩
intro f
let g : HP0 := Inv f
have hg : ΓP0 g=f := congrArg (fun C : HP0 →L[ℝ] HP0 => C f) hRight
have hb := B.apply_norm_sq_eq_inner_adjoint_right (g : HP)
have hr := ΓP.apply_norm_sq_eq_inner_adjoint_right (g : HP)
rw [hGramLocal] at hb
rw [hPosLocal.isSelfAdjoint.adjoint_eq] at hr
have hNorm : ‖B (g : HP)‖=‖ΓP (g : HP)‖ :=
(sq_eq_sq₀ (norm_nonneg _) (norm_nonneg _)).mp (hb.trans hr.symm)
refine ⟨?_,hPB (g : HP)⟩
calc
‖B (HP0.subtypeL (Inv f))‖=‖ΓP (g : HP)‖ := hNorm
_ = ‖ΓP0 g‖ := congrArg (fun z : HP => ‖z‖) (hΓP0 g).symm
_ = ‖f‖ := congrArg (fun z : HP0 => ‖z‖) hg
Literal excerpt of the compiled declaration; preceding local definitions and proved facts remain in scope.
Lean verification
The exact proof begins folded immediately after the mathematical argument; the statement is folded beside the claim above.
Lean proof · actual_centered_root_order_inverse
Keep the actual objects and identify the constant kernel; Join the same gradient graph and same conditional mean; Derive the sharp centered contraction and exact constant; Use the scalar constant-complement projection; Take positive square order on the full scalar space; Restrict the same transported root to the exact centered space; Derive an actual bounded inverse; Prove both cancellations and the accurate inverse norm; Exercise the normalized actual leakage consumer
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_root_order_inverse
{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 mY := MeasurableSpace.comap Prod.snd (inferInstance : MeasurableSpace E)
letI : MeasurableSpace (E × E) := Prod.instMeasurableSpace
letI : Fact (mY ≤ (inferInstance : MeasurableSpace (E × E))) :=
⟨measurable_snd.comap_le⟩
let HP := lpMeas ℝ ℝ mY 2 J
let P : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J :=
HP.subtypeL ∘L condExpL2 ℝ ℝ (μ := J) measurable_snd.comap_le
let hp : MeasurePreserving (Prod.snd : E × E → E) J ν := ⟨measurable_snd,rfl⟩
let M : Lp ℝ 2 ν →ₗᵢ[ℝ] Lp ℝ 2 J := Lp.compMeasurePreservingₗᵢ ℝ Prod.snd hp
IsProbabilityMeasure μ ∧ IsProbabilityMeasure J ∧ IsProbabilityMeasure ν ∧
HP = P.toLinearMap.range ∧
(∀ f : HP, P (f : Lp ℝ 2 J) = f) ∧
∃ 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 = ν ∧
∃ e : Lp ℝ 2 ν ≃ₗᵢ[ℝ] HP,
(∀ u : Lp ℝ 2 ν, (e u : Lp ℝ 2 J) = M u) ∧
∃ U : Lp ℝ 2 J →ₗᵢ[ℝ] Lp ℝ 2 J,
(∀ g : Lp ℝ 2 J, (U g : E × E → ℝ) =ᵐ[J] g ∘ F) ∧
Function.Involutive U ∧ IsSelfAdjoint U.toContinuousLinearMap ∧
∃ T : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν,
IsSelfAdjoint T ∧
(∀ u : Lp ℝ 2 ν,
‖T u‖ ≤ ‖u‖ ∧
(T u : E → ℝ) =ᵐ[ν] (fun y => ∫ x, u x ∂S y) ∧
(∫ y, T u y ∂ν) = ∫ y, u y ∂ν) ∧
let A : HP →L[ℝ] HP :=
HP.orthogonalProjectionOnto ∘L U.toContinuousLinearMap ∘L HP.subtypeL
let B : HP →L[ℝ] Lp ℝ 2 J :=
(((1 : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J)-P)*U.toContinuousLinearMap*P) ∘L HP.subtypeL
A = e.conjStarAlgEquiv T ∧ IsSelfAdjoint A ∧
(∀ f : HP, ‖A f‖ ≤ ‖f‖) ∧
(∀ f : HP, P (B f) = 0) ∧
∃ Γ : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν,
Γ.IsPositive ∧ Γ*Γ=(1 : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν)-T*T ∧
let ΓP : HP →L[ℝ] HP := e.conjStarAlgEquiv Γ
ΓP.IsPositive ∧ ΓP*ΓP=(1 : HP →L[ℝ] HP)-A*A ∧
B.adjoint ∘L B = ΓP*ΓP ∧
∃ q : Lp ℝ 2 ν,
(q : E → ℝ) =ᵐ[ν] (fun _ => (1 : ℝ)) ∧ T q = q ∧
(∀ u : Lp ℝ 2 ν, inner ℝ q u = ∫ y, u y ∂ν) ∧
let qP : HP := e q
let HP0 := (innerSL ℝ qP).ker
letI : NormedAddCommGroup HP0 := HP0.normedAddCommGroup
letI : InnerProductSpace ℝ HP0 := HP0.innerProductSpace
let γ : ℝ := 2*Real.sqrt ((α : ℝ)*η)/(1+(α : ℝ)*η)
(∀ f : HP, f ∈ HP0 ↔ (∫ y, (e.symm f) y ∂ν) = 0) ∧
ΓP qP = 0 ∧ 0 < γ ∧
∃ ΓP0 : HP0 →L[ℝ] HP0,
(∀ f : HP0, (ΓP0 f : HP) = ΓP (f : HP)) ∧
ΓP0.IsPositive ∧ (ΓP0-γ • (1 : HP0 →L[ℝ] HP0)).IsPositive ∧
IsUnit ΓP0 ∧
∃ Inv : HP0 →L[ℝ] HP0,
Inv*ΓP0=(1 : HP0 →L[ℝ] HP0) ∧
ΓP0*Inv=(1 : HP0 →L[ℝ] HP0) ∧ ‖Inv‖ ≤ 1/γ := 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 mY : MeasurableSpace (E × E) := MeasurableSpace.comap Prod.snd (inferInstance : MeasurableSpace E)
letI : MeasurableSpace (E × E) := Prod.instMeasurableSpace
letI : Fact (mY ≤ (inferInstance : MeasurableSpace (E × E))) := ⟨measurable_snd.comap_le⟩
let HP := lpMeas ℝ ℝ mY 2 J
letI : NormedAddCommGroup HP := HP.normedAddCommGroup
letI : InnerProductSpace ℝ HP := HP.innerProductSpace
let P : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J :=
HP.subtypeL ∘L condExpL2 ℝ ℝ (μ := J) measurable_snd.comap_le
have hBase := MacroscopicDefectRoot.actual_unique_positive_macroscopic_defect_root
(E:=E) (V:=V) (α:=α) (β:=β) (η:=η) hα hαβ hV hH hη hβη
dsimp only at hBase
rcases hBase with
⟨hμ,hJ,hν,hRange,hPf,S,hS,hSd,hSc,hSf,hSs,e,he,U,hU,hUi,hUs,
T,hTs,hAll,hAeq,hAs,hAn,hPB,Γ,hΓ,hΓSq,hΓP,hΓPSq,hGram,hEnergy,hUnique⟩
letI : IsProbabilityMeasure μ := hμ
letI : IsProbabilityMeasure J := hJ
letI : IsProbabilityMeasure ν := hν
let A : HP →L[ℝ] HP := HP.orthogonalProjectionOnto ∘L U.toContinuousLinearMap ∘L HP.subtypeL
let B : HP →L[ℝ] Lp ℝ 2 J :=
(((1 : Lp ℝ 2 J →L[ℝ] Lp ℝ 2 J)-P)*U.toContinuousLinearMap*P) ∘L HP.subtypeL
let ΓP : HP →L[ℝ] HP := e.conjStarAlgEquiv Γ
have hAeqLocal : A=e.conjStarAlgEquiv T := hAeq
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 hqa : (q : E → ℝ)=ᵐ[ν] (fun _ => (1 : ℝ)) :=
Lp.coeFn_const (α:=E) (μ:=ν) (p:=(2 : ℝ≥0∞)) (c:=(1 : ℝ))
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 ∂ν := (hAll u).2.2
_ = inner ℝ q u := (hq _).symm
have hqq : inner ℝ q q=1 := by
rw [hq,integral_congr_ae hqa]
simp
have hΓEnergy (u : Lp ℝ 2 ν) : ‖Γ u‖^2=‖u‖^2-‖T u‖^2 := by
have hs := (hEnergy (e u)).2
have hAction : A (e u)=e (T u) := by
have hh : A (e u)=(e.conjStarAlgEquiv T) (e u) :=
congrArg (fun C : HP →L[ℝ] HP => C (e u)) hAeqLocal
exact hh.trans (by simp only [LinearIsometryEquiv.conjStarAlgEquiv_apply_apply,e.symm_apply_apply])
change ‖(e.conjStarAlgEquiv Γ) (e u)‖^2=‖e u‖^2-‖A (e u)‖^2 at hs
simpa only [LinearIsometryEquiv.conjStarAlgEquiv_apply_apply,e.symm_apply_apply,
hAction,e.norm_map] using hs
have hΓq : Γ q=0 := by
have h : ‖Γ q‖^2=0 := by rw [hΓEnergy,hTq,sub_self]
exact norm_eq_zero.mp (by nlinarith [norm_nonneg (Γ q)])
have hPIBase :=
AutoSamplingTheory.TechnicalLemmas.FunctionalInequalities.GaussianMarginalPoincare.actual_gaussian_marginal_centered_poincare
(E:=E) (V:=V) (α:=α) (β:=β) (η:=η) hα hαβ hV hH hη hβη
dsimp only at hPIBase
rcases hPIBase with ⟨_,G,_,hClose,hClosed,hGraph,hPI⟩
have hRoughBase := RoughMeanGradient.actual_rough_mean_gradient
(E:=E) (V:=V) (α:=α) (β:=β) (η:=η) hα hαβ hV hH hη hβη
dsimp only at hRoughBase
rcases hRoughBase with ⟨_,G',_,_,_,hGraph',Tr,K,hRough⟩
have hSameG : G'=G := LinearPMap.eq_of_eq_graph (by
ext p
rcases p with ⟨u,v⟩
exact (hGraph' u v).trans (hGraph u v).symm)
subst G'
have hSameT : Tr=T := by
apply ContinuousLinearMap.ext
intro u
apply Lp.ext
filter_upwards [(hRough u).2.2.1,(hAll u).2.1] with y hr ht
exact hr.trans ((congrArg (fun m : Measure E => ∫ x,u x ∂m) (hSd y)).symm.trans ht.symm)
subst Tr
have ha0 : 0 < (α : ℝ)*η := mul_pos hα hη
have ha1 : (α : ℝ)*η ≤ 1 :=
(mul_le_mul_of_nonneg_right (by exact_mod_cast hαβ) hη.le).trans hβη
have hd : 0 < 1+(α : ℝ)*η := by positivity
let ρ : ℝ := (1-(α : ℝ)*η)/(1+(α : ℝ)*η)
let γ : ℝ := 2*Real.sqrt ((α : ℝ)*η)/(1+(α : ℝ)*η)
have hρ : 0 ≤ ρ := div_nonneg (sub_nonneg.mpr ha1) hd.le
have hγ : 0 < γ := by dsimp [γ]; positivity
have hγSq : γ^2=1-ρ^2 := by
dsimp [γ,ρ]
rw [div_pow,mul_pow,Real.sq_sqrt ha0.le]
field_simp [ne_of_gt hd]
ring
have hCon (u : Lp ℝ 2 ν) (hu : (∫ y,u y ∂ν)=0) : ‖T u‖ ≤ ρ*‖u‖ := by
obtain ⟨hPair,_,_,_,hSharp,_⟩ := hRough u
let z : G.closure.domain := ⟨T u,G.closure.mem_domain_of_mem_graph hPair⟩
have hz : (∫ x,(z : Lp ℝ 2 ν) x ∂ν)=0 := (hAll u).2.2.trans hu
have hK : G.closure z=K u := G.closure.mem_graph_snd_inj (G.closure.mem_graph z) hPair rfl
have hC3 := hPI z hz
change ((α : ℝ)/(1+(α : ℝ)*η))*‖T u‖^2 ≤ ‖G.closure z‖^2 at hC3
rw [hK] at hC3
have hP : (α : ℝ)*‖T u‖^2 ≤ (1+(α : ℝ)*η)*‖K u‖^2 := by
calc
_ ≤ ‖K u‖^2*(1+(α : ℝ)*η) :=
(div_le_iff₀ hd).mp (by simpa only [div_mul_eq_mul_div] using hC3)
_ = _ := mul_comm _ _
have hs : η*‖K u‖^2 ≤
((1-(α : ℝ)*η)^2*(‖u‖^2-‖T u‖^2))/(4*(1+(α : ℝ)*η)) := by
simpa only [div_mul_eq_mul_div] using hSharp
have hs' := (le_div_iff₀ (show 0<4*(1+(α : ℝ)*η) from by positivity)).mp hs
have hSharp' : 4*(1+(α : ℝ)*η)*η*‖K u‖^2 ≤
(1-(α : ℝ)*η)^2*(‖u‖^2-‖T u‖^2) := by nlinarith [hs']
have hSq : (1+(α : ℝ)*η)^2*‖T u‖^2 ≤ (1-(α : ℝ)*η)^2*‖u‖^2 := by
nlinarith [mul_le_mul_of_nonneg_left hP (show 0≤4*η from by positivity)]
have hSq' : ‖T u‖^2 ≤ (ρ*‖u‖)^2 := by
dsimp [ρ]
rw [mul_pow,div_pow,div_mul_eq_mul_div]
apply (le_div_iff₀ (sq_pos_of_pos hd)).2
nlinarith [hSq]
exact (sq_le_sq₀ (norm_nonneg _) (mul_nonneg hρ (norm_nonneg _))).mp hSq'
let Q : Lp ℝ 2 ν →L[ℝ] Lp ℝ 2 ν := 1-(innerSL ℝ q).smulRight q
have hQ (u : Lp ℝ 2 ν) : Q u=u-inner ℝ q u • q := rfl
have hQmean (u : Lp ℝ 2 ν) : inner ℝ q (Q u)=0 := by
rw [hQ,inner_sub_right,inner_smul_right,hqq]
simp
have hDecomp (u : Lp ℝ 2 ν) : u=Q u+inner ℝ q u • q := by rw [hQ];abel
have hQself : IsSelfAdjoint Q := by
apply ContinuousLinearMap.isSelfAdjoint_iff_isSymmetric.mpr
intro u v
change inner ℝ (Q u) v=inner ℝ u (Q v)
simp only [hQ,inner_sub_left,inner_sub_right,inner_smul_left,inner_smul_right,
starRingEnd_apply,star_trivial]
rw [real_inner_comm q u]
ring
have hQinner (u : Lp ℝ 2 ν) : inner ℝ (Q u) u=‖Q u‖^2 := by
nth_rw 2 [hDecomp u]
rw [inner_add_right,inner_smul_right,real_inner_comm q (Q u),hQmean]
simp [real_inner_self_eq_norm_sq]
have hQpos : Q.IsPositive := (ContinuousLinearMap.isPositive_iff' Q).mpr
⟨hQself,fun u => by rw [hQinner];positivity⟩
have hQsq : Q*Q=Q := by
apply ContinuousLinearMap.ext
intro u
change Q (Q u)=Q u
rw [hQ (Q u),hQmean,zero_smul,sub_zero]
have hΓQ (u : Lp ℝ 2 ν) : Γ (Q u)=Γ u := by rw [hQ,map_sub,map_smul,hΓq,smul_zero,sub_zero]
have hSquare : (Γ*Γ-(γ • Q)*(γ • Q)).IsPositive := by
apply (ContinuousLinearMap.isPositive_iff' _).mpr
refine ⟨(by simpa only [pow_two] using (hΓ.isSelfAdjoint.pow 2).sub ((hQpos.smul_of_nonneg hγ.le).isSelfAdjoint.pow 2)),?_⟩
intro u
have hc := hCon (Q u) (by rw [← hq,hQmean])
have hcSq : ‖T (Q u)‖^2 ≤ (ρ*‖Q u‖)^2 :=
(sq_le_sq₀ (norm_nonneg _) (mul_nonneg hρ (norm_nonneg _))).mpr hc
have he : inner ℝ ((Γ*Γ) u) u=‖Γ u‖^2 := by
change inner ℝ (Γ (Γ u)) u=_
have hs : inner ℝ (Γ (Γ u)) u=inner ℝ (Γ u) (Γ u) := hΓ.inner_left_eq_inner_right (Γ u) u
rw [hs,real_inner_self_eq_norm_sq]
have hm : (γ • Q)*(γ • Q)=(γ*γ) • Q := by
rw [smul_mul_smul_comm,hQsq]
rw [ContinuousLinearMap.sub_apply,inner_sub_left,he,hm,
ContinuousLinearMap.smul_apply,inner_smul_left,hQinner]
rw [← hΓQ u,hΓEnergy,← pow_two γ,hγSq]
simp only [starRingEnd_apply,star_trivial]
nlinarith only [hcSq]
have hOrder : (Γ-γ • Q).IsPositive :=
AutoSamplingTheory.TechnicalLemmas.Measure.L2RealSquareOrder.positive_square_order
ν (γ • Q) Γ (hQpos.smul_of_nonneg hγ.le) hΓ hSquare
let qP : HP := e q
let HP0 := (innerSL ℝ qP).ker
letI : NormedAddCommGroup HP0 := HP0.normedAddCommGroup
letI : InnerProductSpace ℝ HP0 := HP0.innerProductSpace
have hCenter (f : HP) : f ∈ HP0 ↔ (∫ y,(e.symm f) y ∂ν)=0 := by
change inner ℝ (e q) f=0 ↔ _
rw [← e.apply_symm_apply f, e.inner_map_map,hq,e.symm_apply_apply]
have hΓPq : ΓP qP=0 := by
change e (Γ (e.symm (e q)))=0
rw [e.symm_apply_apply,hΓq,map_zero]
have hInv (f : HP0) : ΓP (f : HP) ∈ HP0 := by
change inner ℝ qP (ΓP (f : HP))=0
have hs : inner ℝ qP (ΓP (f : HP))=inner ℝ (ΓP qP) (f : HP) :=
(hΓP.inner_left_eq_inner_right qP (f : HP)).symm
rw [hs,hΓPq,inner_zero_left]
let ΓP0 : HP0 →L[ℝ] HP0 := (ΓP.comp HP0.subtypeL).codRestrict HP0 hInv
have hΓP0 (f : HP0) : (ΓP0 f : HP)=ΓP (f : HP) := rfl
have hPos0 : ΓP0.IsPositive := by
refine ⟨?_,?_⟩
· intro f g
exact hΓP.isSymmetric (f : HP) (g : HP)
· intro f
exact hΓP.re_inner_nonneg_left (f : HP)
have hOrder0 : (ΓP0-γ • (1 : HP0 →L[ℝ] HP0)).IsPositive := by
apply (ContinuousLinearMap.isPositive_iff' _).mpr
refine ⟨hPos0.isSelfAdjoint.sub ((ContinuousLinearMap.isPositive_one).smul_of_nonneg hγ.le).isSelfAdjoint,?_⟩
intro f
let u : Lp ℝ 2 ν := e.symm (f : HP)
have hu : inner ℝ q u=0 := by rw [hq];exact (hCenter _).mp f.property
have hQu : Q u=u := by rw [hQ,hu,zero_smul,sub_zero]
have h := hOrder.inner_nonneg_left u
simp only [ContinuousLinearMap.sub_apply,ContinuousLinearMap.smul_apply,
ContinuousLinearMap.one_apply,inner_sub_left,inner_smul_left,hQu] at h ⊢
have hInner : inner ℝ (ΓP0 f) f=inner ℝ (Γ u) u := by
change inner ℝ (ΓP (f : HP)) (f : HP)=_
change inner ℝ (e (Γ u)) (f : HP)=_
rw [← e.apply_symm_apply (f : HP),e.inner_map_map]
rw [hInner]
have hNorm : inner ℝ f f=inner ℝ u u := by
change inner ℝ (f : HP) (f : HP)=_
rw [← e.apply_symm_apply (f : HP),e.inner_map_map]
rw [hNorm]
exact h
have hCoerc (f : HP0) : γ*‖f‖^2 ≤ inner ℝ (ΓP0 f) f := by
have h := hOrder0.inner_nonneg_left f
simp only [ContinuousLinearMap.sub_apply,ContinuousLinearMap.smul_apply,
ContinuousLinearMap.one_apply,inner_sub_left,inner_smul_left,real_inner_self_eq_norm_sq,
starRingEnd_apply,star_trivial] at h
linarith
have hUnit : IsUnit ΓP0 := by
apply ContinuousLinearMap.isUnit_of_forall_le_norm_inner_map ΓP0 (c:=⟨γ,hγ.le⟩) hγ
intro f
have hnn : 0 ≤ inner ℝ (ΓP0 f) f := hPos0.inner_nonneg_left f
rw [Real.norm_eq_abs,abs_of_nonneg hnn,mul_comm]
exact hCoerc f
let Inv : HP0 →L[ℝ] HP0 := ↑(hUnit.unit⁻¹)
have hLeft : Inv*ΓP0=1 := by
exact (congrArg (fun C : HP0 →L[ℝ] HP0 => Inv*C) hUnit.unit_spec).symm.trans
(Units.inv_mul hUnit.unit)
have hRight : ΓP0*Inv=1 := by
exact (congrArg (fun C : HP0 →L[ℝ] HP0 => C*Inv) hUnit.unit_spec).symm.trans
(Units.mul_inv hUnit.unit)
have hNormCoerc (f : HP0) : γ*‖f‖ ≤ ‖ΓP0 f‖ := by
by_cases hf : f=0
· simp [hf]
· have hn : 0 < ‖f‖ := norm_pos_iff.mpr hf
have h := (hCoerc f).trans (by
calc inner ℝ (ΓP0 f) f ≤ ‖inner ℝ (ΓP0 f) f‖ := le_abs_self _
_ ≤ ‖ΓP0 f‖*‖f‖ := norm_inner_le_norm _ _)
nlinarith [h]
have hNormInv : ‖Inv‖ ≤ 1/γ := by
apply Inv.opNorm_le_bound (show 0≤1/γ from by positivity)
intro f
have h := hNormCoerc (Inv f)
have hc : ΓP0 (Inv f)=f := congrArg (fun C : HP0 →L[ℝ] HP0 => C f) hRight
rw [hc] at h
have hh : ‖Inv f‖ ≤ ‖f‖/γ := (le_div_iff₀ hγ).mpr (by simpa only [mul_comm] using h)
simpa only [one_div,div_eq_mul_inv,mul_comm,one_mul] using hh
exact ⟨hμ,hJ,hν,hRange,hPf,S,hS,hSd,hSc,hSf,hSs,e,he,U,hU,hUi,hUs,T,hTs,hAll,
hAeq,hAs,hAn,hPB,Γ,hΓ,hΓSq,hΓP,hΓPSq,hGram,q,hqa,hTq,hq,hCenter,hΓPq,hγ,
ΓP0,hΓP0,hPos0,hOrder0,hUnit,Inv,hLeft,hRight,hNormInv⟩
end
end AutoSamplingTheory.ExampleCases.ProximalBPS.CenteredRootOrderInverseSource assumptions versus formal assumptions
| Source | Actual Lean | Difference kind | Why it matters |
|---|---|---|---|
| Finite-dimensional real Hilbert Borel base E with canonical volume, including the disclosed rank-zero extension; V is C²; 0<α≤β; both global Hessian bounds; η>0 and βη≤1. | Finite-dimensional real Hilbert Borel base E with canonical volume, including the disclosed rank-zero extension; V is C²; 0<α≤β; both global Hessian bounds; η>0 and βη≤1. | same | Exact independently reviewed preproof statement; all implementation adapters remain internal. |
| Remaining paper results and actual-input expected costs. | Exact printed B15 centered positive-root order and internally derived bounded inverse on the SAME actual H_P^0, plus a genuine original-input Test showing normalized actual leakage preserves norm and lies in ker P. Full-joint inverse, completed polar map into the closed complement/onto claims, other B5, H1, B13/B14, event dynamics/nonexplosion/invariance/hypocoercivity/main mixing, implementation error, expected query costs and actual-input PBPS/SPHMC composition remain separate. | unresolved | This bounded edge is not the full paper or cost/composition theorem. |
Exact printed B15 centered positive-root order and internally derived bounded inverse on the SAME actual H_P^0, plus a genuine original-input Test showing normalized actual leakage preserves norm and lies in ker P. Full-joint inverse, completed polar map into the closed complement/onto claims, other B5, H1, B13/B14, event dynamics/nonexplosion/invariance/hypocoercivity/main mixing, implementation error, expected query costs and actual-input PBPS/SPHMC composition remain separate.
Encoder–denoiser: accepted · equivalent-after-elaboration
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
- Exact printed B15 centered positive-root order and internally derived bounded inverse on the SAME actual H_P^0, plus a genuine original-input Test showing normalized actual leakage preserves norm and lies in ker P. Full-joint inverse, completed polar map into the closed complement/onto claims, other B5, H1, B13/B14, event dynamics/nonexplosion/invariance/hypocoercivity/main mixing, implementation error, expected query costs and actual-input PBPS/SPHMC composition remain separate.
Sources, dependencies, and reuse
Source and reuse
Samplinglib parents called
AutoSamplingTheory.ExampleCases.ProximalBPS.MacroscopicDefectRoot.actual_unique_positive_macroscopic_defect_rootAutoSamplingTheory.ExampleCases.ProximalBPS.RoughMeanGradient.actual_rough_mean_gradientAutoSamplingTheory.TechnicalLemmas.FunctionalInequalities.GaussianMarginalPoincare.actual_gaussian_marginal_centered_poincareAutoSamplingTheory.ExampleCases.ProximalBPS.CenteredDefectOperator.actual_centered_selfadjoint_defectAutoSamplingTheory.TechnicalLemmas.Measure.L2RealComplexOperator.exists_positive_complex_liftAutoSamplingTheory.TechnicalLemmas.Measure.L2RealSquareOrder.positive_square_order
Mathlib API called (external library)
- CFC.sqrt_le_sqrt
- CFC.sqrt_unique
- ContinuousLinearMap.isUnit_of_forall_le_norm_inner_map
- ContinuousLinearMap.opNorm_le_bound
Mathematical sources
- PBPS arXiv2609.06905v1 AppendixB15, genuine next B16 consumer; C2/C3/C4; exact original C2 and both Hessian bounds, eta cap; D1 real Hilbert order. — Exact printed B15 centered positive-root order and internally derived bounded inverse on the SAME actual H_P^0, plus a genuine original-input Test showing normalized actual leakage preserves norm and lies in ker P. Full-joint inverse, completed polar map into the closed complement/onto claims, other B5, H1, B13/B14, event dynamics/nonexplosion/invariance/hypocoercivity/main mixing, implementation error, expected query costs and actual-input PBPS/SPHMC composition remain separate.
Samplinglib prose is not a quotation or a source-equivalence certificate. Definitions and aliases are explained as constructions, not counted as new mathematical proofs.