refine' ⟨u, hu, _⟩
case intro
a p : ℤ√(-3)
hdvd : p.norm ∣ a.norm
hpprime : Prime p.norm
u : ℤ√(-3)
hu : a = p * u ∨ a = star p * u
⊢ ∃ u, (a = p * u ∨ a = star p * u) ∧ a.norm = p.norm * u.norm
case intro
a p : ℤ√(-3)
hdvd : p.norm ∣ a.norm
hpprime : Prime p.norm
u : ℤ√(-3)
hu : a = p * u ∨ a = star p * u
⊢ a.norm = p.norm * u.norm