obtain ⟨u', hu'⟩ := step1 hcoprime heven
a : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
heven : Even (Zsqrtd.norm a)
⊢ ∃ u, IsCoprime u.re u.im ∧ Zsqrtd.norm a = 4 * Zsqrtd.norm u
case intro
a : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
heven : Even (Zsqrtd.norm a)
u' : ℤ√(-3)
hu' : a = { re := 1, im := 1 } * u' ∨ a = { re := 1, im := -1 } * u'
⊢ ∃ u, IsCoprime u.re u.im ∧ Zsqrtd.norm a = 4 * Zsqrtd.norm u