1
(*
2
Sums with naturals as index domain
3
$Id$
4
Author: Clemens Ballarin, started 12 December 1996
5
*)
6
7
NatSum = Ring +
8
9
consts
10
SUM :: [nat, nat => 'a] => 'a::ringS
11
12
defs
13
SUM_def "SUM n f == nat_rec <0> (%m sum. f m + sum) (Suc n)"
14
15
end