Proof with eauto with val_erasure regs_erasure.
destruct c; simpl.
repeat split...
Qed.
Hint Immediate core_erasure_refl: regs_erasure.

(* Specifications: *)
Lemma regs_erasure_set:
forall rs rs' v v' r
(Hrs_ren: regs_erasure rs rs')
(Hval: val_erasure v v'),
regs_erasure (rs # r <- v) (rs' # r <- v').
Lemma regs_erasure_get:
forall rs rs' r,
regs_erasure rs rs' ->
val_erasure (rs r) (rs' r).