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

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).