∀ {m : Type u_1 → Type u_2} {α : Type u_1} [inst : Monad m] (n : ℕ) (f : α → Fin n → m α) (x : α) (i : ℕ),
  Fin.foldlM.loop✝ n f x i =
    if h : i < n then do
      let x ← f x ⟨i, h⟩
      Fin.foldlM.loop✝¹ n f x (i + 1)
    else pure x