# HG changeset patch
# User oheimb
# Date 905350415 -7200
# Node ID c89ee3a46a74101cbf981ededf6622913ef80780
# Parent  f68b9d225942f417f1dbaca29edc2aa78f4c6012
simplified definition of axclass cpo

diff -r f68b9d225942 -r c89ee3a46a74 src/HOLCF/Pcpo.thy
--- a/src/HOLCF/Pcpo.thy	Tue Sep 08 17:07:39 1998 +0200
+++ b/src/HOLCF/Pcpo.thy	Wed Sep 09 16:13:35 1998 +0200
@@ -11,7 +11,7 @@
 (* ********************************************** *)
 axclass cpo < po
         (* class axiom: *)
-  cpo   "chain S ==> ? x. range(S) <<| (x::'a::po)" 
+  cpo   "chain S ==> ? x. range S <<| x" 
 
 (* The class pcpo of pointed cpos *)
 (* ****************************** *)