src/HOL/Hyperreal/HSeries.thy
changeset 27435 b3f8e9bdf9a7
parent 22631 7ae5a6ab7bd6
--- a/src/HOL/Hyperreal/HSeries.thy	Tue Jul 01 21:30:12 2008 +0200
+++ b/src/HOL/Hyperreal/HSeries.thy	Wed Jul 02 07:11:57 2008 +0200
@@ -13,7 +13,7 @@
 
 definition
   sumhr :: "(hypnat * hypnat * (nat=>real)) => hypreal" where
-  "sumhr = 
+  [code func del]: "sumhr = 
       (%(M,N,f). starfun2 (%m n. setsum f {m..<n}) M N)"
 
 definition
@@ -22,7 +22,7 @@
 
 definition
   NSsummable :: "(nat=>real) => bool" where
-  "NSsummable f = (\<exists>s. f NSsums s)"
+  [code func del]: "NSsummable f = (\<exists>s. f NSsums s)"
 
 definition
   NSsuminf   :: "(nat=>real) => real" where