haveI : Fact (Nat.Prime p) := hpri
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
this : NumberField K := IsCyclotomicExtension.numberField {p} ℚ K
⊢ (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
this✝ : NumberField K := IsCyclotomicExtension.numberField {p} ℚ K
this : Fact (↑p).Prime
⊢ (Algebra.norm ℤ) (↑hζ.unit' - 1) = -↑↑p