rw [← eval_one_cyclotomic_prime (R := 𝓞 K) (p := p),
  cyclotomic_eq_prod_X_sub_primitiveRoots hζ.unit'_coe, eval_prod]
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
⊢ Associated ((↑hζ.unit' - 1) ^ (↑p - 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
⊢ Associated ((↑hζ.unit' - 1) ^ (↑p - 1)) (∏ j ∈ primitiveRoots (↑p) (𝓞 K), eval 1 (X - C j))