src/HOL/SPARK/Examples/RIPEMD-160/wordops.adb
author desharna
Tue, 28 Oct 2025 16:12:06 +0100
changeset 83355 5f739af7fb4e
parent 41561 d1318f3c86ba
permissions -rw-r--r--
adapted tptp_graph to use new process_theory command

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;