src/HOLCF/Discrete.thy
author wenzelm
Sat Nov 03 01:41:26 2001 +0100 (2001-11-03)
changeset 12030 46d57d0290a2
parent 2841 c2508f4ab739
child 12338 de0f4a63baa5
permissions -rw-r--r--
GPLed;
     1 (*  Title:      HOLCF/Discrete.thy
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4     License:    GPL (GNU GENERAL PUBLIC LICENSE)
     5 
     6 Discrete CPOs.
     7 *)
     8 
     9 Discrete = Discrete1 +
    10 
    11 instance discr :: (term)cpo   (discr_cpo)
    12 
    13 constdefs
    14    undiscr :: ('a::term)discr => 'a
    15   "undiscr x == (case x of Discr y => y)"
    16 
    17 end