rw [← ha, Algebra.norm_algebraMap, this, pow_one] at hη
case intro
K : Type u_1
L : Type u_2
inst✝⁵ : Field K
inst✝⁴ : Field L
inst✝³ : NumberField K
inst✝² : Algebra K L
inst✝¹ : IsGalois K L
inst✝ : FiniteDimensional K L
σ : L ≃ₐ[K] L
hσ : ∀ (x : L ≃ₐ[K] L), x ∈ Subgroup.zpowers σ
η : L
hη : (Algebra.norm K) η = 1
hone : orderOf σ = 1
this : finrank K L = 1
a : K
ha : (algebraMap K L) a = η
⊢ ∃ ε, η = ε / σ ε
case intro
K : Type u_1
L : Type u_2
inst✝⁵ : Field K
inst✝⁴ : Field L
inst✝³ : NumberField K
inst✝² : Algebra K L
inst✝¹ : IsGalois K L
inst✝ : FiniteDimensional K L
σ : L ≃ₐ[K] L
hσ : ∀ (x : L ≃ₐ[K] L), x ∈ Subgroup.zpowers σ
η : L
hone : orderOf σ = 1
this : finrank K L = 1
a : K
hη : a = 1
ha : (algebraMap K L) a = η
⊢ ∃ ε, η = ε / σ ε