Definition main_params (ge: genv) start : Prop :=
  exists b, exists func,
    Genv.find_symbol ge start = Some b /\
        Genv.find_funct ge (Vptr b Ptrofs.zero) = Some (Internal func) /\
        func.(fn_params) = nil.

Lemma funassert_initial_core_ext: forall (ora : OK_ty) (prog: program) ve te V G n, list_norepet (prog_defs_names prog) -> match_fdecs (prog_funct prog) G -> app_pred (funassert (nofunc_tycontext V G) (mkEnviron (filter_genv (globalenv prog)) ve te)) (initial_core_ext ora (Genv.globalenv prog) G n).