| author | wenzelm |
| Thu Aug 27 20:46:36 1998 +0200 (1998-08-27) | |
| changeset 5400 | 645f46a24c72 |
| parent 2841 | c2508f4ab739 |
| child 12030 | 46d57d0290a2 |
| permissions | -rw-r--r-- |
| nipkow@2841 | 1 |
(* Title: HOLCF/Discrete.thy |
| nipkow@2841 | 2 |
ID: $Id$ |
| nipkow@2841 | 3 |
Author: Tobias Nipkow |
| nipkow@2841 | 4 |
Copyright 1997 TUM |
| nipkow@2841 | 5 |
|
| nipkow@2841 | 6 |
Discrete CPOs |
| nipkow@2841 | 7 |
*) |
| nipkow@2841 | 8 |
|
| nipkow@2841 | 9 |
Discrete = Discrete1 + |
| nipkow@2841 | 10 |
|
| nipkow@2841 | 11 |
instance discr :: (term)cpo (discr_cpo) |
| nipkow@2841 | 12 |
|
| nipkow@2841 | 13 |
constdefs |
| nipkow@2841 | 14 |
undiscr :: ('a::term)discr => 'a
|
| nipkow@2841 | 15 |
"undiscr x == (case x of Discr y => y)" |
| nipkow@2841 | 16 |
|
| nipkow@2841 | 17 |
end |