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 tycontext_sub6: forall Vprog Gprog f rho, tc_environ (make_tycontext (fn_params f) (fn_temps f) (fn_vars f) (fn_return f) Vprog Gprog nil) rho -> tc_environ (make_tycontext (fn_params f) nil nil (fn_return f) nil nil nil) rho.