Module

ProjectiveLineConstancy.lean

Nyll.AlgebraicCurves.Geometry.AbelianSchemes.ProjectiveLineConstancy
6 declarations indexed from sourceView source ↗

Morphisms from the projective line to an abelian variety are constant

Each standard chart is the actual affine line. Their constant values agree at the common rational point with homogeneous coordinates (1,1).

Declarations

GoodReductionJacobian.ProjectiveLineConstancy.otherUnique
Source context 8 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
universe u
open CategoryTheory AlgebraicGeometry HomogeneousLocalization Polynomial
open AlgebraicCurves.Geometry.Projective.Proofs.ProjSpace_isPullback_map.AlgebraicGeometry.ProjSpace
  (awayChartEquiv awayChartEquiv_X)
attribute [local instance] MvPolynomial.gradedAlgebra
namespace GoodReductionJacobian
namespace ProjectiveLineConstancy
variable (k : Type u) [Field k]
abbrev otherUnique (i : Fin 2) : Unique {j : Fin 2 // j ≠ i} where
  default := ⟨⟨1 - i.val, by omega⟩, by
    intro h
    have h' := congrArg Fin.val h
    change 1 - i.val = i.val at h'
    have hi := i.isLt
    omega⟩
  uniq j := by
    apply Subtype.ext
    apply Fin.ext
    have hi := i.isLt
    have hj := j.val.isLt
    have hne : j.val.val ≠ i.val := fun h => j.property (Fin.ext h)
    change j.val.val = 1 - i.val
    omega
GoodReductionJacobian.ProjectiveLineConstancy.chartEquiv
Source context 8 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
universe u
open CategoryTheory AlgebraicGeometry HomogeneousLocalization Polynomial
open AlgebraicCurves.Geometry.Projective.Proofs.ProjSpace_isPullback_map.AlgebraicGeometry.ProjSpace
  (awayChartEquiv awayChartEquiv_X)
attribute [local instance] MvPolynomial.gradedAlgebra
namespace GoodReductionJacobian
namespace ProjectiveLineConstancy
variable (k : Type u) [Field k]
def chartEquiv (i : Fin 2) :
    k[X] ≃ₐ[k] Away (MvPolynomial.homogeneousSubmodule (Fin 2) k) (MvPolynomial.X i)
GoodReductionJacobian.ProjectiveLineConstancy.ones
Source context 8 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
universe u
open CategoryTheory AlgebraicGeometry HomogeneousLocalization Polynomial
open AlgebraicCurves.Geometry.Projective.Proofs.ProjSpace_isPullback_map.AlgebraicGeometry.ProjSpace
  (awayChartEquiv awayChartEquiv_X)
attribute [local instance] MvPolynomial.gradedAlgebra
namespace GoodReductionJacobian
namespace ProjectiveLineConstancy
variable (k : Type u) [Field k]
def ones (i : Fin 2) :
    Away (MvPolynomial.homogeneousSubmodule (Fin 2) k) (MvPolynomial.X i) →ₐ[k] k
GoodReductionJacobian.ProjectiveLineConstancy.ones_ratio
Source context 8 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
universe u
open CategoryTheory AlgebraicGeometry HomogeneousLocalization Polynomial
open AlgebraicCurves.Geometry.Projective.Proofs.ProjSpace_isPullback_map.AlgebraicGeometry.ProjSpace
  (awayChartEquiv awayChartEquiv_X)
attribute [local instance] MvPolynomial.gradedAlgebra
namespace GoodReductionJacobian
namespace ProjectiveLineConstancy
variable (k : Type u) [Field k]
lemma ones_ratio (i j : Fin 2) : ones k i (ProjSpace.ratio k 1 i j) = 1
GoodReductionJacobian.ProjectiveLineConstancy.ones_chart_eq
Source context 8 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
universe u
open CategoryTheory AlgebraicGeometry HomogeneousLocalization Polynomial
open AlgebraicCurves.Geometry.Projective.Proofs.ProjSpace_isPullback_map.AlgebraicGeometry.ProjSpace
  (awayChartEquiv awayChartEquiv_X)
attribute [local instance] MvPolynomial.gradedAlgebra
namespace GoodReductionJacobian
namespace ProjectiveLineConstancy
variable (k : Type u) [Field k]
lemma ones_chart_eq (i j : Fin 2) :
    Spec.map (CommRingCat.ofHom (ones k i).toRingHom) ≫
      Proj.awayι (MvPolynomial.homogeneousSubmodule (Fin 2) k) (MvPolynomial.X i)
        (ProjSpace.X_mem_one k 1 i) one_pos =
    Spec.map (CommRingCat.ofHom (ones k j).toRingHom) ≫
      Proj.awayι (MvPolynomial.homogeneousSubmodule (Fin 2) k) (MvPolynomial.X j)
        (ProjSpace.X_mem_one k 1 j) one_pos
GoodReductionJacobian.exists_eq_const_of_projectiveLine

Every morphism over a field from the projective line to an abelian variety is constant.

Source context 7 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
universe u
open CategoryTheory AlgebraicGeometry HomogeneousLocalization Polynomial
open AlgebraicCurves.Geometry.Projective.Proofs.ProjSpace_isPullback_map.AlgebraicGeometry.ProjSpace
  (awayChartEquiv awayChartEquiv_X)
attribute [local instance] MvPolynomial.gradedAlgebra
namespace GoodReductionJacobian
open ProjectiveLineConstancy in
theorem exists_eq_const_of_projectiveLine
    (k : Type u) [Field k] {A : Scheme.{u}} {fA : A ⟶ Spec (CommRingCat.of k)}
    (hA : AbelianSchemePropertyBundle k fA)
    (q : Proj (MvPolynomial.homogeneousSubmodule (Fin 2) k) ⟶ A)
    (hq : q ≫ fA = ProjSpace.π k 1) :
    ∃ a : Spec (CommRingCat.of k) ⟶ A,
      a ≫ fA = 𝟙 _ ∧ q = ProjSpace.π k 1 ≫ a