Hint Resolve regs_erasure_set_undef : regs_erasure.

(* Specifications: *)
Lemma regs_erasure_set_res:
forall res v v' rs rs'
(Hregs: regs_erasure rs rs')
(Hval: val_erasure v v'),
regs_erasure (set_res res v rs) (set_res res v' rs').