Constraint estimates for bounded raw null inputs
ProvedOAI.CKSAngularGeometry.bounded_raw_CQLet be a compact set of scalar jet matrices with invertible values, and let , . There are and such that for every raw null input with metric jet in and , and with , weight rwgt and for , writing for coordinateQ of the deformed and original input, for coordinateZ, and for the corresponding coordinate energies:
The added quantity is controlled by the weight itself, so the estimate keeps its force where the activation weight is small.
Formal statement. In the scope of the preamble:
theorem bounded_raw_CQ {K : Set MatrixScalarJet} (hK : IsCompact K)
(hreg : ∀ q ∈ K, determinant (fun i k => (q i k).1) ≠ 0) (B A : ℝ) (hA : 0 ≤ A) :
∃ R₀ : ℝ, 1 ≤ R₀ ∧ ∃ C D : ℝ, 0 ≤ C ∧ 0 ≤ D ∧
∀ p : RawNullInput, rmat p.1 0 ∈ K → ‖p‖ ≤ B →
∀ r : ℝ, R₀ ≤ r → rz p.1=1/r → 0 ≤ rwgt p.1 →
(∀ i, i ≠ 0 → |p.1.1 i| ≤ A*rwgt p.1) →
|coordinateQ (rawMomentumInput (rawOriginal p.1))| ≤ D/r^3 ∧
|coordinateQ (rawMomentumInput p.1)-coordinateQ (rawMomentumInput (rawOriginal p.1))-
2*rwgt p.1/r^2| ≤ C*rwgt p.1/r^3 ∧
|(coordinateEnergy (rawNullMap p) r-coordinateEnergy (rawNullMap (rawNullOriginal p)) r)-
(coordinateQ (rawMomentumInput p.1)-coordinateQ (rawMomentumInput (rawOriginal p.1)))-
2*rwgt p.1/(r^3*Real.sqrt r)| ≤ C*rwgt p.1/r^4 ∧
(∀ a, |coordinateZ (rawMomentumInput (rawOriginal p.1)) a| ≤ D/r^2) ∧
(∀ a, |coordinateZ (rawMomentumInput p.1) a-
coordinateZ (rawMomentumInput (rawOriginal p.1)) a| ≤ C*rwgt p.1/r^2)
Formalization Note The statement is verbatim from lean/OAI/Geometry/Relativity/CKS/CollarConstraintBounded.lean, lines 16-60, in OpenAI's openai/math at commit adc7f12 (Apache-2.0), formalizing part of the construction in the preprint Area-controlled end replacement and the Bondi–Penrose inequality in the CKS class (OpenAI, September 27, 2026). It is a supporting lemma for OAI.CKSSourceExterior.area_controlled_end_replacement. The definitions it mentions are those of Definitions.Def_CKSBondiPenrose and Definitions.Def_CKSEndReplacementSupport.
import Mathlib import Definitions.Def_CKSBondiPenrose import Definitions.Def_CKSEndReplacementSupport namespace OAI noncomputable section namespace CKSAngularGeometry noncomputable section open CKSCalculus Set Filter open scoped Topology ContDiff NNReal Matrix.Norms.Elementwise
theorem bounded_raw_CQ {K : Set MatrixScalarJet} (hK : IsCompact K)
(hreg : ∀ q ∈ K, determinant (fun i k => (q i k).1) ≠ 0) (B A : ℝ) (hA : 0 ≤ A) :
∃ R₀ : ℝ, 1 ≤ R₀ ∧ ∃ C D : ℝ, 0 ≤ C ∧ 0 ≤ D ∧
∀ p : RawNullInput, rmat p.1 0 ∈ K → ‖p‖ ≤ B →
∀ r : ℝ, R₀ ≤ r → rz p.1=1/r → 0 ≤ rwgt p.1 →
(∀ i, i ≠ 0 → |p.1.1 i| ≤ A*rwgt p.1) →
|coordinateQ (rawMomentumInput (rawOriginal p.1))| ≤ D/r^3 ∧
|coordinateQ (rawMomentumInput p.1)-coordinateQ (rawMomentumInput (rawOriginal p.1))-
2*rwgt p.1/r^2| ≤ C*rwgt p.1/r^3 ∧
|(coordinateEnergy (rawNullMap p) r-coordinateEnergy (rawNullMap (rawNullOriginal p)) r)-
(coordinateQ (rawMomentumInput p.1)-coordinateQ (rawMomentumInput (rawOriginal p.1)))-
2*rwgt p.1/(r^3*Real.sqrt r)| ≤ C*rwgt p.1/r^4 ∧
(∀ a, |coordinateZ (rawMomentumInput (rawOriginal p.1)) a| ≤ D/r^2) ∧
(∀ a, |coordinateZ (rawMomentumInput p.1) a-
coordinateZ (rawMomentumInput (rawOriginal p.1)) a| ≤ C*rwgt p.1/r^2) := by
sorry
end
end CKSAngularGeometry
end
end OAI