Uniform DEC transfer for thin collar fields
ProvedOAI.CKSAngularGeometry.bounded_thin_field_map_DECFix a compact set of matrix jets whose value matrices satisfy and , and constants . The theorem produces a radius with the following property. Let be a parameter vector with , let be collar coefficient fields satisfying the thin bounds ThinBoundedAt B at a point , with the jet of the angular metric at in , and let with , and for . If the angular matrices of the deformed and original raw inputs are symmetric, then the coordinate dominant energy inequality for the original input implies it for the deformed input:
The parameters in other than are controlled by the single activation weight . This is the field-level form of the collar estimate that keeps DEC when the leaves are made round.
Formal statement. In the scope of the preamble:
theorem bounded_thin_field_map_DEC {K : Set MatrixScalarJet} (hK : IsCompact K)
(hreg : ∀ q ∈ K, positiveAngular (fun i k => (q i k).1)) {B A : ℝ} (hB : 0 ≤ B) (hA : 0 ≤ A) :
∃ R₀ : ℝ, 1 ≤ R₀ ∧ ∀ (b : Fin 5 → ℝ) (f : CollarCoefficientFields) (x : Point),
matrixScalarJets (f.metric 0) x ∈ K → ‖b‖ ≤ B → f.ThinBoundedAt B x →
∀ r : ℝ, R₀ ≤ r → b 0=1/r → 0 ≤ b 4 →
(∀ i, i ≠ 0 → |b i| ≤ A*b 4) →
(rawAngularMatrix (fieldRaw b f x)) 1 0=(rawAngularMatrix (fieldRaw b f x)) 0 1 →
(rawAngularMatrix (rawNullOriginal (fieldRaw b f x))) 1 0=
(rawAngularMatrix (rawNullOriginal (fieldRaw b f x))) 0 1 →
coordinateDEC (rawNullMap (rawNullOriginal (fieldRaw b f x))) r →
coordinateDEC (rawNullMap (fieldRaw b f x)) r
Formalization Note The statement is verbatim from lean/OAI/Geometry/Relativity/CKS/CollarThinInputs.lean, lines 64-82, 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_thin_field_map_DEC {K : Set MatrixScalarJet} (hK : IsCompact K)
(hreg : ∀ q ∈ K, positiveAngular (fun i k => (q i k).1)) {B A : ℝ} (hB : 0 ≤ B) (hA : 0 ≤ A) :
∃ R₀ : ℝ, 1 ≤ R₀ ∧ ∀ (b : Fin 5 → ℝ) (f : CollarCoefficientFields) (x : Point),
matrixScalarJets (f.metric 0) x ∈ K → ‖b‖ ≤ B → f.ThinBoundedAt B x →
∀ r : ℝ, R₀ ≤ r → b 0=1/r → 0 ≤ b 4 →
(∀ i, i ≠ 0 → |b i| ≤ A*b 4) →
(rawAngularMatrix (fieldRaw b f x)) 1 0=(rawAngularMatrix (fieldRaw b f x)) 0 1 →
(rawAngularMatrix (rawNullOriginal (fieldRaw b f x))) 1 0=
(rawAngularMatrix (rawNullOriginal (fieldRaw b f x))) 0 1 →
coordinateDEC (rawNullMap (rawNullOriginal (fieldRaw b f x))) r →
coordinateDEC (rawNullMap (fieldRaw b f x)) r := by
sorry
end
end CKSAngularGeometry
end
end OAI