use -1
case inl
a p : ℤ√(-3)
hpprime : Prime (Zsqrtd.norm p)
f : ℤ
hf : Zsqrtd.norm a = Zsqrtd.norm p * f
h0 : Zsqrtd.norm p ∣ p.re * a.im - a.re * p.im
⊢ ∃ A, Zsqrtd.norm p ∣ p.re * a.im + ↑A * a.re * p.im
case inl
a p : ℤ√(-3)
hpprime : Prime (Zsqrtd.norm p)
f : ℤ
hf : Zsqrtd.norm a = Zsqrtd.norm p * f
h0 : Zsqrtd.norm p ∣ p.re * a.im - a.re * p.im
⊢ Zsqrtd.norm p ∣ p.re * a.im + ↑(-1) * a.re * p.im