refine' Complex.norm_eq_one_of_pow_eq_one _ p.ne_zero
case h
K : Type u_1
p : ℕ+
inst✝² : Field K
inst✝¹ : CharZero K
inst✝ : IsCyclotomicExtension {p} ℚ K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
φ : K →+* ℂ
⊢ Complex.abs (φ ζ) = 1
case h
K : Type u_1
p : ℕ+
inst✝² : Field K
inst✝¹ : CharZero K
inst✝ : IsCyclotomicExtension {p} ℚ K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
φ : K →+* ℂ
⊢ φ ζ ^ ↑p = 1