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/Discrete0.thy
author paulson
Thu, 01 Oct 1998 18:30:05 +0200
changeset 5601 b6456ccd9e3e
parent 5192 704dd3a6d47d
child 12030 46d57d0290a2
permissions -rw-r--r--
revised for new treatment of integers
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/Discrete0.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









5192






704dd3a6d47d
Adapted to new datatype package.



berghofe


parents: 
3323

diff
changeset




     9


Discrete0 = Cont + Datatype +








2841






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



nipkow


parents: 

diff
changeset




    10









5192






704dd3a6d47d
Adapted to new datatype package.



berghofe


parents: 
3323

diff
changeset




    11


datatype 'a discr = Discr "'a :: term"








2841






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



nipkow


parents: 

diff
changeset




    12









3323






194ae2e0c193
eliminated the constant less by the introduction of the axclass sq_ord



slotosch


parents: 
2841

diff
changeset




    13


instance discr :: (term)sq_ord













194ae2e0c193
eliminated the constant less by the introduction of the axclass sq_ord



slotosch


parents: 
2841

diff
changeset




    14









2841






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



nipkow


parents: 

diff
changeset




    15


defs








3323






194ae2e0c193
eliminated the constant less by the introduction of the axclass sq_ord



slotosch


parents: 
2841

diff
changeset




    16


less_discr_def "((op <<)::('a::term)discr=>'a discr=>bool)  ==  op ="








2841






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



nipkow


parents: 

diff
changeset




    17














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



nipkow


parents: 

diff
changeset




    18


end















isabelle