An integral nodal section of an ample power, framed on an étale chart
OpenOAI.MaximalSeshadri.Geometry.Surface.ample_integral_nodal_section_framed_etaleFor ample on a surface there are , sections of with iso-opens covering , a point , an affine open inside the iso-open of on which is trivial, étale coordinates on , and coefficients on the index type QuarticIndex (Fin N) with the following properties. The point is the unique point outside centeredOpen s. The ideal doublePointQuarticIdeal k s hs v defines an integral subscheme of dimension one, invertible on , containing , with nonzero defining section, and smooth over on the centered open. Writing for its local equation on , the ideal is prime, , , and there is a family of -points of parametrized by , with the prime of , , analytic at 0, injective on a neighbourhood of 0, with invertible derivative in two section ratios, with near 0 for an analytic with , and such that the Taylor map is injective and has exact -jets with kernel the -th power of the prime of for all .
Notation. The iso-open of (SectionOpens.isoOpen s) is the union of the opens on which the morphism restricts to an isomorphism. sectionOpen X s is the same union for a global section : its nonvanishing open. 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 . The Taylor maps (analyticTaylor, bivariateTaylor) send a function to the power series of at . 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 namespace MaximalSeshadri.Geometry noncomputable section open AlgebraicGeometry CategoryTheory TopologicalSpace MvPolynomial open MaximalSeshadri.Frames MaximalSeshadri.Projective MaximalSeshadri.ProjectiveBertini open MaximalSeshadri.AlgebraicJets MaximalSeshadri.QuadraticJets open MaximalSeshadri.AnalyticCoordinates open scoped Topology attribute [local instance] MvPolynomial.gradedAlgebra
theorem Surface.ample_integral_nodal_section_framed_etale (S : Surface)
(L : LineBundle S.scheme) (hL : LineBundle.IsAmple S.scheme L) :
∃ d : ℕ, 0 < d ∧ ∃ N : ℕ,
∃ s : Option (Fin N) → GlobalSections S.scheme (modulePow S.scheme L.sheaf d),
∃ hs : (⨆ i, SectionOpens.isoOpen (s i)) = ⊤,
∃ y : S.scheme, ∃ U : S.scheme.affineOpens, ∃ hyU : y ∈ U.1,
∃ hU : U.1 ≤ SectionOpens.isoOpen (s none),
∃ _ : L.sheaf.restrict U.1.ι ≅ O U.1.toScheme,
∃ t : Fin 2 → Γ(S.scheme,U.1),
(MvPolynomial.eval₂Hom (openScalars S.structureMap U.1) t).Etale ∧
let k := S.structureMap.appTop.hom.comp
(Scheme.ΓSpecIso (CommRingCat.of ℂ)).inv.hom
let _ : Algebra ℂ Γ(S.scheme, U.1) := (openScalars S.structureMap U.1).toAlgebra
∃ v : QuarticIndex (Fin N) → ℂ,
(∀ x : S.scheme, x ∉ centeredOpen s ↔ x = y) ∧
IsIntegral (doublePointQuarticIdeal k s hs v).subscheme ∧
topologicalKrullDim (doublePointQuarticIdeal k s hs v).subscheme = 1 ∧
InvertiblePullbackIdeal (doublePointQuarticIdeal k s hs v) (𝟙 S.scheme) ∧
y ∈ (doublePointQuarticIdeal k s hs v).support ∧
sectionCombination k (doublePointQuartics s) v ≠ 0 ∧
Smooth (((doublePointQuarticIdeal k s hs v).comap (centeredOpen s).ι).subschemeι ≫
(centeredOpen s).ι ≫ S.structureMap) ∧
let f := U.1.topIso.hom (coefficient
(sectionFrameOn (powerSection (s none) 4) U.1
(hU.trans (sectionOpen_le_powerSection (s none) 4)))
(restrictSection U.1.ι (sectionCombination k (doublePointQuartics s) v)))
∃ q : (ℂ × ℂ) → (Γ(S.scheme,U.1) →ₐ[ℂ] ℂ),
ringKrullDim Γ(S.scheme,U.1) ≤ 2 ∧ (Ideal.span {f}).IsPrime ∧
f ≠ 0 ∧ q 0 f = 0 ∧
RingHom.ker (q 0) = (U.2.isoSpec.hom ⟨y,hyU⟩).asIdeal ∧
∃ hq : (∀ a, AnalyticAt ℂ (fun z => q z a) 0),
∃ u : (ℂ × ℂ) → ℂ, AnalyticAt ℂ u 0 ∧ u 0 ≠ 0 ∧
(∀ᶠ z in 𝓝 0, q z f = u z*z.1*z.2) ∧
(∃ i : Fin 2 → Fin N, ∃ e : (ℂ × ℂ) ≃L[ℂ] (ℂ × ℂ),
HasFDerivAt (fun z =>
(q z (-affineSectionRatios s U hU (some (i 1))),
q z (-affineSectionRatios s U hU (some (i 0)))))
(e : (ℂ × ℂ) →L[ℂ] (ℂ × ℂ)) 0) ∧
(∀ n : ℕ, RingHom.ker ((Ideal.Quotient.mk
(IsLocalRing.maximalIdeal (MvPowerSeries (Fin 2) ℂ)^n)).comp
(analyticTaylor q hq).toRingHom) =
(U.2.isoSpec.hom ⟨y,hyU⟩).asIdeal^n ∧
Function.Surjective ((Ideal.Quotient.mk
(IsLocalRing.maximalIdeal (MvPowerSeries (Fin 2) ℂ)^n)).comp
(analyticTaylor q hq).toRingHom)) ∧
Function.Injective (analyticTaylor q hq) ∧
∃ V : Set (ℂ × ℂ), IsOpen V ∧ 0 ∈ V ∧ Set.InjOn q V := by
sorry
end
end MaximalSeshadri.Geometry
end
end OAI