# HG changeset patch
# User paulson
# Date 931855547 -7200
# Node ID efb605156ca3cb3dfeda4bb3257532836b087d60
# Parent  8113992d3f45a6eafdb92a495cc8eabd83a96cc5
change to force  (m div 0 = 0)

diff -r 8113992d3f45 -r efb605156ca3 src/HOL/Integ/IntDiv.thy
--- a/src/HOL/Integ/IntDiv.thy	Tue Jul 13 10:45:09 1999 +0200
+++ b/src/HOL/Integ/IntDiv.thy	Tue Jul 13 10:45:47 1999 +0200
@@ -45,7 +45,7 @@
   divAlg :: "int*int => int*int"
     "divAlg ==
        %(a,b). if #0<=a then
-                  if #0<b then posDivAlg (a,b)
+                  if #0<=b then posDivAlg (a,b)
                   else if a=#0 then (#0,#0)
                        else negateSnd (negDivAlg (-a,-b))
                else