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).