src/HOLCF/Up3.thy
author wenzelm
Thu Aug 27 20:46:36 1998 +0200 (1998-08-27)
changeset 5400 645f46a24c72
parent 3842 b55686a7b22c
child 10834 a7897aebbffc
permissions -rw-r--r--
made tutorial first;
oheimb@2278
     1
(*  Title:      HOLCF/Up3.thy
oheimb@2278
     2
    ID:         $Id$
oheimb@2278
     3
    Author:     Franz Regensburger
oheimb@2278
     4
    Copyright   1993 Technische Universitaet Muenchen
oheimb@2278
     5
oheimb@2278
     6
oheimb@2278
     7
Class instance of  ('a)u for class pcpo
oheimb@2278
     8
oheimb@2278
     9
*)
oheimb@2278
    10
oheimb@2278
    11
Up3 = Up2 +
oheimb@2278
    12
slotosch@2640
    13
instance u :: (pcpo)pcpo      (least_up,cpo_up)
oheimb@2278
    14
slotosch@2640
    15
constdefs  
slotosch@2640
    16
        up  :: "'a -> ('a)u"
wenzelm@3842
    17
       "up  == (LAM x. Iup(x))"
slotosch@2640
    18
        fup :: "('a->'c)-> ('a)u -> 'c"
wenzelm@3842
    19
       "fup == (LAM f p. Ifup(f)(p))"
oheimb@2278
    20
oheimb@2278
    21
translations
wenzelm@3842
    22
"case l of up`x => t1" == "fup`(LAM x. t1)`l"
oheimb@2278
    23
oheimb@2278
    24
end
oheimb@2278
    25
oheimb@2278
    26
oheimb@2278
    27