Proof with eauto with val_erasure.
intros rs r;
unfold reg_erasure...
Qed.
Hint Immediate regs_erasure_refl : regs_erasure.
Hint Immediate val_erasure_list_refl : val_erasure.

(* Specifications: *)
Lemma core_erasure_refl:
forall c,
core_erasure c c.