src/HOLCF/Discrete.thy
author nipkow
Wed Mar 26 17:58:48 1997 +0100 (1997-03-26)
changeset 2841 c2508f4ab739
child 12030 46d57d0290a2
permissions -rw-r--r--
Added "discrete" CPOs and modified IMP to use those rather than "lift"
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