src/HOLCF/Up3.thy
author nipkow
Sun, 22 Dec 2002 10:43:43 +0100
changeset 13763 f94b569cd610
parent 12030 46d57d0290a2
child 14981 e73f8140af78
permissions -rw-r--r--
added print translations tha avoid eta contraction for important binders.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2278
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     1
(*  Title:      HOLCF/Up3.thy
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     2
    ID:         $Id$
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     3
    Author:     Franz Regensburger
12030
wenzelm
parents: 10834
diff changeset
     4
    License:    GPL (GNU GENERAL PUBLIC LICENSE)
2278
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     5
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     6
Class instance of  ('a)u for class pcpo
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     7
*)
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     8
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
     9
Up3 = Up2 +
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    10
2640
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch:
slotosch
parents: 2394
diff changeset
    11
instance u :: (pcpo)pcpo      (least_up,cpo_up)
2278
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    12
2640
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch:
slotosch
parents: 2394
diff changeset
    13
constdefs  
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch:
slotosch
parents: 2394
diff changeset
    14
        up  :: "'a -> ('a)u"
3842
b55686a7b22c fixed dots;
wenzelm
parents: 2640
diff changeset
    15
       "up  == (LAM x. Iup(x))"
2640
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch:
slotosch
parents: 2394
diff changeset
    16
        fup :: "('a->'c)-> ('a)u -> 'c"
3842
b55686a7b22c fixed dots;
wenzelm
parents: 2640
diff changeset
    17
       "fup == (LAM f p. Ifup(f)(p))"
2278
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    18
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    19
translations
10834
a7897aebbffc *** empty log message ***
nipkow
parents: 3842
diff changeset
    20
"case l of up$x => t1" == "fup$(LAM x. t1)$l"
2278
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    21
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    22
end
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    23
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    24
d63ffafce255 *** empty log message ***
oheimb
parents:
diff changeset
    25