Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOLCF/Discrete.thy
author wenzelm
Thu, 15 Nov 2001 18:20:13 +0100
changeset 12207 4dff931b852f
parent 12030 46d57d0290a2
child 12338 de0f4a63baa5
permissions -rw-r--r--
added Induct/Binary_Trees.thy, Induct/Tree_Forest (converted from former ex/TF.ML ex/TF.thy ex/Term.ML ex/Term.thy);
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2841
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift"
nipkow
parents:
diff changeset 
     1
 
(*  Title:      HOLCF/Discrete.thy
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift"
nipkow
parents:
diff changeset 
     2
 
    ID:         $Id$
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift"
nipkow
parents:
diff changeset 
     3
 
    Author:     Tobias Nipkow
12030
wenzelm
parents: 2841
diff changeset 
     4
 
    License:    GPL (GNU GENERAL PUBLIC LICENSE)
2841
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift"
nipkow
parents:
diff changeset 
     5
 







12030





wenzelm


parents: 
2841

diff
changeset




     6


Discrete CPOs.








2841






c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




     7


*)













c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




     8














c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




     9


Discrete = Discrete1 +













c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    10














c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    11


instance discr :: (term)cpo   (discr_cpo)













c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    12














c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    13


constdefs













c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    14


   undiscr :: ('a::term)discr => 'a













c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    15


  "undiscr x == (case x of Discr y => y)"













c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    16














c2508f4ab739
Added "discrete" CPOs and modified IMP to use those rather than "lift"



nipkow


parents: 

diff
changeset




    17


end















isabelle