(** Theorems on arithmetic operations. *)

Theorem shrxl_shrl_2:
forall n x z,
shrxl x (Vint n) = Some z ->
z = (if Int.eq n Int.zero then x else
shrl (addl x (shrlu (shrl x (Vint (Int.repr 63)))
(Vint (Int.sub (Int.repr 64) n))))
(Vint n)).