Proof with eauto with val_erasure.
intros.
destruct v1,v2; simpl in *; inv Hval_erasure; auto;
unfold Val.cmplu, Val.cmplu_bool; simpl; eauto with val_erasure;
do 2 rewrite andb_if;
repeat match goal with
| [|- context[match ?Expr with | _ => _ end]] =>
destruct Expr eqn:?
end; simpl; eauto with val_erasure.
Qed.
Hint Resolve val_erasure_cmplu : val_erasure.

Lemma loadbytes_erasure:
forall m m' b ofs sz bytes
(Hmem_erasure: mem_erasure m m')
(Hloadbytes: Mem.loadbytes m b ofs sz = Some bytes),
exists bytes',
Mem.loadbytes m' b ofs sz = Some bytes' /\
memval_erasure_list bytes bytes'.