src/HOLCF/Cfun3.thy

simplified elimination of chain productions

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