A finite abelian extension, realized by an explicit embedding in the fixed separable closure, as an abstract finite abelian subextension.
Source context 4 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace LocalClassFieldTheory
open LocalFieldTheory RamificationTheory CyclicCohomology KummerTheory
open ClassFormationdef finiteAbelianAbstractExtensionOfEmbedding
(K L : Type) [Field K] [Field L] [Algebra K L]
[FiniteDimensional K L] [IsAbelianGalois K L]
(i : L →ₐ[K] SeparableClosure K) :
FiniteAbelianSubextension (intrinsicAbstractBase K) where
toFiniteGaloisExtension :=
finiteGaloisAbstractExtensionOfEmbedding K L i
commutative := by
change IsMulCommutative
((closedFixingSubgroup K (SeparableClosure K)
(⊥ : IntermediateField K (SeparableClosure K))).toSubgroup ⧸
extensionSubgroup
(closedFixingSubgroup K (SeparableClosure K)
(⊥ : IntermediateField K (SeparableClosure K)))
(finiteGaloisClosedFixingSubgroupOfEmbedding K L i)
(fixingSubgroupLeBase K (SeparableClosure K)
(finiteGaloisFieldRangeOfEmbedding K L i)))
let e := finiteGaloisAbstractQuotientEquivGaloisGroupOfEmbedding K L i
exact
{ is_comm.comm := fun x y => by
apply e.injective
simp only [map_mul]
exact
(inferInstance :
IsMulCommutative (Gal(L / K))).is_comm.comm (e x) (e y) }