A Bertini family with local equations
OpenOAI.MaximalSeshadri.BertiniIntegral.smooth_integral_zero_family_with_equationsLet be an uncountable algebraically closed field of characteristic zero, a scheme over with a countable family of affine opens covering it, each with domain sections, finite type over and étale over a polynomial ring in variables , and functions on two of which are distinct coordinates. Let be opens with the basic open of , and suppose the overlap a common . For every nonzero polynomial there is with such that the complement of with its vanishing ideal is integral, smooth over , and locally generated on each by the displayed element.
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.
import Mathlib import Definitions.Def_MaximalSeshadriConstants import Definitions.Def_SeshadriPrelim6 namespace OAI section noncomputable section section namespace MaximalSeshadri.BertiniIntegral noncomputable section open AlgebraicGeometry CategoryTheory TopologicalSpace Polynomial open MaximalSeshadri.Projective attribute [local instance] MvPolynomial.gradedAlgebra attribute [local instance] MvPolynomial.algebraMvPolynomial attribute [local instance] Polynomial.algebra attribute [local instance 1100] Polynomial.algebraOfAlgebra
theorem smooth_integral_zero_family_with_equations
{K α : Type} {n : ℕ} [Field K] [CharZero K] [IsAlgClosed K] [Uncountable K]
[Countable α] (X : Scheme.{0}) (g : X ⟶ Spec (CommRingCat.of K))
(U : α → X.affineOpens) (hcover : ∀ x : X, ∃ j, x ∈ (U j).1)
[∀ j, IsDomain Γ(X, (U j).1)]
[∀ j, Algebra K Γ(X, (U j).1)] [∀ j, Algebra.FiniteType K Γ(X, (U j).1)]
(hOver : ∀ j, Spec.map (CommRingCat.ofHom (algebraMap K Γ(X, (U j).1))) =
(U j).2.fromSpec ≫ g)
(σ : α → Type) [∀ j, Algebra (MvPolynomial (σ j) K) Γ(X, (U j).1)]
[∀ j, IsScalarTower K (MvPolynomial (σ j) K) Γ(X, (U j).1)]
[∀ j, Algebra.Etale (MvPolynomial (σ j) K) Γ(X, (U j).1)]
(v : ∀ j, Fin n → Γ(X, (U j).1)) (i₁ i₂ : α → Fin n) (a b : ∀ j, σ j)
(hab : ∀ j, a j ≠ b j)
(hva : ∀ j, v j (i₁ j) =
algebraMap (MvPolynomial (σ j) K) Γ(X, (U j).1) (MvPolynomial.X (a j)))
(hvb : ∀ j, v j (i₂ j) =
algebraMap (MvPolynomial (σ j) K) Γ(X, (U j).1) (MvPolynomial.X (b j)))
(e : α → (Option (Fin n) ≃ Option (Fin n)))
(D : (Option (Fin n) → K) → X.Opens)
(hD : ∀ t j, (U j).2.fromSpec ⁻¹ᵁ D t = PrimeSpectrum.basicOpen
(algebraMap K Γ(X, (U j).1) (t (e j none)) -
∑ k, algebraMap K Γ(X, (U j).1) (t (e j (some k))) * v j k))
(j₀ : α) (overlap : α → α)
(hleft : ∀ j, (U (overlap j)).1 ≤ (U j₀).1)
(hright : ∀ j, (U (overlap j)).1 ≤ (U j).1)
(q : MvPolynomial (Option (Fin n)) K) (hq : q ≠ 0) :
∃ t : Option (Fin n) → K, MvPolynomial.aeval t q ≠ 0 ∧
IsIntegral (Scheme.IdealSheafData.vanishingIdeal (D t).compl).subscheme ∧
Smooth ((Scheme.IdealSheafData.vanishingIdeal (D t).compl).subschemeι ≫ g) ∧
∀ j, (Scheme.IdealSheafData.vanishingIdeal (D t).compl).ideal (U j) =
Ideal.span {algebraMap K Γ(X, (U j).1) (t (e j none)) -
∑ k, algebraMap K Γ(X, (U j).1) (t (e j (some k))) * v j k} := by
sorry
end
end MaximalSeshadri.BertiniIntegral
end
end
end
end OAI