The native finite-field owner supplies radical divisibility before the original upper normalization prime is introduced.
Source context 4 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace EtaleFundamentalGroups.Inertia
open SchemeTheory
universe u v wtheorem finiteAbsoluteNormalization_radical_exponent_dvd_tameOrder
(A : Type u) (K : Type v) (Ω : Type w)
[CommRing A] [IsDomain A] [IsDiscreteValuationRing A]
[Field K] [Field Ω] [Algebra A K] [IsFractionRing A K]
[Algebra K Ω] [Algebra A Ω] [IsScalarTower A K Ω] [IsGalois K Ω]
(E : FiniteGaloisIntermediateField K Ω) :
let : IsDedekindDomain (finiteAbsoluteNormalizationAlgebra A K Ω E) :=
finiteAbsoluteNormalizationAlgebra_isDedekindDomain A K Ω E
∀ (q : Ideal (finiteAbsoluteNormalizationAlgebra A K Ω E)) [q.IsPrime]
(hq : q ≠ ⊥) (n : ℕ), IsUnit (n : A) → ∀ (π : A), Irreducible π →
∀ (γ : finiteAbsoluteNormalizationAlgebra A K Ω E),
γ ^ n = (commAlgCoefficientMap (finiteAbsoluteNormalizationAlgebra A K Ω E)).toFun π →
n ∣ commAlgIdealTameOrder A (finiteAbsoluteNormalizationAlgebra A K Ω E) q hq := by
dsimp only
intro q qPrime hq n hn π hπ γ hγ
let q' : Ideal (normalizationCommAlgCat A (finiteLevelFieldAlgebra A K Ω E)) := q
have : q'.IsPrime := qPrime
exact finiteNormalization_radical_exponent_dvd_tameOrder A K
(finiteLevelFieldAlgebra A K Ω E) q' hq n hn π hπ γ hγ