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 obua
Sun, 09 May 2004 23:04:36 +0200
changeset 14722 8e739a6eaf11
parent 12338 de0f4a63baa5
child 14981 e73f8140af78
permissions -rw-r--r--
replaced apply-style proof for instance Multiset :: plus_ac0 by recommended Isar proof style
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









12338






de0f4a63baa5
renamed class "term" to "type" (actually "HOL.type");



wenzelm


parents: 
12030

diff
changeset




    11


instance discr :: (type)cpo   (discr_cpo)








2841






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








12338






de0f4a63baa5
renamed class "term" to "type" (actually "HOL.type");



wenzelm


parents: 
12030

diff
changeset




    14


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








2841






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