ex/natsum.thy~
author convert-repo
Thu, 23 Jul 2009 14:03:20 +0000
changeset 255 435bf30c29a5
parent 63 94436622324d
permissions -rw-r--r--
update tags

(*  Title: 	HOL/ex/sum.thy
    ID:         $Id$
    Author: 	Tobias Nipkow
    Copyright   1994 TU Muenchen

A summation operator
*)

NatSum = Arith +
consts sum :: "[nat=>nat, nat] => nat"
rules  sum_0   "sum(f,0) = 0"
       sum_Suc "sum(f,Suc(n)) = f(n) + sum(f,n)"
end