Hint Resolve regs_erasure_get regs_erasure_refl regs_erasure_set
: regs_erasure.
Notation the_ge := (@the_ge the_program).
(** ** Result about at_external, after_external and initial_core *)

Lemma halted_erase:
forall c c' h
(HeraseCores: core_erasure c c')
(Hhalted: halted semSem c h),
halted semSem c' h.