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 subsume_semax_body3: forall Vprog Gprog cs f id fs1 fs2, funsig_of_function f = funsig_of_funspec fs2 -> subsume_funspec'' (funsig_tycontext (funsig_of_funspec fs2)) fs1 fs2 -> @semax_body Vprog Gprog cs f (id,fs1) -> @semax_body Vprog Gprog cs f (id,fs2).