author | wenzelm |
Wed, 08 Mar 2000 17:48:31 +0100 | |
changeset 8364 | 0eb9ee70c8f8 |
parent 243 | c22b85994e17 |
permissions | -rw-r--r-- |
(* Title: HOLCF/fun3.thy ID: $Id$ Author: Franz Regensburger Copyright 1993 Technische Universitaet Muenchen Class instance of => (fun) for class pcpo *) Fun3 = Fun2 + (* default class is still term *) arities fun :: (term,pcpo)pcpo (* Witness fun2.ML *) rules inst_fun_pcpo "UU::'a=>'b::pcpo = UU_fun" end