simp [*]
case step_lt
α : Type
inst✝ : Ord α
n : Nat
first i j : Fin n
arr✝ : Vec α n
first✝ i✝ j✝ : Fin n
fi✝ : first✝ ≤ i✝
ij✝ : i✝ ≤ j✝
x✝³ : first✝ < i✝
x✝² : ↑first✝ ≤ ↑i✝ - 1
x✝¹ : arr✝[i✝] < arr✝[first✝]
x✝ : ↑i✝ - 1 ≤ ↑j✝
ih✝ : (partitionImpl arr✝ first✝ i✝.prev j✝ x✝² x✝).snd[first✝] = arr✝[first✝]
⊢ (partitionImpl arr✝ first✝ i✝ j✝ fi✝ ij✝).snd[first✝] = arr✝[first✝]
no goals