rfl
m : Type u → Type v
inst✝ : Monad m
α : Type u
n : Nat
f : Fin (n + 1) → α → m α
i : Nat
a : α
h : i + (Nat.zero + 1) = n + 1
⊢ loop f i a (Nat.zero + 1) h = do
    let b ← f { val := i, isLt := (_ : i < n + 1) } a
    loop (f ∘ succ) i b Nat.zero (_ : i + Nat.zero = n)
no goals