doc-src/Tutorial/Misc/natsum
changeset 5377 efb799c5ed3c
equal deleted inserted replaced
5376:60b31a24f1a6 5377:efb799c5ed3c
       
     1 consts sum :: nat => nat
       
     2 primrec
       
     3 "sum 0 = 0"
       
     4 "sum (Suc n) = Suc n + sum n"