obtain rfl | rfl := 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
⊢ a.norm = p.norm * u.norm
case intro.inl
p : ℤ√(-3)
hpprime : Prime p.norm
u : ℤ√(-3)
hdvd : p.norm ∣ (p * u).norm
⊢ (p * u).norm = p.norm * u.norm

case intro.inr
p : ℤ√(-3)
hpprime : Prime p.norm
u : ℤ√(-3)
hdvd : p.norm ∣ (star p * u).norm
⊢ (star p * u).norm = p.norm * u.norm