src/HOL/Hyperreal/Series.thy
author paulson
Wed, 10 Jan 2001 17:21:31 +0100
changeset 10857 47b1f34ddd09
parent 10751 a81ea5d3dd41
child 11701 3d51fbf81c17
permissions -rw-r--r--
revisions e.g. images, transitive closure...

(*  Title       : Series.thy
    Author      : Jacques D. Fleuriot
    Copyright   : 1998  University of Cambridge
    Description : Finite summation and infinite series
*) 


Series = SEQ + Lim +

consts sumr :: "[nat,nat,(nat=>real)] => real"
primrec
   sumr_0   "sumr m 0 f = #0"
   sumr_Suc "sumr m (Suc n) f = (if n < m then #0 
                               else sumr m n f + f(n))"

constdefs
   sums  :: [nat=>real,real] => bool     (infixr 80)
   "f sums s  == (%n. sumr 0 n f) ----> s"

   summable :: (nat=>real) => bool
   "summable f == (EX s. f sums s)"

   suminf   :: (nat=>real) => real
   "suminf f == (@s. f sums s)"
end