LocalClassFieldTheory.equalCharacteristicStandardFiniteAbelianCompositum_filteredLocalReciprocity
Real filtered local reciprocity for the fixed field represented by the standard equal-characteristic finite abelian compositum.
Source context 7 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
open scoped ValuativeRel
namespace LocalClassFieldTheory
open RamificationTheory.LocalField
open LubinTate
open LocalClassFieldTheory
open LocalFieldTheoryLean source · full declaration
theorem
equalCharacteristicStandardFiniteAbelianCompositum_filteredLocalReciprocity
(K : Type) [Field K]
[ValuativeRel K] [TopologicalSpace K]
[IsNonarchimedeanLocalField K]
(p : ℕ) [Fact p.Prime] [CharP K p]
(ϖ : Kˣ)
(hϖ :
IsNonarchimedeanLocalField.valuationMap K (Additive.ofMul ϖ) = 1)
(d n : ℕ) (hd : 0 < d)
(t : ℝ) (ht : 0 ≤ t) :
let P :=
equalCharacteristicStandardFiniteAbelianCompositum
K p ϖ hϖ d n hd
let F :=
abstractFixedField K (SeparableClosure K) P.field
letI : FiniteDimensional K F :=
abstractFixedField_finiteDimensional
K (SeparableClosure K) P.field
(finiteAbelianSubextension_finite_over_absoluteBase K P)
letI : IsAbelianGalois K F :=
finiteAbelianSubextension_fixedField_isAbelianGalois K P
artinPrincipalUnitStepGroup K F t =
localUpperRamificationGroup K F t := by
let U := localFiniteUnramifiedAbelianSubextension K d hd
let H₁ := localFiniteUnramifiedAbstractField K d hd
let T :=
equalCharacteristicTransportedLubinTateFiniteAbelianSubextension
K p ϖ hϖ (n - 1)
let P :=
equalCharacteristicStandardFiniteAbelianCompositum
K p ϖ hϖ d n hd
let E₁ :=
abstractFixedField K (SeparableClosure K) H₁.field
let E₂ :=
abstractFixedField K (SeparableClosure K) T.field
let F :=
abstractFixedField K (SeparableClosure K) P.field
let : FiniteDimensional K E₁ :=
abstractFixedField_finiteDimensional
K (SeparableClosure K) H₁.field H₁.finite
let : FiniteDimensional K E₂ :=
abstractFixedField_finiteDimensional
K (SeparableClosure K) T.field
(finiteAbelianSubextension_finite_over_absoluteBase K T)
let : FiniteDimensional K F :=
abstractFixedField_finiteDimensional
K (SeparableClosure K) P.field
(finiteAbelianSubextension_finite_over_absoluteBase K P)
let : IsAbelianGalois K E₁ :=
by
change IsAbelianGalois K
(abstractFixedField K (SeparableClosure K) U.field)
exact finiteAbelianSubextension_fixedField_isAbelianGalois K U
let : IsAbelianGalois K E₂ :=
finiteAbelianSubextension_fixedField_isAbelianGalois K T
let : IsAbelianGalois K F :=
finiteAbelianSubextension_fixedField_isAbelianGalois K P
have hsup : E₁ ⊔ E₂ = F := by
simpa only [E₁, E₂, F, H₁, U, T, P,
localFiniteUnramifiedAbstractField_field] using
(equalCharacteristicStandardFiniteAbelianCompositum_fixedField_eq_sup
K p ϖ hϖ d n hd).symm
have hE₁ : E₁ ≤ F := by
rw [← hsup]
exact le_sup_left
have hE₂ : E₂ ≤ F := by
rw [← hsup]
exact le_sup_right
have hArtin₁ :
artinPrincipalUnitStepGroup K E₁ t = ⊥ := by
simpa only [E₁, H₁] using
artinPrincipalUnitStepGroup_finiteUnramifiedAbelianExtension_eq_bot
K d hd t
have hUpper₁ :
localUpperRamificationGroup K E₁ t = ⊥ := by
simpa only [E₁, H₁] using
localUpperRamificationGroup_finiteUnramifiedAbelianExtension_eq_bot
K d hd t ht
have hfiltered₂ :
artinPrincipalUnitStepGroup K E₂ t =
localUpperRamificationGroup K E₂ t := by
simpa only [E₂, T] using
equalCharacteristicTransportedLubinTateFixedField_filteredLocalReciprocity
K p ϖ hϖ (n - 1) t ht
exact
filteredLocalReciprocity_of_compositum
K E₁ E₂ F hE₁ hE₂ hsup t hArtin₁ hUpper₁ hfiltered₂