letI : Fact (PNat.Prime p') := hpri
p : ℕ
hpri : Fact p.Prime
n : ℤ
p' : ℕ+ := ⟨p, ⋯⟩
⊢ 1 - zeta p ∣ ↑n ↔ ↑p ∣ n
p : ℕ
hpri : Fact p.Prime
n : ℤ
p' : ℕ+ := ⟨p, ⋯⟩
this : Fact p'.Prime := hpri
⊢ 1 - zeta p ∣ ↑n ↔ ↑p ∣ n