The diff laws must be named: we do "Delsimps [diff_Suc];"
authorpaulson
Tue May 20 11:38:50 1997 +0200 (1997-05-20)
changeset 3235351565b7321b
parent 3234 503f4c8c29eb
child 3236 882e125ed7da
The diff laws must be named: we do "Delsimps [diff_Suc];"
src/HOL/Arith.thy
     1.1 --- a/src/HOL/Arith.thy	Tue May 20 11:37:57 1997 +0200
     1.2 +++ b/src/HOL/Arith.thy	Tue May 20 11:38:50 1997 +0200
     1.3 @@ -28,8 +28,8 @@
     1.4    "Suc m + n = Suc(m + n)"
     1.5  
     1.6  primrec "op -" nat 
     1.7 -  "m - 0 = m"
     1.8 -  "m - Suc n = pred(m - n)"
     1.9 +  diff_0   "m - 0 = m"
    1.10 +  diff_Suc "m - Suc n = pred(m - n)"
    1.11  
    1.12  primrec "op *"  nat 
    1.13    "0 * n = 0"