Proof with eauto with val_erasure.
intros.
destruct v, chunk; simpl; unfold inj_value; simpl;
repeat econstructor...
Qed.

Lemma val_erasure_longoffloat:
forall v v'
(Hval_erasure: val_erasure v v'),
val_erasure (Val.maketotal (Val.longoffloat v)) (Val.maketotal (Val.longoffloat v')).