src/HOLCF/Discrete.thy
author kleing
Mon Jun 21 10:25:57 2004 +0200 (2004-06-21)
changeset 14981 e73f8140af78
parent 12338 de0f4a63baa5
child 15555 9d4dbd18ff2d
permissions -rw-r--r--
Merged in license change from Isabelle2004
     1 (*  Title:      HOLCF/Discrete.thy
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4 
     5 Discrete CPOs.
     6 *)
     7 
     8 Discrete = Discrete1 +
     9 
    10 instance discr :: (type)cpo   (discr_cpo)
    11 
    12 constdefs
    13    undiscr :: ('a::type)discr => 'a
    14   "undiscr x == (case x of Discr y => y)"
    15 
    16 end