rw [Zsqrtd.smul_re, Zsqrtd.smul_im, isCoprime_mul_unit_left hp']
case intro.intro.refine'_1
a p : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
hp : Zsqrtd.norm p = 4
hq : p.im ≠ 0
heven : Even (Zsqrtd.norm a)
u : ℤ√(-3)
q : ℤ√(-3) := { re := 1, im := 1 }
h2 : a = q * u ∨ a = star q * u
hp' : IsUnit p.re
hq' : abs p.im = 1
⊢ IsCoprime (↑p.re * u).re (↑p.re * u).im
case intro.intro.refine'_1
a p : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
hp : Zsqrtd.norm p = 4
hq : p.im ≠ 0
heven : Even (Zsqrtd.norm a)
u : ℤ√(-3)
q : ℤ√(-3) := { re := 1, im := 1 }
h2 : a = q * u ∨ a = star q * u
hp' : IsUnit p.re
hq' : abs p.im = 1
⊢ IsCoprime u.re u.im