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 eval_testcond_erasure:
forall (c : testcond) rs rs'
(Hrs: regs_erasure rs rs'),
eval_testcond c rs <> None ->
eval_testcond c rs = eval_testcond c rs'.