src/HOLCF/Cfun3.thy
author lcp
Thu, 12 Jan 1995 03:00:58 +0100
changeset 850 a744f9749885
parent 442 13ac1fd0a14d
child 1150 66512c9e6bd6
permissions -rw-r--r--
Added constants Ord_alt, ++, **

(*  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