right
case right
n : ℕ
i : Fin n
this :
  ArithPart₁ fun v =>
    rfind fun x => Part.some (decide ((fun x x => x * x) v x ≤ v.get i ∧ v.get i < (fun x x => x * x) v (x + 1)))
v : Vector ℕ n
m : ℕ
hm : m < (v.get i).sqrt
⊢ v.get i < m * m ∨ (m + 1) * (m + 1) ≤ v.get i
case right.h
n : ℕ
i : Fin n
this :
  ArithPart₁ fun v =>
    rfind fun x => Part.some (decide ((fun x x => x * x) v x ≤ v.get i ∧ v.get i < (fun x x => x * x) v (x + 1)))
v : Vector ℕ n
m : ℕ
hm : m < (v.get i).sqrt
⊢ (m + 1) * (m + 1) ≤ v.get i