Program Definition cmin_core_sem :
CoreSemantics Cminor.genv CMin_core mem :=
@Build_CoreSemantics _ _ _ (*_*)
(*cl_init_mem*)
CMin_initial_core
CMin_at_external
CMin_after_external
CMin_halted
coopstep
cmin_coopstep_not_at_external
cmin_coopstep_not_halted
CMin_at_external_halted_excl
CMin_after_at_external_excl.

Lemma CMin_core2state_injective: forall q m q' m',
ToState q m = ToState q' m' -> q'=q /\ m'=m.