| author | nipkow |
| Thu, 26 Jun 1997 13:20:50 +0200 | |
| changeset 3465 | e85c24717cad |
| parent 3269 | eca2a3634acd |
| child 5184 | 9b8547a9496a |
| permissions | -rw-r--r-- |
| 1476 | 1 |
(* Title: HOL/ex/natsum.thy |
| 969 | 2 |
ID: $Id$ |
| 1476 | 3 |
Author: Tobias Nipkow |
| 969 | 4 |
Copyright 1994 TU Muenchen |
5 |
||
6 |
A summation operator. sum(f,n+1) is the sum of all f(i), i=0...n. |
|
7 |
*) |
|
8 |
||
9 |
NatSum = Arith + |
|
| 1376 | 10 |
consts sum :: [nat=>nat, nat] => nat |
| 3269 | 11 |
primrec "sum" nat |
12 |
"sum f 0 = 0" |
|
13 |
"sum f (Suc n) = f(n) + sum f n" |
|
14 |
||
| 969 | 15 |
end |