src/HOLCF/Discrete.thy

 Discrete CPOs.
 *)
 
 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