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 oheimb
Thu, 30 Oct 1997 14:17:33 +0100
changeset 4041 4df7f385fe9f
parent 2841 c2508f4ab739
child 12030 46d57d0290a2
permissions -rw-r--r--
domain package: * theorems are stored in the theory * creates hierachical name space * minor changes to some names and values (for consistency), e.g. cases -> casedist, dists_eq -> dist_eqs, [take_lemma] -> take_lemmas * separator between mutual domain definitions changed from "," to "and" * minor debugging of Domain_Library.mk_var_names
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
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift"
nipkow
parents:
diff changeset 
     4
 
    Copyright   1997 TUM
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift"
nipkow
parents:
diff changeset 
     5
 












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



nipkow


parents: 

diff
changeset




     6


Discrete CPOs













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