src/HOLCF/Lift1.thy
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 5192 704dd3a6d47d
permissions -rw-r--r--
tidying
     1 (*  Title:      HOLCF/Lift1.thy
     2     ID:         $Id$
     3     Author:     Olaf Mueller
     4     Copyright   1996 Technische Universitaet Muenchen
     5 
     6 Lifting types of class term to flat pcpo's
     7 *)
     8 
     9 Lift1 = Cprod3 + Datatype +
    10 
    11 default term
    12 
    13 datatype 'a lift = Undef | Def 'a
    14 
    15 instance lift :: (term)sq_ord
    16 defs 
    17  
    18  less_lift_def  "x << y == (x=y | x=Undef)"
    19 
    20 end