fact: Definition mfix_multi (ls : list Type) (R : Type) (f : ftype ls (m R) -> ftype ls (m R)) : ftype ls (m R) := @wrap ls (m R) (@mfix _ MF (tuple ls) R (fun packed => apply ls (m R) (f (wrap ls packed)))).
imports: ExtLib.Structures.Monad