# HG changeset patch
# User nipkow
# Date 1105971700 -3600
# Node ID d0cd75f7a3656a9b9dc8565e567886d9499c8838
# Parent  71c0f98e31f15e8258777a083898ade81c2dd8c3
Removed div/mod ML code because it fails for 0.

diff -r 71c0f98e31f1 -r d0cd75f7a365 src/HOL/Integ/NatBin.thy
--- a/src/HOL/Integ/NatBin.thy	Fri Jan 14 12:00:27 2005 +0100
+++ b/src/HOL/Integ/NatBin.thy	Mon Jan 17 15:21:40 2005 +0100
@@ -848,8 +848,10 @@
   "uminus" :: "int => int"      ("`~")
   "op +" :: "int => int => int" ("(_ `+/ _)")
   "op *" :: "int => int => int" ("(_ `*/ _)")
+(* Fails for 0:
   "op div" :: "int => int => int" ("(_ div/ _)")
   "op mod" :: "int => int => int" ("(_ mod/ _)")
+*)
   "op <" :: "int => int => bool" ("(_ </ _)")
   "op <=" :: "int => int => bool" ("(_ <=/ _)")
   "neg"                         ("(_ < 0)")