Proof with eauto with wd.
intros.
intro r.
unfold Pregmap.get...
Qed.

(* Specifications: *)
Lemma regset_wd_compare_longs:
forall f rs m v1 v2,
regset_wd f rs ->
regset_wd f (compare_longs v1 v2 rs m).
Lemma valid_val_compare_floats:
forall f rs v1 v2 r,
regset_wd f rs ->
valid_val f (compare_floats v1 v2 rs r).
Lemma valid_val_compare_floats32:
forall f rs v1 v2 r,
regset_wd f rs ->
valid_val f (compare_floats32 v1 v2 rs r).