have : i < n.unpair.2 := lt_of_mem_list n.unpair.2 i hi
n : ℕ
this : n.unpair.2 < n + 1
i : ℕ
hi : i ∈ ofNat (List ℕ) n.unpair.2
⊢ i < n + 1
n : ℕ
this✝ : n.unpair.2 < n + 1
i : ℕ
hi : i ∈ ofNat (List ℕ) n.unpair.2
this : i < n.unpair.2
⊢ i < n + 1