src/HOLCF/Ssum1.thy
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 3842 b55686a7b22c
child 12030 46d57d0290a2
permissions -rw-r--r--
tidying
     1 (*  Title:      HOLCF/Ssum1.thy
     2     ID:         $Id$
     3     Author:     Franz Regensburger
     4     Copyright   1993  Technische Universitaet Muenchen
     5 
     6 Partial ordering for the strict sum ++
     7 *)
     8 
     9 Ssum1 = Ssum0 +
    10 
    11 instance "++"::(pcpo,pcpo)sq_ord
    12 
    13 defs
    14   less_ssum_def "(op <<) == (%s1 s2.@z.
    15          (! u x. s1=Isinl u & s2=Isinl x --> z = u << x)
    16         &(! v y. s1=Isinr v & s2=Isinr y --> z = v << y)
    17         &(! u y. s1=Isinl u & s2=Isinr y --> z = (u = UU))
    18         &(! v x. s1=Isinr v & s2=Isinl x --> z = (v = UU)))"
    19 
    20 end
    21 
    22