fact: Fixpoint replicateM_ `{Monad m} (n : nat) (x : m unit) : m unit := match n with | O => pure tt | S n' => x >> replicateM_ n' x 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