src/HOL/Hyperreal/Series.thy
author wenzelm
Fri, 05 Oct 2001 21:52:39 +0200
changeset 11701 3d51fbf81c17
parent 10751 a81ea5d3dd41
child 12018 ec054019c910
permissions -rw-r--r--
sane numerals (stage 1): added generic 1, removed 1' and 2 on nat, "num" syntax (still with "#"), Numeral0, Numeral1;

(*  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 = Numeral0"
   sumr_Suc "sumr m (Suc n) f = (if n < m then Numeral0 
                               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