The diff laws must be named: we do "Delsimps [diff_Suc];"
authorpaulson
Tue, 20 May 1997 11:38:50 +0200
changeset 3235 351565b7321b
parent 3234 503f4c8c29eb
child 3236 882e125ed7da
The diff laws must be named: we do "Delsimps [diff_Suc];"
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"