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.

Lemma MS_match_is_call_cont: forall tfn te sp tm k tk cenv xenv cs, match_cont k tk cenv xenv cs -> Csharpminor.is_call_cont k -> exists tk', corestep_star CMin_core_sem tge (CMin_State tfn Sskip tk sp te) tm (CMin_State tfn Sskip tk' sp te) tm /\ is_call_cont tk' /\ match_cont k tk' cenv nil cs.