src/HOLCF/Discrete0.thy
author paulson
Fri, 21 Nov 2003 11:15:40 +0100
changeset 14265 95b42e69436c
parent 12338 de0f4a63baa5
child 14981 e73f8140af78
permissions -rw-r--r--
HOL: installation of Ring_and_Field as the basis for Naturals and Reals

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

Discrete CPOs.
*)

Discrete0 = Cont + Datatype +

datatype 'a discr = Discr "'a :: type"

instance discr :: (type) sq_ord

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

end