exact Ideal.mul_mem_left _ _ this
p : ℕ+
K : Type u_1
inst✝¹ : Field K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
inst✝ : NumberField K
hp : Fact (↑p).Prime
key : (∏ x ∈ primitiveRoots (↑p) (𝓞 K) \ {↑hζ.unit'}, (1 - x)) * (1 - ↑hζ.unit') = ↑↑p
this✝ : {↑hζ.unit'} ⊆ primitiveRoots (↑p) (𝓞 K)
this : 1 - ↑hζ.unit' ∈ Ideal.span {↑hζ.unit' - 1}
⊢ (∏ x ∈ primitiveRoots (↑p) (𝓞 K) \ {↑hζ.unit'}, (1 - x)) * (1 - ↑hζ.unit') ∈ Ideal.span {↑hζ.unit' - 1}
no goals