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.