author | wenzelm |
Sat, 03 Nov 2001 01:44:45 +0100 | |
changeset 12032 | 0f6417c9a187 |
parent 12031 | 1b883fa9458e |
child 12033 | 69cb2059aadc |
--- a/src/HOLCF/IMP/Denotational.thy Sat Nov 03 01:44:26 2001 +0100 +++ b/src/HOLCF/IMP/Denotational.thy Sat Nov 03 01:44:45 2001 +0100 @@ -10,7 +10,7 @@ constdefs dlift :: "(('a::term) discr -> 'b::pcpo) => ('a lift -> 'b)" - "dlift f == (LAM x. case x of Undef => UU | Def(y) => f$(Discr y))" + "dlift f == (LAM x. case x of UU => UU | Def(y) => f$(Discr y))" consts D :: "com => state discr -> state lift"