rw [h2, Zsqrtd.norm_mul]
case intro.intro.refine'_3.inr
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 }
hp' : abs p.re = 1
hq' : abs p.im = 1
h2 : a = star q * u
⊢ Zsqrtd.norm a = 4 * Zsqrtd.norm u
case intro.intro.refine'_3.inr
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 }
hp' : abs p.re = 1
hq' : abs p.im = 1
h2 : a = star q * u
⊢ Zsqrtd.norm (star q) * Zsqrtd.norm u = 4 * Zsqrtd.norm u