src/HOLCF/Discrete0.thy

added defaultS: sg -> sort;
added full_name_path: sg -> string -> bstring -> string;
added add_nonterminals: bstring list -> sg -> sg;

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

Discrete CPOs
*)

Discrete0 = Cont +

datatype 'a discr = Discr 'a

instance discr :: (term)sq_ord

defs
less_discr_def "((op <<)::('a::term)discr=>'a discr=>bool)  ==  op ="

end