A root of unity in the fraction field of an integral normal local extension with unchanged residue field comes from the fraction field of the Henselian base.
The unit condition on n makes X ^ n - 1 separable at every root. The root is first pulled into the integral closure, its residue is lifted by Hensel's lemma, and uniqueness of a simple root in the target local domain identifies the two lifts.
Source context 4 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace EtaleFundamentalGroups.Kummer
open Polynomial
universe u v w xtheorem rootOfUnity_mem_fractionBase_of_henselian_of_residue_bijective
{A : Type u} {B : Type v} {K : Type w} {L : Type x}
[CommRing A] [CommRing B] [IsDomain B]
[HenselianLocalRing A] [IsLocalRing B]
[Field K] [Field L]
[Algebra A B] [Algebra A K] [Algebra B L] [Algebra K L]
[Algebra A L] [IsScalarTower A B L] [IsScalarTower A K L]
[IsFractionRing B L] [IsIntegrallyClosed B]
[Algebra.IsIntegral A B] [IsLocalHom (algebraMap A B)]
{n : ℕ} (hnUnit : IsUnit (n : A))
(hresidue : Function.Bijective
(IsLocalRing.ResidueField.map (algebraMap A B)))
(ζ : L) (hζpow : ζ ^ n = 1) :
ζ ∈ Set.range (algebraMap K L)