author | nipkow |
Mon, 13 Dec 2004 18:41:49 +0100 | |
changeset 15407 | 9e85d2b04867 |
parent 14981 | e73f8140af78 |
permissions | -rw-r--r-- |
2278 | 1 |
(* Title: HOLCF/Up3.thy |
2 |
ID: $Id$ |
|
3 |
Author: Franz Regensburger |
|
4 |
||
5 |
Class instance of ('a)u for class pcpo |
|
6 |
*) |
|
7 |
||
8 |
Up3 = Up2 + |
|
9 |
||
2640 | 10 |
instance u :: (pcpo)pcpo (least_up,cpo_up) |
2278 | 11 |
|
2640 | 12 |
constdefs |
13 |
up :: "'a -> ('a)u" |
|
3842 | 14 |
"up == (LAM x. Iup(x))" |
2640 | 15 |
fup :: "('a->'c)-> ('a)u -> 'c" |
3842 | 16 |
"fup == (LAM f p. Ifup(f)(p))" |
2278 | 17 |
|
18 |
translations |
|
10834 | 19 |
"case l of up$x => t1" == "fup$(LAM x. t1)$l" |
2278 | 20 |
|
21 |
end |
|
22 |
||
23 |
||
24 |