(** Conversions between floats and unsigned ints can be defined in terms of conversions between floats and signed ints. (Most processors provide only the latter, forcing the compiler to emulate the former.)   *)
Definition ox8000_0000 := Int.repr Int.half_modulus.  (**r [0x8000_0000] *)

Theorem of_intu_of_int_2:
forall x,
Int.ltu x ox8000_0000 = false ->
of_intu x = add (of_int (Int.sub x ox8000_0000)) (of_intu ox8000_0000).