Reimplemented parts of datatype package dealing with datatypes involving
function types. Now also supports functions with more than one argument.
(* Title: HOLCF/Discrete1.thy
ID: $Id$
Author: Tobias Nipkow
License: GPL (GNU GENERAL PUBLIC LICENSE)
Discrete CPOs.
*)
Discrete1 = Discrete0 +
instance discr :: (type) po
(less_discr_refl,less_discr_trans,less_discr_antisym)
end