A centered étale chart with a rational jet
OpenOAI.MaximalSeshadri.Projective.exists_centered_rational_jet_in_openLet be an algebraically closed field, integral, smooth of relative dimension 2 over , with sections giving a closed immersion over . Let be a point outside centeredOpen s, and an open containing . There is an affine open with inside the iso-open of , indices , a -point of killing all section ratios, and a jet map to the 3-jets in two variables with kernel , sending the ratios of to minus the coordinates, with those ratios giving étale coordinates, and with the scalar structures compatible.
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 .
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.Projective
noncomputable section
open AlgebraicGeometry CategoryTheory TopologicalSpace MvPolynomial
open MaximalSeshadri.Frames MaximalSeshadri.Geometry MaximalSeshadri.ProjectiveBertini
open MaximalSeshadri.AlgebraicJets MaximalSeshadri.QuadraticJets
attribute [local instance] MvPolynomial.gradedAlgebra
variable {K σ : Type} [Field K] [IsAlgClosed K] [Fintype σ] {X : Scheme} {M : X.Modules}
theorem exists_centered_rational_jet_in_open [IsIntegral X]
(g : X ⟶ Spec (CommRingCat.of K)) [SmoothOfRelativeDimension 2 g]
(k : K →+* Γ(X, ⊤)) (s : Option σ → (O X ⟶ M))
(hs : (⨆ i, SectionOpens.isoOpen (s i)) = ⊤)
[IsClosedImmersion (sectionsMorphism k s hs)]
(hbase : sectionsMorphism k s hs ≫ projectiveToSpec = g)
(p : X) (hp : p ∉ centeredOpen s) (W : X.Opens) (hpW : p ∈ W) :
∃ U : X.affineOpens, p ∈ U.1 ∧ U.1 ≤ W ∧
∃ hU : U.1 ≤ SectionOpens.isoOpen (s none),
let _ : Algebra K Γ(X, U.1) := (openScalars g U.1).toAlgebra
∃ i : Fin 2 → σ, ∃ ρ : Γ(X, U.1) →ₐ[K] K,
∃ τ : Γ(X, U.1) →ₐ[K] JetAlgebra (Fin 2) K 3,
(∀ j : σ, ρ (affineSectionRatios s U hU (some j)) = 0) ∧
RingHom.ker τ = (RingHom.ker ρ)^3 ∧
(∀ f, jetAugment 3 (by decide) (τ f) = ρ f) ∧
(∀ j : Fin 2, τ (affineSectionRatios s U hU (some (i j))) =
-Ideal.Quotient.mk _ (MvPolynomial.X j)) ∧
(MvPolynomial.eval₂Hom (openScalars g U.1)
(fun j => -affineSectionRatios s U hU (some (i j)))).Etale ∧
∀ c : K, U.1.topIso.hom (U.1.ι.appTop (k c)) = openScalars g U.1 c := by
sorry
end
end MaximalSeshadri.Projective
end
end OAI