fact: Definition map {A B} (f : A -> t B) := mfix1 rec (l : mlist A) : M (mlist B) := match l with | [m:] => ret [m:] | x :m: xs => mcons <$> f x <*> rec xs end.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)