src/HOLCF/Discrete0.thy
author berghofe
Mon, 19 Nov 2001 17:36:05 +0100
changeset 12233 3348aa8061d1
parent 12030 46d57d0290a2
child 12338 de0f4a63baa5
permissions -rw-r--r--
- Fixed bug in shrink - Restored old behaviour of thm_proof - Eliminated reference from theory data

(*  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 :: term"

instance discr :: (term)sq_ord

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

end