
diff -r 8fe3e66abf0c -r c22b85994e17 src/HOLCF/cont.thy
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOLCF/cont.thy	Wed Jan 19 17:35:01 1994 +0100
@@ -0,0 +1,41 @@
+(*  Title: 	HOLCF/cont.thy
+    ID:         $Id$
+    Author: 	Franz Regensburger
+    Copyright   1993 Technische Universitaet Muenchen
+
+    Results about continuity and monotonicity
+*)
+
+Cont = Fun3 +
+
+(* 
+
+   Now we change the default class! Form now on all untyped typevariables are
+   of default class pcpo
+
+*)
+
+
+default pcpo
+
+consts  
+	monofun :: "('a::po => 'b::po) => bool"	(* monotonicity    *)
+	contlub	:: "('a => 'b) => bool"		(* first cont. def *)
+	contX	:: "('a => 'b) => bool"		(* secnd cont. def *)
+
+rules 
+
+monofun		"monofun(f) == ! x y. x << y --> f(x) << f(y)"
+
+contlub		"contlub(f) == ! Y. is_chain(Y) --> \
+\				f(lub(range(Y))) = lub(range(% i.f(Y(i))))"
+
+contX		"contX(f)   == ! Y. is_chain(Y) --> \
+\				range(% i.f(Y(i))) <<| f(lub(range(Y)))"
+
+(* ------------------------------------------------------------------------ *)
+(* the main purpose of cont.thy is to show:                                 *)
+(*              monofun(f) & contlub(f)  <==> contX(f)                      *)
+(* ------------------------------------------------------------------------ *)
+
+end




