fact: Fixpoint mapM_ `{Applicative m} {A B : Type} (f : A → m B) (l : list A) : m unit := match l with | nil => pure tt | cons x xs => liftA2 (const id) (f x) (mapM_ f xs) end.
imports: Coq.Lists.List Equations(Equations) Equations.Type.EqDec Category.Lib Category.Theory.Coq.Functor Category.Theory.Coq.Applicative Category.Theory.Coq.Monad Category.Theory.Coq.Maybe Coq.Lists.List