(*To prove memsem*)
(* Definition empty_function : function := mkfunction (mksignature nil None cc_default) nil.  Definition funsig (fd: Asm.fundef) := match fd with | Internal f => fn_sig f | External ef => ef_sig ef end. *)

Lemma Asm_corestep_not_halted :
forall ge m q m' q' i, step2corestep (part_semantics ge) q m q' m' -> ~final_state q i.