author | oheimb |
Fri, 02 Jun 2000 17:46:32 +0200 | |
changeset 9020 | 1056cbbaeb29 |
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