Module

FiniteSupport.lean

Nyll.GaloisCohomology.Kummer.Concrete.FiniteSupport
29 declarations indexed from sourceView source ↗

finite radical support

Membership in K(√[n]{Δ}) uses only finitely many of the adjoined roots. For such a finite root set this file chooses the corresponding coefficients in Δ, records them in a finite subset of Kˣ, and forms the subgroup they generate. The resulting subgroup lies in Δ, and every selected root has its n-th power in that finitely generated subgroup.

These are the concrete finite-support data needed for the later reduction to finite Kummer theory; no finite Kummer endpoint is assumed here.

Declarations

KummerTheory.exists_finset_kummerRootSet_of_mem_kummerRadicalExtension

An element of a radical extension belongs to the field generated by a finite subset of the full Kummer root set.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem exists_finset_kummerRootSet_of_mem_kummerRadicalExtension
    (n : ℕ+) (Delta : Subgroup Kˣ) {beta : Omega}
    (hbeta : beta ∈ kummerRadicalExtension (K := K) (Omega := Omega) n Delta) :
    ∃ T : Finset Omega,
      (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta ∧
      beta ∈ IntermediateField.adjoin K (T : Set Omega)
KummerTheory.chosenFiniteSupportCoefficient

For each member of a finite Kummer root set, choose its coefficient in Delta. This choice is made only after the finite root set is known.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def chosenFiniteSupportCoefficient
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta)
    (beta : T) : Delta
KummerTheory.chosenFiniteSupportCoefficient_pow

The chosen coefficient really is the n-th power of its root.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem chosenFiniteSupportCoefficient_pow
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta)
    (beta : T) :
    (beta.1 : Omega) ^ (n : ℕ) =
      algebraMap K Omega ((chosenFiniteSupportCoefficient n Delta T hT beta).1 : K)
KummerTheory.chosenFiniteSupportCoefficientSet

The finite set of base-field coefficients used by the selected roots.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def chosenFiniteSupportCoefficientSet
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta) :
    Finset Kˣ
KummerTheory.chosenFiniteSupportCoefficientSubgroup

The subgroup Delta₀ generated by the finitely many selected coefficients.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def chosenFiniteSupportCoefficientSubgroup
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta) :
    Subgroup Kˣ
KummerTheory.chosenFiniteSupportCoefficient_mem_set

The selected nonzero coefficient belongs to the finite support set.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem chosenFiniteSupportCoefficient_mem_set
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta)
    (beta : T) :
    (chosenFiniteSupportCoefficient n Delta T hT beta).1 ∈
      chosenFiniteSupportCoefficientSet (K := K) (Omega := Omega) n Delta T hT
KummerTheory.chosenFiniteSupportCoefficientSubgroup_le

The finitely generated coefficient subgroup is a subgroup of the original radical subgroup Delta.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem chosenFiniteSupportCoefficientSubgroup_le
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta) :
    chosenFiniteSupportCoefficientSubgroup (K := K) (Omega := Omega) n Delta T hT ≤ Delta
KummerTheory.chosenFiniteSupportCoefficient_mem_subgroup

Each chosen coefficient belongs to the generated subgroup Delta₀.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem chosenFiniteSupportCoefficient_mem_subgroup
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta)
    (beta : T) :
    (chosenFiniteSupportCoefficient n Delta T hT beta).1 ∈
      chosenFiniteSupportCoefficientSubgroup (K := K) (Omega := Omega) n Delta T hT
KummerTheory.finiteSupportRoot_pow_from_coefficientSubgroup

Every selected root is an n-th root of an actual element of the finite-support subgroup Delta₀.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportRoot_pow_from_coefficientSubgroup
    (n : ℕ+) (Delta : Subgroup Kˣ) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta)
    (beta : T) :
    ∃ a : chosenFiniteSupportCoefficientSubgroup (K := K) (Omega := Omega) n Delta T hT,
      (beta.1 : Omega) ^ (n : ℕ) = algebraMap K Omega (a.1 : K)
KummerTheory.exists_finiteKummerSupport

Complete finite-support data extracted from one element of K(√[n]{Delta}): finite roots generating the element, a concrete finite coefficient set, its generated subgroup Delta₀ ≤ Delta, and an n-th-power equation over Delta₀ for every selected root.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem exists_finiteKummerSupport
    (n : ℕ+) (Delta : Subgroup Kˣ) {beta : Omega}
    (hbeta : beta ∈ kummerRadicalExtension (K := K) (Omega := Omega) n Delta) :
    ∃ (T : Finset Omega)
      (hT : (T : Set Omega) ⊆ kummerRootSet (K := K) (Omega := Omega) n Delta),
      beta ∈ IntermediateField.adjoin K (T : Set Omega) ∧
      chosenFiniteSupportCoefficientSubgroup (K := K) (Omega := Omega) n Delta T hT ≤ Delta ∧
      ∀ root : T,
        ∃ a : chosenFiniteSupportCoefficientSubgroup
            (K := K) (Omega := Omega) n Delta T hT,
          (root.1 : Omega) ^ (n : ℕ) = algebraMap K Omega (a.1 : K)
KummerTheory.admissibleFiniteSupportSubgroup

Add all ambient n-th powers to the finite coefficient subgroup. The result is an admissible subgroup-side object for the Kummer correspondence.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def admissibleFiniteSupportSubgroup
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    KummerSubgroup K n
KummerTheory.admissibleFiniteSupportSubgroup_le

The admissible finite-support subgroup still lies in the original admissible subgroup Delta.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem admissibleFiniteSupportSubgroup_le
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    (admissibleFiniteSupportSubgroup
      (K := K) (Omega := Omega) n Delta T hT).1 ≤ Delta.1
KummerTheory.finiteSupportNthPowersSubgroup

The copy of Kˣⁿ inside the admissible finite-support subgroup.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def finiteSupportNthPowersSubgroup
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    Subgroup (admissibleFiniteSupportSubgroup
      (K := K) (Omega := Omega) n Delta T hT).1
KummerTheory.FiniteSupportKummerQuotient

The finite-support quotient Delta₀ / Kˣⁿ.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def FiniteSupportKummerQuotient
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
KummerTheory.finiteSupportKummerQuotient_commGroupInstance

The commutative group structure on the named finite-support Kummer quotient.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
instance finiteSupportKummerQuotient_commGroupInstance
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    CommGroup (FiniteSupportKummerQuotient
      (K := K) (Omega := Omega) n Delta T hT)
KummerTheory.finiteSupportKummerQuotientMulEquiv

Comparison with the group-library presentation of the finite-support Kummer quotient.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def finiteSupportKummerQuotientMulEquiv
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    FiniteSupportKummerQuotient (K := K) (Omega := Omega) n Delta T hT ≃*
      ((admissibleFiniteSupportSubgroup
          (K := K) (Omega := Omega) n Delta T hT).1 ⧸
        finiteSupportNthPowersSubgroup
          (K := K) (Omega := Omega) n Delta T hT)
KummerTheory.finiteSupportKummerQuotientMk

The canonical projection to the named finite-support Kummer quotient.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def finiteSupportKummerQuotientMk
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    (admissibleFiniteSupportSubgroup
        (K := K) (Omega := Omega) n Delta T hT).1 →*
      FiniteSupportKummerQuotient
        (K := K) (Omega := Omega) n Delta T hT
KummerTheory.finiteSupportKummerQuotientMk_eq_one_iff

A finite-support Kummer class is trivial exactly when its representative lies in the defining subgroup.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportKummerQuotientMk_eq_one_iff
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
    (a : (admissibleFiniteSupportSubgroup
      (K := K) (Omega := Omega) n Delta T hT).1) :
    finiteSupportKummerQuotientMk
        (K := K) (Omega := Omega) n Delta T hT a = 1 ↔
      a ∈ finiteSupportNthPowersSubgroup
        (K := K) (Omega := Omega) n Delta T hT
KummerTheory.finiteSupportKummerQuotientMk_eq_iff

Equality of finite-support Kummer classes is characterized by their quotient lying in the defining subgroup.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportKummerQuotientMk_eq_iff
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
    (a b : (admissibleFiniteSupportSubgroup
      (K := K) (Omega := Omega) n Delta T hT).1) :
    finiteSupportKummerQuotientMk
        (K := K) (Omega := Omega) n Delta T hT a =
      finiteSupportKummerQuotientMk
        (K := K) (Omega := Omega) n Delta T hT b ↔
      a / b ∈ finiteSupportNthPowersSubgroup
        (K := K) (Omega := Omega) n Delta T hT
KummerTheory.finiteSupportKummerQuotientMk_surjective

Every finite-support Kummer class has a representative.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportKummerQuotientMk_surjective
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    Function.Surjective
      (finiteSupportKummerQuotientMk
        (K := K) (Omega := Omega) n Delta T hT)
KummerTheory.finiteSupportKummerQuotient_inductionOn

Eliminate a finite-support Kummer quotient through canonical representatives.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportKummerQuotient_inductionOn
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
    {motive : FiniteSupportKummerQuotient
      (K := K) (Omega := Omega) n Delta T hT → Prop}
    (q : FiniteSupportKummerQuotient
      (K := K) (Omega := Omega) n Delta T hT)
    (mk : ∀ a, motive (finiteSupportKummerQuotientMk
      (K := K) (Omega := Omega) n Delta T hT a)) :
    motive q
KummerTheory.finiteSupportKummerQuotientLift

Descend a homomorphism through the named finite-support quotient.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def finiteSupportKummerQuotientLift {M : Type*} [Group M]
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
    (f : (admissibleFiniteSupportSubgroup
      (K := K) (Omega := Omega) n Delta T hT).1 →* M)
    (hf : finiteSupportNthPowersSubgroup
      (K := K) (Omega := Omega) n Delta T hT ≤ MonoidHom.ker f) :
    FiniteSupportKummerQuotient
      (K := K) (Omega := Omega) n Delta T hT →* M
KummerTheory.finiteSupportKummerQuotientLift_mk

The finite-support quotient lift evaluates on a representative by the chosen lift.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportKummerQuotientLift_mk {M : Type*} [Group M]
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
    (f : (admissibleFiniteSupportSubgroup
      (K := K) (Omega := Omega) n Delta T hT).1 →* M)
    (hf : finiteSupportNthPowersSubgroup
      (K := K) (Omega := Omega) n Delta T hT ≤ MonoidHom.ker f)
    (a : (admissibleFiniteSupportSubgroup
      (K := K) (Omega := Omega) n Delta T hT).1) :
    finiteSupportKummerQuotientLift
        (K := K) (Omega := Omega) n Delta T hT f hf
        (finiteSupportKummerQuotientMk
          (K := K) (Omega := Omega) n Delta T hT a) = f a
KummerTheory.finiteSupportRoot_pow_from_admissibleSubgroup

A selected root still has its n-th power in the enlarged admissible subgroup Delta₀.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportRoot_pow_from_admissibleSubgroup
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
    (root : T) :
    ∃ a : (admissibleFiniteSupportSubgroup
        (K := K) (Omega := Omega) n Delta T hT).1,
      (root.1 : Omega) ^ (n : ℕ) = algebraMap K Omega (a.1 : K)
KummerTheory.chosenFiniteSupportCoefficientToQuotient

The quotient map restricted to the finitely generated coefficient subgroup.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
def chosenFiniteSupportCoefficientToQuotient
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    chosenFiniteSupportCoefficientSubgroup (K := K) (Omega := Omega) n Delta.1 T hT →*
      FiniteSupportKummerQuotient (K := K) (Omega := Omega) n Delta T hT
KummerTheory.chosenFiniteSupportCoefficientToQuotient_surjective

The finite coefficient subgroup generates Delta₀ / Kˣⁿ.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem chosenFiniteSupportCoefficientToQuotient_surjective
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    Function.Surjective
      (chosenFiniteSupportCoefficientToQuotient
        (K := K) (Omega := Omega) n Delta T hT)
KummerTheory.finiteSupportKummerQuotient_pow_eq_one

Every element of Delta₀ / Kˣⁿ is killed by n.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportKummerQuotient_pow_eq_one
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1)
    (q : FiniteSupportKummerQuotient
      (K := K) (Omega := Omega) n Delta T hT) :
    q ^ (n : ℕ) = 1
KummerTheory.finiteSupportKummerQuotient_finite

The restricted radical quotient Delta₀ / Kˣⁿ is finite: it is a finitely generated commutative group, generated by the selected coefficients, and every element is killed by n.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem finiteSupportKummerQuotient_finite
    (n : ℕ+) (Delta : KummerSubgroup K n) (T : Finset Omega)
    (hT : (T : Set Omega) ⊆
      kummerRootSet (K := K) (Omega := Omega) n Delta.1) :
    Finite (FiniteSupportKummerQuotient
      (K := K) (Omega := Omega) n Delta T hT)
KummerTheory.exists_admissibleFiniteKummerSupport

Full admissible finite-support package extracted from one element of K(√[n]{Delta}). In addition to the finite root support, it produces the admissible subgroup Delta₀ ≤ Delta, power equations over Delta₀, and the finiteness of Delta₀ / Kˣⁿ.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

noncomputable section
namespace KummerTheory
variable {K Omega : Type*} [Field K] [Field Omega] [Algebra K Omega]
theorem exists_admissibleFiniteKummerSupport
    (n : ℕ+) (Delta : KummerSubgroup K n) {beta : Omega}
    (hbeta : beta ∈
      kummerRadicalExtension (K := K) (Omega := Omega) n Delta.1) :
    ∃ (T : Finset Omega)
      (hT : (T : Set Omega) ⊆
        kummerRootSet (K := K) (Omega := Omega) n Delta.1),
      beta ∈ IntermediateField.adjoin K (T : Set Omega) ∧
      (admissibleFiniteSupportSubgroup
        (K := K) (Omega := Omega) n Delta T hT).1 ≤ Delta.1 ∧
      (∀ root : T,
        ∃ a : (admissibleFiniteSupportSubgroup
            (K := K) (Omega := Omega) n Delta T hT).1,
          (root.1 : Omega) ^ (n : ℕ) = algebraMap K Omega (a.1 : K)) ∧
      Finite (FiniteSupportKummerQuotient
        (K := K) (Omega := Omega) n Delta T hT)