src/HOLCF/Discrete1.thy

fixed proof to cope with the default of equalityCE instead of equalityE

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

Discrete CPOs
*)

Discrete1 = Discrete0 +

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

end