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

Lemma exec_load_mem_step ge ch m a rs rd rs' m': forall (EI: exec_load ge ch m a rs rd = Next rs' m'), mem_step m m'.