fact: Fixpoint compute_params (ind : dyn) {s} (i : ITele s) : M (mlist dyn) := match i with | iBase _ => M.ret mnil | iTele f => dcase ind as _, ind in '(m: ind, arg) <- M.decompose ind; arg <- M.coerce arg; rec <- compute_params (Dyn ind) (f arg); M.ret (Dyn arg :m: rec) end.
imports: Mtac2(Logic Datatypes List Sorts Base MTeleMatch MFix) Mtac2.tactics(Tactics ImportedTactics) Strings.String