previous up next
Go backward to Verification (Continued)
Go up to Top
Go forward to Logic Evaluator
RISC-Linz logo

Improvements

More knowledge:

(0') forall m in N, n != 0: gcd(m, n) = gcd(m, m mod n)

Function definition (with recursion term m+n):

Euclid'(m, n) :=
   if m = 0 then n
   else if n = 0 then m
   else if n <= m then Euclid'(m mod n, n)
   else Euclid'(m, n mod m)

Author: Wolfgang Schreiner
Last Modification: November 24, 1999

previous up next