rw [modEq_iff_dvd, dvd_iff_exists_eq_mul_left] at *
p : ℕ
hp : p.Prime
this✝¹ : Fact p.Prime
m : ℕ := mersenne p
q : ℕ := m.minFac
hq : q.Prime
this✝ : Fact q.Prime
this : q.ModEq (2 ^ p - 1) 0
⊢ q.ModEq (2 ^ p) 1
p : ℕ
hp : p.Prime
this✝¹ : Fact p.Prime
m : ℕ := mersenne p
q : ℕ := m.minFac
hq : q.Prime
this✝ : Fact q.Prime
this : ∃ c, ↑0 - ↑(2 ^ p - 1) = c * ↑q
⊢ ∃ c, ↑1 - ↑(2 ^ p) = c * ↑q