Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOLCF/Ssum3.thy
author nipkow
Fri, 04 Apr 1997 16:33:28 +0200
changeset 2912 3fac3e8d5d3e
parent 2640 ee4dfce170a0
child 3842 b55686a7b22c
permissions -rw-r--r--
moved inj and surj from Set to Fun and Inv -> inv.

(*  Title:      HOLCF/ssum3.thy
    ID:         $Id$
    Author:     Franz Regensburger
    Copyright   1993 Technische Universitaet Muenchen

Class instance of  ++ for class pcpo
*)

Ssum3 = Ssum2 +

instance "++" :: (pcpo,pcpo)pcpo (least_ssum,cpo_ssum)

consts  
        sinl    :: "'a -> ('a++'b)" 
        sinr    :: "'b -> ('a++'b)" 
        sswhen  :: "('a->'c)->('b->'c)->('a ++ 'b)-> 'c"

defs

sinl_def        "sinl   == (LAM x.Isinl(x))"
sinr_def        "sinr   == (LAM x.Isinr(x))"
sswhen_def      "sswhen   == (LAM f g s.Iwhen(f)(g)(s))"

translations
"case s of sinl`x => t1 | sinr`y => t2" == "sswhen`(LAM x.t1)`(LAM y.t2)`s"

end
isabelle