src/ZF/Arith.thy
changeset 1478 2b8c2a7547ab
parent 1401 0c439768f45c
child 2469 b50b8c0eec01
     1.1 --- a/src/ZF/Arith.thy	Mon Feb 05 21:33:14 1996 +0100
     1.2 +++ b/src/ZF/Arith.thy	Tue Feb 06 12:27:17 1996 +0100
     1.3 @@ -1,6 +1,6 @@
     1.4 -(*  Title: 	ZF/arith.thy
     1.5 +(*  Title:      ZF/arith.thy
     1.6      ID:         $Id$
     1.7 -    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
     1.8 +    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     1.9      Copyright   1992  University of Cambridge
    1.10  
    1.11  Arithmetic operators and their definitions
    1.12 @@ -9,11 +9,11 @@
    1.13  Arith = Epsilon + "simpdata" +
    1.14  consts
    1.15      rec  :: [i, i, [i,i]=>i]=>i
    1.16 -    "#*" :: [i,i]=>i      		(infixl 70)
    1.17 -    div  :: [i,i]=>i      		(infixl 70) 
    1.18 -    mod  :: [i,i]=>i      		(infixl 70)
    1.19 -    "#+" :: [i,i]=>i      		(infixl 65)
    1.20 -    "#-" :: [i,i]=>i      		(infixl 65)
    1.21 +    "#*" :: [i,i]=>i                    (infixl 70)
    1.22 +    div  :: [i,i]=>i                    (infixl 70) 
    1.23 +    mod  :: [i,i]=>i                    (infixl 70)
    1.24 +    "#+" :: [i,i]=>i                    (infixl 65)
    1.25 +    "#-" :: [i,i]=>i                    (infixl 65)
    1.26  
    1.27  defs
    1.28      rec_def  "rec(k,a,b) ==  transrec(k, %n f. nat_case(a, %m. b(m, f`m), n))"