have hdvd : p'.norm ∣ p.norm := by rw [heq]
p p' : ℤ√(-3)
hcoprime : IsCoprime p.re p.im
hcoprime' : IsCoprime p'.re p'.im
h : OddPrimeOrFour (Zsqrtd.norm p)
heq : Zsqrtd.norm p = Zsqrtd.norm p'
⊢ abs p.re = abs p'.re ∧ abs p.im = abs p'.im
p p' : ℤ√(-3)
hcoprime : IsCoprime p.re p.im
hcoprime' : IsCoprime p'.re p'.im
h : OddPrimeOrFour (Zsqrtd.norm p)
heq : Zsqrtd.norm p = Zsqrtd.norm p'
hdvd : Zsqrtd.norm p' ∣ Zsqrtd.norm p
⊢ abs p.re = abs p'.re ∧ abs p.im = abs p'.im