subst hp
case a
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
⊢ (algebraMap ℤ ℚ) ((Algebra.norm ℤ) (↑hζ.unit' - 1)) = (algebraMap ℤ ℚ) (-↑↑p)
case a
K : Type u_1
inst✝² : Field K
inst✝¹ : CharZero K
ζ : K
hpri : Fact (PNat.Prime 2)
inst✝ : IsCyclotomicExtension {2} ℚ K
hζ : IsPrimitiveRoot ζ ↑2
this✝ : NumberField K := IsCyclotomicExtension.numberField {2} ℚ K
this : Fact (↑2).Prime
⊢ (algebraMap ℤ ℚ) ((Algebra.norm ℤ) (↑hζ.unit' - 1)) = (algebraMap ℤ ℚ) (-↑↑2)