Proof with eauto with wd.
intros.
destruct v1,v2; simpl; auto;
unfold Val.cmpu, Val.cmpu_bool...
Qed.
Hint Immediate valid_val_cmplu :wd.

(* Specifications: *)
Lemma valid_val_addrmode64:
forall ge rs f fg a,
ren_domain_incr fg f ->
ge_wd fg ge ->
regset_wd f rs ->
valid_val f (eval_addrmode64 ge a rs).
Lemma valid_val_addrmode:
forall ge rs f fg a,
ren_domain_incr fg f ->
ge_wd fg ge ->
regset_wd f rs ->
valid_val f (eval_addrmode ge a rs).
Lemma valid_val_compare_ints:
forall f rs m v1 v2 r,
regset_wd f rs ->
valid_val f (compare_ints v1 v2 rs m r).