fact: Fixpoint compute_ATele_from_rev_params {s} (i : ITele s) (l : mlist dyn) {struct l} : M (ATele i) := match i as i, l return M (ATele i) with | iBase _, mnil => M.ret tt | iTele f, arg :m: l => arg <- M.coerce arg; rec <- compute_ATele_from_rev_params (f arg) l; M.ret (existT _ arg rec) | _, _ => M.failwith "bug" end.
imports: Mtac2(Logic Datatypes List Sorts Base MTeleMatch MFix) Mtac2.tactics(Tactics ImportedTactics) Strings.String