(*--------------------------------------------------------------------*)

(*NEW:*) (PG: meminj_preserves_globals ge j), match_statesInj prog j (ToState q m) (Cminor_coop.ToState q' m') -> match_cores d j q m q' m'.  Lemma MSI_atExt: forall j c1 m1 c2 m2 (H: match_statesInj prog j (ToState c1 m1) (Cminor_coop.ToState c2 m2) ), (CSharpMin_at_external c1 = None) = (CMin_at_external c2 = None).  Parameter MC_order :  core_data -> core_data -> Prop. Parameter MC_wellfounded: well_founded MC_order. Definition MC_measure (q:CSharpMin_core): nat := match q with | CSharpMin_State fn s k e lenv => seq_left_depth s | _ => O end. (*Parameter MC_measure: CSharpMin_core-> nat.*)
Lemma MS_step_case_SkipSeq:
forall cenv sz f tfn j m tm  e lenv te sp lo hi cs s k tk xenv
(TRF : transl_funbody cenv sz f = OK tfn)
(MINJ : Mem.inject j m tm)
(MK : match_cont (Csharpminor.Kseq s k) tk cenv xenv cs)
(MCS : match_callstack prog j m tm (Frame cenv tfn e lenv te sp lo hi :: cs)
(Mem.nextblock m) (Mem.nextblock tm))