turned translation for 1::nat into def.
introduced 1' and replaced most occurrences of 1 by 1'.
(* 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