src/HOL/Hyperreal/Series.thy
author paulson
Sat Dec 30 22:03:47 2000 +0100 (2000-12-30)
changeset 10751 a81ea5d3dd41
child 11701 3d51fbf81c17
permissions -rw-r--r--
separation of HOL-Hyperreal from HOL-Real
paulson@10751
     1
(*  Title       : Series.thy
paulson@10751
     2
    Author      : Jacques D. Fleuriot
paulson@10751
     3
    Copyright   : 1998  University of Cambridge
paulson@10751
     4
    Description : Finite summation and infinite series
paulson@10751
     5
*) 
paulson@10751
     6
paulson@10751
     7
paulson@10751
     8
Series = SEQ + Lim +
paulson@10751
     9
paulson@10751
    10
consts sumr :: "[nat,nat,(nat=>real)] => real"
paulson@10751
    11
primrec
paulson@10751
    12
   sumr_0   "sumr m 0 f = #0"
paulson@10751
    13
   sumr_Suc "sumr m (Suc n) f = (if n < m then #0 
paulson@10751
    14
                               else sumr m n f + f(n))"
paulson@10751
    15
paulson@10751
    16
constdefs
paulson@10751
    17
   sums  :: [nat=>real,real] => bool     (infixr 80)
paulson@10751
    18
   "f sums s  == (%n. sumr 0 n f) ----> s"
paulson@10751
    19
paulson@10751
    20
   summable :: (nat=>real) => bool
paulson@10751
    21
   "summable f == (EX s. f sums s)"
paulson@10751
    22
paulson@10751
    23
   suminf   :: (nat=>real) => real
paulson@10751
    24
   "suminf f == (@s. f sums s)"
paulson@10751
    25
end
paulson@10751
    26
paulson@10751
    27