src/HOL/SPARK/Manual/document/Simple_Gcd.ads
author wenzelm
Mon, 11 Feb 2013 14:39:04 +0100
changeset 51085 d90218288d51
parent 45044 2fae15f8984d
permissions -rw-r--r--
make WWW_Find work again, now that its ML modules reside within a theory context (cf. bf5b45870110) -- patch by Rafal Kolanski;

package Simple_Greatest_Common_Divisor
is

   --# function Gcd (A, B : Natural) return Natural;

   procedure G_C_D (M, N : in Natural; G : out Natural);
     --# derives G from M, N;
     --# pre N > 0;
     --# post G = Gcd (M, N);

end Simple_Greatest_Common_Divisor;