∀ {K : Type u} [inst : Field K] {ζ : K} [inst_1 : CharZero K] {n : ℕ} [IsCyclotomicExtension {n} ℚ K]
  (hζ : IsPrimitiveRoot ζ n) (h₁ : 2 < n),
  (∀ {p : ℕ}, Nat.Prime p → ∀ (k : ℕ), p ^ k ≠ n) →
    have this := ⋯;
    (Algebra.norm ℤ) (hζ.toInteger - 1) = 1