src/HOLCF/Ssum3.thy
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 5439 2e0c18eedfd0
child 10834 a7897aebbffc
permissions -rw-r--r--
tidying
     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         sscase  :: "('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 sscase_def      "sscase   == (LAM f g s. Iwhen(f)(g)(s))"
    23 
    24 translations
    25 "case s of sinl`x => t1 | sinr`y => t2" == "sscase`(LAM x. t1)`(LAM y. t2)`s"
    26 
    27 end