src/HOLCF/Ssum3.thy
author wenzelm
Thu Aug 27 20:46:36 1998 +0200 (1998-08-27)
changeset 5400 645f46a24c72
parent 3842 b55686a7b22c
child 5439 2e0c18eedfd0
permissions -rw-r--r--
made tutorial first;
     1 (*  Title:      HOLCF/ssum3.thy
     2     ID:         $Id$
     3     Author:     Franz Regensburger
     4     Copyright   1993 Technische Universitaet Muenchen
     5 
     6 Class instance of  ++ for class pcpo
     7 *)
     8 
     9 Ssum3 = Ssum2 +
    10 
    11 instance "++" :: (pcpo,pcpo)pcpo (least_ssum,cpo_ssum)
    12 
    13 consts  
    14         sinl    :: "'a -> ('a++'b)" 
    15         sinr    :: "'b -> ('a++'b)" 
    16         sswhen  :: "('a->'c)->('b->'c)->('a ++ 'b)-> 'c"
    17 
    18 defs
    19 
    20 sinl_def        "sinl   == (LAM x. Isinl(x))"
    21 sinr_def        "sinr   == (LAM x. Isinr(x))"
    22 sswhen_def      "sswhen   == (LAM f g s. Iwhen(f)(g)(s))"
    23 
    24 translations
    25 "case s of sinl`x => t1 | sinr`y => t2" == "sswhen`(LAM x. t1)`(LAM y. t2)`s"
    26 
    27 end