doc-src/Tutorial/Misc/NatSum.thy
changeset 15339 a7b603bbc1e6
parent 15338 08519594b0e4
child 15340 cd18d7b73a64
equal deleted inserted replaced
15338:08519594b0e4 15339:a7b603bbc1e6
     1 NatSum = Main +
       
     2 consts sum :: nat => nat
       
     3 primrec
       
     4 "sum 0 = 0"
       
     5 "sum (Suc n) = Suc n + sum n"
       
     6 end