src/HOLCF/Discrete0.thy
author wenzelm
Thu Aug 27 20:46:36 1998 +0200 (1998-08-27)
changeset 5400 645f46a24c72
parent 5192 704dd3a6d47d
child 12030 46d57d0290a2
permissions -rw-r--r--
made tutorial first;
     1 (*  Title:      HOLCF/Discrete0.thy
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4     Copyright   1997 TUM
     5 
     6 Discrete CPOs
     7 *)
     8 
     9 Discrete0 = Cont + Datatype +
    10 
    11 datatype 'a discr = Discr "'a :: term"
    12 
    13 instance discr :: (term)sq_ord
    14 
    15 defs
    16 less_discr_def "((op <<)::('a::term)discr=>'a discr=>bool)  ==  op ="
    17 
    18 end