HOLCF/Ssum3.ML: changed res_inst_tac [("P"... to res_inst_tac [("Pa" in
some very ugly proofs. Needed to handle new variable names in swap.
(* 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