Admitted. (*Maybe include mem_step in Events.extcall_properties.?*)
Admitted. (*Maybe include mem_step in Events.extcall_properties.?*)

Lemma CLC_corestep_mem:
forall (g : genv) c (m : mem) c'  (m' : mem),
semantics.corestep (cl_core_sem g) c m c' m' ->
semantics.mem_step m m'.