added print translations tha avoid eta contraction for important binders.
(* 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