Program Definition cl_core_sem :
CoreSemantics (Genv.t fundef type) corestate mem :=
@Build_CoreSemantics _ _ _
(*deprecated cl_init_mem*)
cl_initial_core
cl_at_external
cl_after_external
cl_halted
cl_step
cl_corestep_not_at_external
cl_corestep_not_halted _
cl_after_at_external_excl.

Lemma cl_corestep_fun: forall ge m q m1 q1 m2 q2,
cl_step ge q m q1 m1 ->
cl_step ge q m q2 m2 ->
(q1,m1)=(q2,m2).