Definition complete_mask (m: int) := Int.zero_ext (Int.size m) Int.mone.

(* Specifications: *)
Lemma iagree_eqmod:
forall x y m,
iagree x y (complete_mask m) ->
Int.eqmod (two_p (Int.size m)) (Int.unsigned x) (Int.unsigned y).
Lemma complete_mask_idem:
forall m, complete_mask (complete_mask m) = complete_mask m.