use -a
case inl
d : ℤ
a : ℤ√d
him : a.im ≠ 0
hre : a.re ≤ 0
⊢ ∃ c, norm a = norm c ∧ 0 ≤ c.re ∧ c.im ≠ 0
case inl
d : ℤ
a : ℤ√d
him : a.im ≠ 0
hre : a.re ≤ 0
⊢ norm a = norm (-a) ∧ 0 ≤ (-a).re ∧ (-a).im ≠ 0