src/HOLCF/Discrete0.thy
author kleing
Mon Jun 21 10:25:57 2004 +0200 (2004-06-21)
changeset 14981 e73f8140af78
parent 12338 de0f4a63baa5
permissions -rw-r--r--
Merged in license change from Isabelle2004
     1 (*  Title:      HOLCF/Discrete0.thy
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4 
     5 Discrete CPOs.
     6 *)
     7 
     8 Discrete0 = Cont + Datatype +
     9 
    10 datatype 'a discr = Discr "'a :: type"
    11 
    12 instance discr :: (type) sq_ord
    13 
    14 defs
    15 less_discr_def "((op <<)::('a::type)discr=>'a discr=>bool)  ==  op ="
    16 
    17 end