(* The following is a slightly stronger result, proving [jmsafe] i.e. a safety that universally quantifies over all schedule each time a part of the schedule is consumed *)

(*  Goal Smallstep.initial_state (semantics2 prog) (initial_corestate).*)
Lemma initial_corestate_initial :
exists b, Genv.find_symbol (globalenv prog) (prog_main prog) = Some b /\
exists m', forall n,
initial_core (Clight_new.cl_core_sem (globalenv prog)) n (proj1_sig init_mem)
initial_corestate m' (Vptr b Ptrofs.zero) nil.