fact: Definition decompose_app {A} (a : A) : M (dyn *m mlist dyn) := let rec := mfix3 f (A : _) (a : A) (args : mlist dyn) : M (dyn *m mlist dyn) := mtry M.decompose_app'' (S:=fun _ _ => _) a (fun X Y h x => f _ h (Dyn x :m: args) ) with NotAnApplication =n> M.ret (m: Dyn a, args) end in rec _ a mnil .
imports: Mtac2(Base MTele DecomposeApp Tactics List)