The actual wild order at a prime of the original finite normalization is a power of its residue exponential characteristic. All finite-module and torsion-free inputs come from the original field tower.
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 originalFiniteNormalizationWildOrder_exists_expChar_pow
(A : Type u) (K : Type v) (F : Type w)
[rA : CommRing A] [dA : IsDomain A] [vA : IsDiscreteValuationRing A]
[fK : Field K] [fF : Field F]
[aAK : Algebra A K] [fAK : IsFractionRing A K]
[aKF : Algebra K F] [aAF : Algebra A F] [tAKF : IsScalarTower A K F]
[fKF : FiniteDimensional K F] [gKF : IsGalois K F] :
let : IsDedekindDomain (normalizationCommAlgCat A F) :=
integralClosure.isDedekindDomain A K F
∀ (Q : Ideal (normalizationCommAlgCat A F)) [Q.IsMaximal],
∃ r : ℕ, commAlgIdealWildOrder A (normalizationCommAlgCat A F) Q
(originalFiniteNormalizationPrime_ne_bot A K F Q) =
(ringExpChar Q.ResidueField) ^ r := by
let B : CommAlgCat.{w} A := normalizationCommAlgCat A F
have dB : IsDedekindDomain B := integralClosure.isDedekindDomain A K F
have tAF : Module.IsTorsionFree A F := .trans_faithfulSMul A K F
have tAB : Module.IsTorsionFree A B :=
inferInstanceAs (Module.IsTorsionFree A (integralClosure A F))
have fAB : Module.Finite A B :=
nativeNormalization_finite A K (CommAlgCat.of A F) (Field.toIsField F)
have hnonzero : ∀ (Q : Ideal B) [Q.IsMaximal], Q ≠ ⊥ := by
intro Q qMax
exact originalFiniteNormalizationPrime_ne_bot A K F Q
change ∀ (Q : Ideal B) [Q.IsMaximal],
∃ r : ℕ, commAlgIdealWildOrder A B Q (hnonzero Q) =
(ringExpChar Q.ResidueField) ^ r
clear_value B
clear tAF gKF fKF tAKF aAF aKF fAK aAK fF F fK K
intro Q qMax
exact finiteIdealWildOrder_exists_expChar_pow A B Q (hnonzero Q)