src/HOL/SPARK/Examples/Gcd/Gcd.ads
author wenzelm
Sat, 23 May 2015 17:19:37 +0200
changeset 60299 5ae2a2e74c93
parent 41561 d1318f3c86ba
permissions -rw-r--r--
clarified NEWS: document_files are officially required since Isabelle2014, but the absence was tolerated as legacy feature;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
41561
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     1
package Greatest_Common_Divisor
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     2
is
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     3
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     4
   --# function Gcd(A, B: Natural) return Natural;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     5
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     6
   procedure G_C_D(M, N: in Natural; G: out Natural);
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     7
     --# derives G from M, N;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     8
     --# pre M >= 0 and N > 0;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     9
     --# post G = Gcd(M,N);
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    10
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    11
end Greatest_Common_Divisor;