unfold loop at h
n : Nat
p : Fin n → Bool
i : Nat
hi : i ≤ n
k : Fin n
h : loop p i hi = some k
⊢ p k = true
n : Nat
p : Fin n → Bool
i : Nat
hi : i ≤ n
k : Fin n
h :
  (if h : i = n then none
    else
      let_fun hi := ⋯;
      if p ⟨i, hi⟩ = true then some ⟨i, hi⟩ else loop p (i + 1) ⋯) =
    some k
⊢ p k = true