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
slotosch@2640
     1
(*  Title:      HOLCF/Ssum1.thy
nipkow@243
     2
    ID:         $Id$
clasohm@1479
     3
    Author:     Franz Regensburger
nipkow@243
     4
    Copyright   1993  Technische Universitaet Muenchen
nipkow@243
     5
nipkow@243
     6
Partial ordering for the strict sum ++
nipkow@243
     7
*)
nipkow@243
     8
nipkow@243
     9
Ssum1 = Ssum0 +
nipkow@243
    10
slotosch@3323
    11
instance "++"::(pcpo,pcpo)sq_ord
slotosch@3323
    12
slotosch@2640
    13
defs
slotosch@3323
    14
  less_ssum_def "(op <<) == (%s1 s2.@z.
wenzelm@3842
    15
         (! u x. s1=Isinl u & s2=Isinl x --> z = u << x)
wenzelm@3842
    16
        &(! v y. s1=Isinr v & s2=Isinr y --> z = v << y)
wenzelm@3842
    17
        &(! u y. s1=Isinl u & s2=Isinr y --> z = (u = UU))
wenzelm@3842
    18
        &(! v x. s1=Isinr v & s2=Isinl x --> z = (v = UU)))"
nipkow@243
    19
nipkow@243
    20
end
nipkow@243
    21
nipkow@243
    22