obtain ⟨f, hf⟩ := hdvd
a p : ℤ√(-3)
hdvd : Zsqrtd.norm p ∣ Zsqrtd.norm a
hpprime : Prime (Zsqrtd.norm p)
⊢ ∃ u, a = p * u ∨ a = star p * u
case intro
a p : ℤ√(-3)
hpprime : Prime (Zsqrtd.norm p)
f : ℤ
hf : Zsqrtd.norm a = Zsqrtd.norm p * f
⊢ ∃ u, a = p * u ∨ a = star p * u