Mercurial Mercurial > repos > isabelle / file revision
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
Wed, 15 Oct 1997 15:12:59 +0200
changeset 3872 a5839ecee7b8
parent 2841 c2508f4ab739
child 12030 46d57d0290a2
permissions -rw-r--r--
tuned; prepare ext;

(*  Title:      HOLCF/Discrete.thy
    ID:         $Id$
    Author:     Tobias Nipkow
    Copyright   1997 TUM

Discrete CPOs
*)

Discrete = Discrete1 +

instance discr :: (term)cpo   (discr_cpo)

constdefs
   undiscr :: ('a::term)discr => 'a
  "undiscr x == (case x of Discr y => y)"

end
isabelle