Module Wordsize_Ptrofs.
Definition wordsize := if Archi.ptr64 then 64%nat else 32%nat.
Remark wordsize_not_zero: wordsize <> 0%nat.
Definition agree32 (a: Ptrofs.int) (b: Int.int) : Prop :=
Ptrofs.unsigned a = Int.unsigned b.

Lemma agree32_neg:
forall a1 b1, agree32 a1 b1 -> agree32 (Ptrofs.neg a1) (Int.neg b1).