revert results
M : Type u_1 → Type u_2
α : Type u_3
β : Type u_1
inst✝¹ : Monad M
inst✝ : LawfulMonad M
l : List α
f : α → β
fM : α → M β
results : List β
h : ∀ (a : α), fM a = pure (f a)
⊢ mapM.loop fM l results = pure (reverse results ++ map f l)
M : Type u_1 → Type u_2
α : Type u_3
β : Type u_1
inst✝¹ : Monad M
inst✝ : LawfulMonad M
l : List α
f : α → β
fM : α → M β
h : ∀ (a : α), fM a = pure (f a)
⊢ ∀ (results : List β), mapM.loop fM l results = pure (reverse results ++ map f l)