Notation int64 := Int64.int.Definition wordsize := if Archi.ptr64 then 64%nat else 32%nat.Remark wordsize_not_zero: wordsize <> 0%nat.Definition to_int (x: int): Int.int := Int.repr (unsigned x).Definition to_int64 (x: int): Int64.int := Int64.repr (unsigned x).Definition of_int (x: Int.int) : int := repr (Int.unsigned x).Definition of_intu := of_int.Definition of_ints (x: Int.int) : int := repr (Int.signed x).Definition of_int64 (x: Int64.int) : int := repr (Int64.unsigned x).Definition of_int64u := of_int64.Definition of_int64s (x: Int64.int) : int := repr (Int64.signed x).

(* Specifications: *)
Lemma modulus_eq32: modulus = Int.modulus.
Lemma eqm32: forall x y, Int.eqm x y <-> eqm x y.