author | paulson |
Wed, 21 Aug 1996 13:22:23 +0200 | |
changeset 1933 | 8b24773de6db |
parent 243 | c22b85994e17 |
permissions | -rw-r--r-- |
(* Title: HOLCF/lift3.thy ID: $Id$ Author: Franz Regensburger Copyright 1993 Technische Universitaet Muenchen Class instance of ('a)u for class pcpo *) Lift3 = Lift2 + arities "u" :: (pcpo)pcpo (* Witness lift2.ML *) consts up :: "'a -> ('a)u" lift :: "('a->'c)-> ('a)u -> 'c" rules inst_lift_pcpo "UU::('a)u = UU_lift" up_def "up == (LAM x.Iup(x))" lift_def "lift == (LAM f p.Ilift(f)(p))" end