src/HOLCF/Discrete.thy

--- a/src/HOLCF/Discrete.thy	Sat Dec 01 18:51:46 2001 +0100
+++ b/src/HOLCF/Discrete.thy	Sat Dec 01 18:52:32 2001 +0100
@@ -8,10 +8,10 @@
 
 Discrete = Discrete1 +
 
-instance discr :: (term)cpo   (discr_cpo)
+instance discr :: (type)cpo   (discr_cpo)
 
 constdefs
-   undiscr :: ('a::term)discr => 'a
+   undiscr :: ('a::type)discr => 'a
   "undiscr x == (case x of Discr y => y)"
 
 end