(*Program Definition Asm_core_sem (ge : genv) : @CoreSemantics regset mem := @Build_CoreSemantics _ _ (fun _ => Asm_initial_core ge) (Asm_at_external ge) (fun v q m => Asm_after_external ge v q) (fun _ _ => False) (Asm_step ge) _ (Asm_corestep_not_at_external ge).*)
Definition Asm_core_sem (ge : genv) := sem2coresem (part_semantics ge) (Asm_corestep_not_halted ge).
Section ASM_MEMSEM.

Lemma exec_store_mem_step ge ch m a rs rs0 vals rs' m': forall
(ES: exec_store ge ch m a rs rs0 vals = Next rs' m'),
mem_step m m'.