clear ‹p ≠ 2›
K : Type u_1
p : ℕ+
hpri : Fact p.Prime
inst✝² : Field K
inst✝¹ : CharZero K
inst✝ : IsCyclotomicExtension {p} ℚ K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
hp✝ : p ≠ 2
hp : p = 2
⊢ (Algebra.norm ℤ) (↑hζ.unit' - 1) = -↑↑p
K : Type u_1
p : ℕ+
hpri : Fact p.Prime
inst✝² : Field K
inst✝¹ : CharZero K
inst✝ : IsCyclotomicExtension {p} ℚ K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
hp : p = 2
⊢ (Algebra.norm ℤ) (↑hζ.unit' - 1) = -↑↑p