A generic hyperplane section over a countable model is a domain
OpenOAI.MaximalSeshadri.BertiniIntegral.generic_hyperplane_section_over_modelmaximal-seshadrioai-math
Let be fields of characteristic zero (with an -algebra), a domain over with a domain, and an -algebra with an isomorphism of -algebras. Let be finite, , with , and suppose of the linear form is injective on . If , is transcendental over (Mathlib's predicate Transcendental K), and implies in , where , then for each injective -algebra map the quotient of by the element is a domain.
Formalization Note The statement is verbatim from OpenAI's Lean development, with Definitions files of this development imported in place of the upstream modules; these are supporting code for the statement.
Preamble
import Mathlib import Definitions.Def_MaximalSeshadriConstants import Definitions.Def_SeshadriPrelim6 namespace OAI section noncomputable section namespace MaximalSeshadri.BertiniIntegral noncomputable section open Polynomial open scoped TensorProduct attribute [local instance] MvPolynomial.algebraMvPolynomial attribute [local instance] Polynomial.algebra attribute [local instance 1100] Polynomial.algebraOfAlgebra
Formal statement
theorem generic_hyperplane_section_over_model {R K A A₀ σ : Type}
[Field R] [CharZero R] [Field K] [CharZero K]
[Algebra R K]
[CommRing A] [IsDomain A] [Algebra K A] [Algebra R A]
[IsScalarTower R K A] [IsDomain (A ⊗[K] A)]
[CommRing A₀] [Algebra R A₀] [Fintype σ]
(e : (K ⊗[R] A₀) ≃ₐ[K] A) (v₀ : σ → A₀) (v : σ → A)
(hv : ∀ i, e (1 ⊗ₜ[R] v₀ i) = v i)
(hdom : Function.Injective (Polynomial.aeval (homogeneousLinearForm v) :
(MvPolynomial σ K)[X] →ₐ[MvPolynomial σ K] MvPolynomial σ A))
(i j : σ) (hji : j ≠ i) (hj : Transcendental K (v j))
(hi : v i ⊗ₜ[K] (1 : A) - (1 : A) ⊗ₜ[K] v i ≠ 0)
(hij : ∀ r : A ⊗[K] A,
(v i ⊗ₜ[K] (1 : A) - (1 : A) ⊗ₜ[K] v i) ∣
(v j ⊗ₜ[K] (1 : A) - (1 : A) ⊗ₜ[K] v j) * r →
(v i ⊗ₜ[K] (1 : A) - (1 : A) ⊗ₜ[K] v i) ∣ r) :
∀ f : (MvPolynomial σ R)[X] →ₐ[R] K, Function.Injective f →
IsDomain (A ⧸ Ideal.span {algebraMap K A (f X) -
∑ k, algebraMap K A (f (C (MvPolynomial.X k))) * v k}) := by
sorry
end
end MaximalSeshadri.BertiniIntegral
end
end
end OAI
Source
OpenAI, Maximal Seshadri constants on arbitrary polarized surfaces, September 23, 2026, https://github.com/openai/math (paper: preprints/Maximal-Seshadri-Constants-on-Arbitrary-Polarized-Surfaces-September-23-2026/main.pdf; Lean: lean/OAI/AlgebraicGeometry/Seshadri, Apache License 2.0); Lean declaration `OAI.MaximalSeshadri.BertiniIntegral.generic_hyperplane_section_over_model`, https://github.com/openai/math/blob/adc7f1241b42e322a6451854ab7e4b4c146bf78a/lean/OAI/AlgebraicGeometry/Seshadri/Bertini/SimultaneousHyperplanes.lean#L18