src/HOL/SPARK/Examples/Gcd/Gcd.ads
changeset 41561 d1318f3c86ba
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/HOL/SPARK/Examples/Gcd/Gcd.ads	Sat Jan 15 12:35:29 2011 +0100
     1.3 @@ -0,0 +1,11 @@
     1.4 +package Greatest_Common_Divisor
     1.5 +is
     1.6 +
     1.7 +   --# function Gcd(A, B: Natural) return Natural;
     1.8 +
     1.9 +   procedure G_C_D(M, N: in Natural; G: out Natural);
    1.10 +     --# derives G from M, N;
    1.11 +     --# pre M >= 0 and N > 0;
    1.12 +     --# post G = Gcd(M,N);
    1.13 +
    1.14 +end Greatest_Common_Divisor;