End CORESTEPS.

Lemma EFF_switch_ascent:
forall f n sp e m cenv xenv k ls k1,
let tbl := switch_table ls O in
let ls' := select_switch n ls in
transl_lblstmt_cont cenv xenv ls k k1 ->
exists k2,
effstep_star cmin_eff_sem tge EmptyEffect
(CMin_State f (Sexit (Switch.switch_target n (length tbl) tbl)) k1 sp e) m
(CMin_State f (Sexit O) k2 sp e) m
/\ transl_lblstmt_cont cenv xenv ls' k k2.