src/HOLCF/Discrete.thy

bind_thms basic_monos;

(*  Title:      HOLCF/Discrete.thy
    ID:         $Id$
    Author:     Tobias Nipkow
    License:    GPL (GNU GENERAL PUBLIC LICENSE)

Discrete CPOs.
*)

Discrete = Discrete1 +

instance discr :: (type)cpo   (discr_cpo)

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

end