have := Ideal.sub_mem I hpm (Ideal.mul_mem_right (↑k) I h2m)
case intro
p : ℕ+
K : Type u_1
inst✝² : Field K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
inst✝¹ : NumberField K
inst✝ : IsCyclotomicExtension {p} ℚ K
hp : Fact (↑p).Prime
h : p ≠ 2
hpm : ↑↑p ∈ Ideal.span {↑hζ.unit' - 1}
k : ℕ
hk : ↑↑p = 1 + 2 * ↑k
h2m : 2 ∈ Ideal.span {↑hζ.unit' - 1}
⊢ False
case intro
p : ℕ+
K : Type u_1
inst✝² : Field K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
inst✝¹ : NumberField K
inst✝ : IsCyclotomicExtension {p} ℚ K
hp : Fact (↑p).Prime
h : p ≠ 2
hpm : ↑↑p ∈ Ideal.span {↑hζ.unit' - 1}
k : ℕ
hk : ↑↑p = 1 + 2 * ↑k
h2m : 2 ∈ Ideal.span {↑hζ.unit' - 1}
this : ↑↑p - 2 * ↑k ∈ Ideal.span {↑hζ.unit' - 1}
⊢ False