Reduction on a normalization prime, expressed directly on the categorical finite quotient of a Galois cover.
Source context 6 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
open AlgebraicGeometry CategoryTheory
open CategoryTheory.PreGaloisCategory
open scoped Pointwise
namespace EtaleFundamentalGroups.Kummer
universe u uA uBdef finiteEtaleGaloisCoverIdealResidueHom
{X : Scheme.{u}} [IsIntegral X] [IsNormalIntegral X]
[IsLocallyNoetherian X]
(Y : FiniteEtale X) (hY : IsGalois Y) :
letI : IsGalois Y := hY
letI : IsIntegral Y.left :=
isIntegral_left_of_isConnected_finiteEtale Y
let K := X.functionField
let L := Y.left.functionField
letI : Algebra K L := finiteEtaleFunctionFieldAlgebra Y
∀ (A : Type uA) (B : Type uB)
[CommRing A] [CommRing B]
[Algebra A K] [IsFractionRing A K]
[Algebra B L] [IsFractionRing B L]
[Algebra A B] [Algebra A L]
[IsScalarTower A K L] [IsScalarTower A B L]
[IsIntegrallyClosed A] [IsIntegralClosure B A L]
(P : Ideal B),
letI : FiniteDimensional K L :=
finiteDimensional_functionField_of_finiteEtale_isConnected Y
letI : MulSemiringAction Gal(L/K) B :=
IsIntegralClosure.MulSemiringAction A K L B
letI : MulSemiringAction (Aut Y)ᵐᵒᵖ B :=
finiteEtaleGaloisCoverNormalizationAction Y hY A B
letI : SMulCommClass (Aut Y)ᵐᵒᵖ A B :=
finiteEtaleGaloisCoverNormalizationSMulCommClass Y hY A B
let p := P.comap (algebraMap A B)
letI : P.LiesOver p := ⟨rfl⟩
MulAction.stabilizer (Aut Y)ᵐᵒᵖ P →*
((B ⧸ P) ≃ₐ[A ⧸ p] (B ⧸ P)) := by
letI : IsGalois Y := hY
letI : IsIntegral Y.left :=
isIntegral_left_of_isConnected_finiteEtale Y
let K := X.functionField
let L := Y.left.functionField
letI : Algebra K L := finiteEtaleFunctionFieldAlgebra Y
dsimp only
intro A B _ _ _ _ _ _ _ _ _ _ _ _ P
letI : FiniteDimensional K L :=
finiteDimensional_functionField_of_finiteEtale_isConnected Y
letI : MulSemiringAction Gal(L/K) B :=
IsIntegralClosure.MulSemiringAction A K L B
letI : MulSemiringAction (Aut Y)ᵐᵒᵖ B :=
finiteEtaleGaloisCoverNormalizationAction Y hY A B
letI : SMulCommClass (Aut Y)ᵐᵒᵖ A B :=
finiteEtaleGaloisCoverNormalizationSMulCommClass Y hY A B
let p := P.comap (algebraMap A B)
letI : P.LiesOver p := ⟨rfl⟩
exact Ideal.Quotient.stabilizerHom P p (Aut Y)ᵐᵒᵖ