src/HOL/SPARK/Examples/RIPEMD-160/wordops.adb

tuned signature (again, amending f32ac01aef5e), e.g. relevant for Isabelle/DOF;

package body Wordops is

   function Rotate(I : Rotate_Amount; W : Word) return Word
   is
   begin
      return Interfaces.Rotate_Left (W, I);
   end Rotate;

end Wordops;