obtain ⟨h1, h2⟩ := hp
s : Multiset (ℤ√(-3))
p : ℤ√(-3)
hcoprime : IsCoprime s.prod.re s.prod.im
hp : p ∈ s ∧ star p ∈ s
⊢ IsUnit p
case intro
s : Multiset (ℤ√(-3))
p : ℤ√(-3)
hcoprime : IsCoprime s.prod.re s.prod.im
h1 : p ∈ s
h2 : star p ∈ s
⊢ IsUnit p