(** Powers of two with exponents given as 32-bit ints *)
Definition one_bits' (x: int) : list Int.int :=
List.map Int.repr (Z_one_bits wordsize (unsigned x) 0).
Definition is_power2' (x: int) : option Int.int :=
match Z_one_bits wordsize (unsigned x) 0 with
| i :: nil => Some (Int.repr i)
| _ => None
end.

(* Specifications: *)
Theorem one_bits'_range:
forall x i, In i (one_bits' x) -> Int.ltu i iwordsize' = true.
Theorem one_bits'_range:
forall x i, In i (one_bits' x) -> Int.ltu i iwordsize' = true.