replace h2 : a = q * u ∨ a = star q * u := h2
case intro
a p : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
hp : p.norm = 4
hq : p.im ≠ 0
heven : Even a.norm
u : ℤ√(-3)
q : ℤ√(-3) := { re := 1, im := 1 }
h2 : a = q * u ∨ a = { re := 1, im := -1 } * u
⊢ ∃ u, IsCoprime u.re u.im ∧ (a = p * u ∨ a = star p * u) ∧ a.norm = 4 * u.norm
case intro
a p : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
hp : p.norm = 4
hq : p.im ≠ 0
heven : Even a.norm
u : ℤ√(-3)
q : ℤ√(-3) := { re := 1, im := 1 }
h2 : a = q * u ∨ a = star q * u
⊢ ∃ u, IsCoprime u.re u.im ∧ (a = p * u ∨ a = star p * u) ∧ a.norm = 4 * u.norm