Inductive empty_type : Type := .
Definition withtype_of_NDfunspec fs := match fs with
mk_funspec _ _ (rmaps.ConstType A) _ _ _ _ => A | _ => empty_type end.
Definition withtype_of_funspec fs := match fs with
mk_funspec _ _ A _ _ _ _ => A end.

Lemma tc_environ_make_args':
forall {CS: compspecs} argsig retsig bl rho Delta,
tc_environ Delta rho ->
tc_exprlist Delta (snd (split argsig)) bl rho
|-- !! tc_environ (funsig_tycontext (argsig, retsig))
(make_args' (argsig, retsig)
(eval_exprlist (snd (split argsig)) bl) rho).