(** Theorems on arithmetic operations. *)

Theorem shrx_shr_2:
forall n x z,
shrx x (Vint n) = Some z ->
z = (if Int.eq n Int.zero then x else
shr (add x (shru (shr x (Vint (Int.repr 31)))
(Vint (Int.sub (Int.repr 32) n))))
(Vint n)).