src/HOLCF/Discrete1.thy

induct method: localize rews for rule;

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

Discrete CPOs.
*)

Discrete1 = Discrete0 +

instance discr :: (term)po
  (less_discr_refl,less_discr_trans,less_discr_antisym)

end