Bertini for the double-point quartics
OpenOAI.MaximalSeshadri.Projective.doublePointQuartics_bertiniLet be uncountable algebraically closed of characteristic zero, , and sections indexed by defining a closed immersion, with centeredOpen s integral, compact, smooth of relative dimension 2 over . Let be an equivalence from to QuarticIndex σ. For every nonzero there is with such that on the centered open , the hyperplane section for the morphism defined by the restricted quartics has integral subscheme, smooth over , and is locally generated by a regular element equal to the coefficient of the combination.
Notation. The iso-open of (SectionOpens.isoOpen s) is the union of the opens on which the morphism restricts to an isomorphism. sectionsMorphism k s hs is the morphism from to of the graded polynomial ring in variables indexed by the sections, defined by sections whose iso-opens cover , with the ring map from the base into . centeredOpen s is the union of the iso-opens of . QuarticIndex σ is ; doublePointQuartics are the corresponding degree-4 mixed products of the sections.
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.Projective
noncomputable section
open AlgebraicGeometry CategoryTheory TopologicalSpace MvPolynomial
open MaximalSeshadri.Frames MaximalSeshadri.Geometry MaximalSeshadri.BertiniIntegral
attribute [local instance] MvPolynomial.gradedAlgebra
variable {K σ : Type} [Field K] [CharZero K] [IsAlgClosed K] [Uncountable K]
theorem doublePointQuartics_bertini {X : Scheme} {M : X.Modules}
(g : X ⟶ Spec (CommRingCat.of K))
(s : Option σ → (O X ⟶ M))
(hs : (⨆ i, SectionOpens.isoOpen (s i)) = ⊤)
[IsClosedImmersion (sectionsMorphism
(g.appTop.hom.comp (Scheme.ΓSpecIso (CommRingCat.of K)).inv.hom) s hs)]
{n : ℕ} (e : Option (Fin n) ≃ QuarticIndex σ)
[IsIntegral (centeredOpen s).toScheme] [CompactSpace (centeredOpen s)]
[SmoothOfRelativeDimension 2 ((centeredOpen s).ι ≫ g)]
(P : MvPolynomial (Option (Fin n)) K) (hP : P ≠ 0) :
let k := g.appTop.hom.comp (Scheme.ΓSpecIso (CommRingCat.of K)).inv.hom
let V := centeredOpen s
let t (j : Option σ) := restrictSection V.ι (s j)
let q := (doublePointQuartics t) ∘ e
let hq := sections_cover_reindex _ (doublePointQuartics_cover t (restricted_centered_cover s)) e
let h := sectionsMorphism (V.ι.appTop.hom.comp k) q hq
∃ v : Option (Fin n) → K, MvPolynomial.aeval v P ≠ 0 ∧
IsIntegral (projectiveHyperplane h v).subscheme ∧
Smooth ((projectiveHyperplane h v).subschemeι ≫ V.ι ≫ g) ∧
∀ x : V, ∃ U : V.toScheme.affineOpens, x ∈ U.1 ∧
∃ f : Γ(V.toScheme, U.1), IsRegular f ∧
(projectiveHyperplane h v).ideal U = Ideal.span {f} ∧
∃ b : (modulePow V.toScheme (M.restrict V.ι) 4).restrict U.1.ι ≅ O U.1.toScheme,
U.1.topIso.hom (coefficient b (restrictSection U.1.ι
(sectionCombination (V.ι.appTop.hom.comp k) q v))) = f := by
sorry
end
end MaximalSeshadri.Projective
end
end
end
end OAI