Module

PointedCover.lean

Nyll.EtaleFundamentalGroups.GeometricFiber.PointedCover
34 declarations indexed from sourceView source ↗

Geometric fibers over a pointed finite étale cover

A finite étale scheme over the source of a finite étale cover is the same as a finite étale scheme over the base equipped with a map to that cover. Under this equivalence, the geometric fiber at a lifted point is the corresponding fiber-over-a-point functor. Consequently, its automorphism group is the stabilizer of the lifted point in the automorphism group over the base.

Declarations

AlgebraicGeometry.FiniteEtale.overBaseObj
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
abbrev overBaseObj (A : FiniteEtale S) (B : FiniteEtale A.left) :
    FiniteEtale S
AlgebraicGeometry.FiniteEtale.overBaseHom
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
abbrev overBaseHom (A : FiniteEtale S) (B : FiniteEtale A.left) :
    overBaseObj A B ⟶ A
AlgebraicGeometry.FiniteEtale.toOverObj
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
abbrev toOverObj (A : FiniteEtale S) (B : FiniteEtale A.left) : Over A
AlgebraicGeometry.FiniteEtale.toOverMap
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
abbrev toOverMap (A : FiniteEtale S) {B C : FiniteEtale A.left}
    (f : B ⟶ C) : toOverObj A B ⟶ toOverObj A C
AlgebraicGeometry.FiniteEtale.toOver
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
def toOver (A : FiniteEtale S) : FiniteEtale A.left ⥤ Over A where
  obj B := toOverObj A B
  map f := toOverMap A f
  map_id B := by
    apply Over.OverMorphism.ext
    apply MorphismProperty.Over.Hom.ext
    rfl
  map_comp f g := by
    apply Over.OverMorphism.ext
    apply MorphismProperty.Over.Hom.ext
    rfl
AlgebraicGeometry.FiniteEtale.toOverFaithful
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
abbrev toOverFaithful (A : FiniteEtale S) : (toOver A).Faithful where
  map_injective {B C} f g h := by
    change toOverMap A f = toOverMap A g at h
    apply MorphismProperty.Over.Hom.ext
    exact congrArg (fun q ↦ q.left.left) h
AlgebraicGeometry.FiniteEtale.toOverFull
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
abbrev toOverFull (A : FiniteEtale S) : (toOver A).Full where
  map_surjective {B C} f := by
    let g : B ⟶ C := MorphismProperty.Over.homMk f.left.left (by
      exact congrArg (fun q ↦ q.left) (Over.w f))
    refine ⟨g, ?_⟩
    change toOverMap A g = f
    apply Over.OverMorphism.ext
    apply MorphismProperty.Over.Hom.ext
    rfl
AlgebraicGeometry.FiniteEtale.toOverEssSurj
Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
abbrev toOverEssSurj (A : FiniteEtale S) : (toOver A).EssSurj where
  mem_essImage U := by
    let B : FiniteEtale A.left := FiniteEtale.mk U.hom.left
    let eBase : overBaseObj A B ≅ U.left :=
      MorphismProperty.Over.isoMk (Iso.refl U.left.left) (by
        change (𝟙 U.left.left) ≫ U.left.hom = U.hom.left ≫ A.hom
        rw [Category.id_comp]
        exact (MorphismProperty.Over.w U.hom).symm)
    let e : toOverObj A B ≅ U := Over.isoMk eBase (by
      apply MorphismProperty.Over.Hom.ext
      rfl)
    change (toOver A).essImage U
    exact ⟨B, ⟨e⟩⟩
AlgebraicGeometry.FiniteEtale.overEquiv

Finite étale schemes over the source of A are equivalent to finite étale schemes over the base equipped with a map to A.

Source context 7 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
def overEquiv (A : FiniteEtale S) :
    FiniteEtale A.left ≌ Over A
AlgebraicGeometry.FiniteEtale.basePoint
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
abbrev basePoint (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) : Spec (.of Omega) ⟶ S
AlgebraicGeometry.FiniteEtale.liftedPointHom
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
abbrev liftedPointHom (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) :
    Over.mk (basePoint A xi') ⟶ A.toComma
AlgebraicGeometry.FiniteEtale.liftedFiberPoint

The point of the geometric fiber of A determined by a lift of the base geometric point to the source of A.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def liftedFiberPoint (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) :
    (fiber (basePoint A xi')).obj A
AlgebraicGeometry.FiniteEtale.liftedFiberPointOverComposite

The point of the geometric fiber determined by a lift, with the base point displayed explicitly as the composite with the covering map.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def liftedFiberPointOverComposite (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) :
    (fiber (xi' ≫ A.hom)).obj A
AlgebraicGeometry.FiniteEtale.sourcePointOfFiberOver
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def sourcePointOfFiberOver
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale A.left)
    (y : (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
      (toOverObj A B)) :
    Over.mk xi' ⟶ B.toComma
AlgebraicGeometry.FiniteEtale.fiberOverOfSourcePoint
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def fiberOverOfSourcePoint
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale A.left) (z : Over.mk xi' ⟶ B.toComma) :
    (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
      (toOverObj A B)
AlgebraicGeometry.FiniteEtale.sourcePointOfFiberOver_fiberOverOfSourcePoint
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem sourcePointOfFiberOver_fiberOverOfSourcePoint
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale A.left) (z : Over.mk xi' ⟶ B.toComma) :
    sourcePointOfFiberOver A xi' B (fiberOverOfSourcePoint A xi' B z) = z
AlgebraicGeometry.FiniteEtale.fiberOverOfSourcePoint_sourcePointOfFiberOver
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fiberOverOfSourcePoint_sourcePointOfFiberOver
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale A.left)
    (y : (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
      (toOverObj A B)) :
    fiberOverOfSourcePoint A xi' B (sourcePointOfFiberOver A xi' B y) = y
AlgebraicGeometry.FiniteEtale.fiberOverEquiv
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def fiberOverEquiv
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale A.left) :
    (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
        (toOverObj A B) ≃
      (fiber xi').obj B where
  toFun y := (fiberObjEquivHom xi' B).symm (sourcePointOfFiberOver A xi' B y)
  invFun z := fiberOverOfSourcePoint A xi' B (fiberObjEquivHom xi' B z)
  left_inv y := by
    exact (congrArg (fiberOverOfSourcePoint A xi' B)
      (Equiv.apply_symm_apply (fiberObjEquivHom xi' B)
        (sourcePointOfFiberOver A xi' B y))).trans
      (fiberOverOfSourcePoint_sourcePointOfFiberOver A xi' B y)
  right_inv z := by
    apply (fiberObjEquivHom xi' B).injective
    rw [Equiv.apply_symm_apply]
    exact sourcePointOfFiberOver_fiberOverOfSourcePoint A xi' B _
AlgebraicGeometry.FiniteEtale.fiberOverEquiv_apply
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fiberOverEquiv_apply
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale A.left)
    (y : (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
      (toOverObj A B)) :
    fiberOverEquiv A xi' B y =
      (fiberObjEquivHom xi' B).symm (sourcePointOfFiberOver A xi' B y)
AlgebraicGeometry.FiniteEtale.sourcePointOfFiberOver_naturality
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem sourcePointOfFiberOver_naturality
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    {B C : FiniteEtale A.left} (f : B ⟶ C)
    (y : (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
      (toOverObj A B)) :
    sourcePointOfFiberOver A xi' C
        ((fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).map
          (toOverMap A f) y) =
      sourcePointOfFiberOver A xi' B y ≫ f.hom
AlgebraicGeometry.FiniteEtale.fiberObjEquivHom_map_symm
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fiberObjEquivHom_map_symm
    (xi' : Spec (.of Omega) ⟶ S) {B C : FiniteEtale S} (f : B ⟶ C)
    (z : Over.mk xi' ⟶ B.toComma) :
    z ≫ f.hom =
      fiberObjEquivHom xi' C
        ((fiber xi').map f ((fiberObjEquivHom xi' B).symm z))
AlgebraicGeometry.FiniteEtale.fiberOverFormula_naturality
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fiberOverFormula_naturality
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    {B C : FiniteEtale A.left} (f : B ⟶ C)
    (y : (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
      (toOverObj A B)) :
    (fiberObjEquivHom xi' C).symm
        (sourcePointOfFiberOver A xi' C
          ((fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).map
            (toOverMap A f) y)) =
      (fiber xi').map f
        ((fiberObjEquivHom xi' B).symm (sourcePointOfFiberOver A xi' B y))
AlgebraicGeometry.FiniteEtale.fiberOverEquiv_naturality
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fiberOverEquiv_naturality
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    {B C : FiniteEtale A.left} (f : B ⟶ C)
    (y : (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).obj
      (toOverObj A B)) :
    fiberOverEquiv A xi' C
        ((fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).map
          (toOverMap A f) y) =
      (fiber xi').map f (fiberOverEquiv A xi' B y)
AlgebraicGeometry.FiniteEtale.overEquivFiberIso

Under the equivalence with the over-category, the geometric fiber at the lifted point is the fiber over the corresponding point of the base fiber.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def overEquivFiberIso (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) :
    (overEquiv A).functor ⋙
        fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi') ≅
      fiber xi'
AlgebraicGeometry.FiniteEtale.autFiberOverEquivFiber

The over-category fiber comparison induces the actual topological isomorphism of its automorphism group with the lifted geometric fundamental group.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def autFiberOverEquivFiber
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left) :
    Aut (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')) ≃ₜ*
      Aut (fiber xi')
AlgebraicGeometry.FiniteEtale.fundamentalGroupEquivStabilizerOfLift

The étale fundamental group at a lifted geometric point is canonically isomorphic to the stabilizer of the corresponding point in the geometric fiber of the finite étale cover over the base.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def fundamentalGroupEquivStabilizerOfLift
    [ConnectedSpace S] (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) :
    π₁ᵉᵗ(xi') ≃ₜ*
      MulAction.stabilizer (π₁ᵉᵗ(basePoint A xi')) (liftedFiberPoint A xi')
AlgebraicGeometry.FiniteEtale.pullbackToProductOver
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def pullbackToProductOver
    (A : FiniteEtale S) (B : FiniteEtale S) :
    toOverObj A ((pullback A.hom).obj B) ⟶
      (productOver (X := A)).obj B
AlgebraicGeometry.FiniteEtale.sourcePointOf_overEquivFiberIso_inv
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem sourcePointOf_overEquivFiberIso_inv
    (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale A.left) (p : (fiber xi').obj B) :
    sourcePointOfFiberOver A xi' B
        ((overEquivFiberIso A xi').inv.app B p) =
      fiberObjEquivHom xi' B p
AlgebraicGeometry.FiniteEtale.fiberOver_map_pullbackToProductOver
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fiberOver_map_pullbackToProductOver
    [ConnectedSpace S] (A : FiniteEtale S) (xi' : Spec (.of Omega) ⟶ A.left)
    (B : FiniteEtale S) (b : (fiber (basePoint A xi')).obj B) :
    (fiberOver (fiber (basePoint A xi')) (liftedFiberPoint A xi')).map
        (pullbackToProductOver A B)
        ((overEquivFiberIso A xi').inv.app ((pullback A.hom).obj B)
          (transportedPointOfCompIso (pullback A.hom)
            (pullbackFiberIso A.hom xi') B b)) =
      productFiberEquivComparison
        (fiber (basePoint A xi')) (liftedFiberPoint A xi') B b
AlgebraicGeometry.FiniteEtale.fundamentalGroupEquivStabilizerOfLift_coe
Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fundamentalGroupEquivStabilizerOfLift_coe
    [ConnectedSpace S] (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) (a : π₁ᵉᵗ(xi')) :
    (fundamentalGroupEquivStabilizerOfLift A xi' a :
        π₁ᵉᵗ(basePoint A xi')) =
      fundamentalGroupHom A.hom xi' a
AlgebraicGeometry.FiniteEtale.fundamentalGroupEquivStabilizerOfLiftOverComposite

The lifted-point stabilizer equivalence with the base point written as the literal composite with the finite-etale covering map.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def fundamentalGroupEquivStabilizerOfLiftOverComposite
    [ConnectedSpace S] (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left) :
    π₁ᵉᵗ(xi') ≃ₜ*
      MulAction.stabilizer (π₁ᵉᵗ(xi' ≫ A.hom))
        (liftedFiberPointOverComposite A xi')
AlgebraicGeometry.FiniteEtale.transported_stabilizer_liftedFiberPointOverComposite

Transporting the stabilizer of a lifted fiber point along an equality of base points gives the stabilizer of the corresponding point in the chosen fiber.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem transported_stabilizer_liftedFiberPointOverComposite
    [ConnectedSpace S] (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left)
    {xi : Spec (.of Omega) ⟶ S} (hxi : xi' ≫ A.hom = xi) :
    (hxi ▸ MulAction.stabilizer (π₁ᵉᵗ(xi' ≫ A.hom))
      (liftedFiberPointOverComposite A xi')) =
        MulAction.stabilizer (π₁ᵉᵗ(xi))
          ((fiberObjEquivHom xi A).symm (Over.homMk xi' hxi))
AlgebraicGeometry.FiniteEtale.fundamentalGroupEquivStabilizerOfLiftOfEq

The stabilizer equivalence transported along an equality identifying the composite of a lifted point with a chosen base point.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
def fundamentalGroupEquivStabilizerOfLiftOfEq
    [ConnectedSpace S] (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left)
    {xi : Spec (.of Omega) ⟶ S} (hxi : xi' ≫ A.hom = xi) :
    π₁ᵉᵗ(xi') ≃ₜ*
      ↥(show Subgroup π₁ᵉᵗ(xi) from
        hxi ▸ MulAction.stabilizer (π₁ᵉᵗ(xi' ≫ A.hom))
          (liftedFiberPointOverComposite A xi')) := by
  subst xi
  exact fundamentalGroupEquivStabilizerOfLiftOverComposite A xi'
AlgebraicGeometry.FiniteEtale.fundamentalGroupEquivStabilizerOfLiftOfEq_coe

After transporting the base point equality, the stabilizer equivalence is the homomorphism on fundamental groups induced by the covering map.

Source context 8 commands

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

noncomputable section
universe u
open CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped FintypeCatDiscrete
namespace AlgebraicGeometry.FiniteEtale
variable {S : Scheme.{u}}
variable {Omega : Type u} [Field Omega] [IsSepClosed Omega]
theorem fundamentalGroupEquivStabilizerOfLiftOfEq_coe
    [ConnectedSpace S] (A : FiniteEtale S)
    (xi' : Spec (.of Omega) ⟶ A.left)
    {xi : Spec (.of Omega) ⟶ S} (hxi : xi' ≫ A.hom = xi)
    (a : π₁ᵉᵗ(xi')) :
    ((fundamentalGroupEquivStabilizerOfLiftOfEq A xi' hxi a :
        ↥(show Subgroup π₁ᵉᵗ(xi) from
          hxi ▸ MulAction.stabilizer (π₁ᵉᵗ(xi' ≫ A.hom))
            (liftedFiberPointOverComposite A xi'))) : π₁ᵉᵗ(xi)) =
      hxi ▸ fundamentalGroupHom A.hom xi' a := by
  subst xi
  exact fundamentalGroupEquivStabilizerOfLift_coe A xi' a