Quartics smooth and integral away from the centre
OpenOAI.MaximalSeshadri.Geometry.Surface.ample_quartic_smooth_integral_awayFor ample on there are , , sections of indexed by with iso-opens covering , an equivalence , and such that is the only point outside centeredOpen s, the sections define a closed immersion, and for each nonzero there is with such that the comap to the centered open of doublePointQuarticIdeal k s hs (v ∘ e.symm) has integral subscheme, smooth over .
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 . IsAmple means that for each point and open , some positive power has a global section with nonvanishing open containing , inside , and affine. A Surface is an integral scheme smooth of relative dimension 2 over with a closed immersion into some complex projective space over . 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.Geometry noncomputable section open AlgebraicGeometry CategoryTheory TopologicalSpace open MaximalSeshadri.Frames MaximalSeshadri.Projective attribute [local instance] MvPolynomial.gradedAlgebra
theorem Surface.ample_quartic_smooth_integral_away (S : Surface)
(L : LineBundle S.scheme) (hL : LineBundle.IsAmple S.scheme L) :
∃ d : ℕ, 0 < d ∧ ∃ N n : ℕ,
∃ s : Option (Fin N) → GlobalSections S.scheme (modulePow S.scheme L.sheaf d),
∃ hs : (⨆ i, SectionOpens.isoOpen (s i)) = ⊤,
∃ e : Option (Fin n) ≃ QuarticIndex (Fin N), ∃ y : S.scheme,
(∀ x : S.scheme, x ∉ centeredOpen s ↔ x = y) ∧
IsClosedImmersion (sectionsMorphism
(S.structureMap.appTop.hom.comp (Scheme.ΓSpecIso (CommRingCat.of ℂ)).inv.hom) s hs) ∧
∀ P : MvPolynomial (Option (Fin n)) ℂ, P ≠ 0 →
∃ v : Option (Fin n) → ℂ, MvPolynomial.aeval v P ≠ 0 ∧
let k := S.structureMap.appTop.hom.comp
(Scheme.ΓSpecIso (CommRingCat.of ℂ)).inv.hom
let V := centeredOpen s
let J := (doublePointQuarticIdeal k s hs (v ∘ e.symm)).comap V.ι
IsIntegral J.subscheme ∧ Smooth (J.subschemeι ≫ V.ι ≫ S.structureMap) := by
sorry
end
end MaximalSeshadri.Geometry
end
end
end
end OAI