Proof with eauto with val_erasure.
intros.
destruct v1; inv H; simpl...
destruct q; simpl; unfold inj_value; simpl;
repeat (econstructor; simpl; auto).
Qed.

(* Specifications: *)
Lemma repeat_Undef_erasure_self :
forall (n : nat),
memval_erasure_list (list_repeat n Undef) (list_repeat n Undef).
Lemma repeat_Undef_inject_encode_val :
forall (chunk : memory_chunk) (v : val),
memval_erasure_list (list_repeat (size_chunk_nat chunk) Undef)
(encode_val chunk v).