Definition ox4530_0000 := Int.repr 1160773632.

(* Specifications: *)
Lemma split_bits_or': forall x, split_bits 52 11 (Int64.unsigned (Int64.ofwords ox4530_0000 x)) = (false, Int.unsigned x, 1107).
Lemma from_words_value': forall x, B2R _ _ (from_words ox4530_0000 x) = (bpow radix2 84 + Z2R (Int.unsigned x * two_p 32))%R /\ is_finite _ _ (from_words ox4530_0000 x) = true /\ Bsign _ _ (from_words ox4530_0000 x) = false.
Lemma from_words_eq': forall x, from_words ox4530_0000 x = BofZ 53 1024 __ __ (2^84 + Int.unsigned x * 2^32).
Theorem of_longu_from_words: forall l, of_longu l = add (sub (from_words ox4530_0000 (Int64.hiword l)) (from_words ox4530_0000 (Int.repr (two_p 20)))) (from_words ox4330_0000 (Int64.loword l)).
Theorem of_long_from_words: forall l, of_long l = add (sub (from_words ox4530_0000 (Int.add (Int64.hiword l) ox8000_0000)) (from_words ox4530_0000 (Int.repr (two_p 20+two_p 31)))) (from_words ox4330_0000 (Int64.loword l)).
Theorem of_longu_decomp: forall l, of_longu l = add (mul (of_intu (Int64.hiword l)) (BofZ 53 1024 __ __ (2^32))) (of_intu (Int64.loword l)).
Theorem of_long_decomp: forall l, of_long l = add (mul (of_int (Int64.hiword l)) (BofZ 53 1024 __ __ (2^32))) (of_intu (Int64.loword l)).
Theorem of_longu_of_long_1: forall x, Int64.ltu x (Int64.repr Int64.half_modulus) = true -> of_longu x = of_long x.
Theorem of_longu_of_long_2: forall x, Int64.ltu x (Int64.repr Int64.half_modulus) = false -> of_longu x = mul (of_long (Int64.or (Int64.shru x Int64.one) (Int64.and x Int64.one))) (of_int (Int.repr 2)).