ex/natsum.thy~
author lcp
Thu, 13 Oct 1994 09:39:15 +0100
changeset 153 c0ff8f1ebc16
parent 63 94436622324d
permissions -rw-r--r--
HOL/HOL.ML/selectI2: new rule for descriptions

(*  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