# HG changeset patch
# User paulson
# Date 864121130 -7200
# Node ID 351565b7321b99ad940614805621f2f7caebbe86
# Parent  503f4c8c29ebfa7d13dd1984c2a0cf25d615e125
The diff laws must be named: we do "Delsimps [diff_Suc];"

diff -r 503f4c8c29eb -r 351565b7321b src/HOL/Arith.thy
--- a/src/HOL/Arith.thy	Tue May 20 11:37:57 1997 +0200
+++ b/src/HOL/Arith.thy	Tue May 20 11:38:50 1997 +0200
@@ -28,8 +28,8 @@
   "Suc m + n = Suc(m + n)"
 
 primrec "op -" nat 
-  "m - 0 = m"
-  "m - Suc n = pred(m - n)"
+  diff_0   "m - 0 = m"
+  diff_Suc "m - Suc n = pred(m - n)"
 
 primrec "op *"  nat 
   "0 * n = 0"