src/HOLCF/Cfun3.thy

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOLCF/Cfun3.thy	Wed Jan 19 17:35:01 1994 +0100
@@ -0,0 +1,31 @@
+(*  Title: 	HOLCF/cfun3.thy
+    ID:         $Id$
+    Author: 	Franz Regensburger
+    Copyright   1993 Technische Universitaet Muenchen
+
+Class instance of  -> for class pcpo
+
+*)
+
+Cfun3 = Cfun2 +
+
+arities "->"	:: (pcpo,pcpo)pcpo		(* Witness cfun2.ML *)
+
+consts  
+	Istrictify   :: "('a->'b)=>'a=>'b"
+	strictify    :: "('a->'b)->'a->'b"
+
+rules 
+
+inst_cfun_pcpo	"UU::'a->'b = UU_cfun"
+
+Istrictify_def	"Istrictify(f,x) == (@z.\
+\			  ( x=UU --> z = UU)\
+\			& (~x=UU --> z = f[x]))"	
+
+strictify_def	"strictify == (LAM f x.Istrictify(f,x))"
+
+end
+
+
+