∀ {K : Type u} {L : Type v} [inst : Field L] {ζ : L} [inst_1 : Field K] [inst_2 : Algebra K L] {k : ℕ},
  IsPrimitiveRoot ζ (2 ^ k) →
    2 ≤ k →
      ∀ [H : IsCyclotomicExtension {2 ^ k} K L],
        Irreducible (Polynomial.cyclotomic (2 ^ k) K) → (Algebra.norm K) (ζ - 1) = 2