calc
  0 ≤ A.re := hA
  _ = -x.re := ?_
  _ < 0 := ?_
case neg.inr.h
x A : ℤ√(-3)
hx : 0 ≤ x.re
hA : 0 ≤ A.re
u : (ℤ√(-3))ˣ
v : ℤ
hv1 : ↑u = ↑v
hxre : ¬x.re = 0
habsv : v = -1
hu : -x = star A
⊢ 0 < 0
case neg.inr.h.calc_1
x A : ℤ√(-3)
hx : 0 ≤ x.re
hA : 0 ≤ A.re
u : (ℤ√(-3))ˣ
v : ℤ
hv1 : ↑u = ↑v
hxre : ¬x.re = 0
habsv : v = -1
hu : -x = star A
⊢ A.re = -x.re

case neg.inr.h.calc_2
x A : ℤ√(-3)
hx : 0 ≤ x.re
hA : 0 ≤ A.re
u : (ℤ√(-3))ˣ
v : ℤ
hv1 : ↑u = ↑v
hxre : ¬x.re = 0
habsv : v = -1
hu : -x = star A
⊢ -x.re < 0