Section AGREE64.
Hypothesis _64: Archi.ptr64 = true.
Definition agree64 (a: Ptrofs.int) (b: Int64.int) : Prop :=
Ptrofs.unsigned a = Int64.unsigned b.

Lemma agree64_neg:
forall a1 b1, agree64 a1 b1 -> agree64 (Ptrofs.neg a1) (Int64.neg b1).