src/HOL/SPARK/Examples/Gcd/Gcd.ads
author wenzelm
Tue, 22 Jul 2025 12:02:53 +0200
changeset 82894 a8e47bd31965
parent 41561 d1318f3c86ba
permissions -rw-r--r--
back to more basic defaults, independently on the accidental L&F: e.g. relevant for editor_style=false, and session_graph.pdf;

package 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 M >= 0 and N > 0;
     --# post G = Gcd(M,N);

end Greatest_Common_Divisor;