src/HOLCF/Up3.thy
author wenzelm
Sat Nov 03 01:41:26 2001 +0100 (2001-11-03)
changeset 12030 46d57d0290a2
parent 10834 a7897aebbffc
child 14981 e73f8140af78
permissions -rw-r--r--
GPLed;
oheimb@2278
     1
(*  Title:      HOLCF/Up3.thy
oheimb@2278
     2
    ID:         $Id$
oheimb@2278
     3
    Author:     Franz Regensburger
wenzelm@12030
     4
    License:    GPL (GNU GENERAL PUBLIC LICENSE)
oheimb@2278
     5
oheimb@2278
     6
Class instance of  ('a)u for class pcpo
oheimb@2278
     7
*)
oheimb@2278
     8
oheimb@2278
     9
Up3 = Up2 +
oheimb@2278
    10
slotosch@2640
    11
instance u :: (pcpo)pcpo      (least_up,cpo_up)
oheimb@2278
    12
slotosch@2640
    13
constdefs  
slotosch@2640
    14
        up  :: "'a -> ('a)u"
wenzelm@3842
    15
       "up  == (LAM x. Iup(x))"
slotosch@2640
    16
        fup :: "('a->'c)-> ('a)u -> 'c"
wenzelm@3842
    17
       "fup == (LAM f p. Ifup(f)(p))"
oheimb@2278
    18
oheimb@2278
    19
translations
nipkow@10834
    20
"case l of up$x => t1" == "fup$(LAM x. t1)$l"
oheimb@2278
    21
oheimb@2278
    22
end
oheimb@2278
    23
oheimb@2278
    24
oheimb@2278
    25