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 core_inflate_initial_mem':
forall (ora : OK_ty) (m: mem) (prog: program) (G: funspecs) (n: nat)
(INIT: Genv.init_mem prog = Some m),
match_fdecs (prog_funct prog) G ->
list_norepet (prog_defs_names prog) ->
core (inflate_initial_mem m (initial_core_ext ora (Genv.globalenv prog) G n)) =
initial_core (Genv.globalenv prog) G n.