isabelle: src/HOLCF/Ssum3.thy@a1d2735f5ade (annotated)

243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	1	(* Title: HOLCF/ssum3.thy
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	2	ID: $Id$
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	3	Author: Franz Regensburger
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	4	Copyright 1993 Technische Universitaet Muenchen
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	5
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	6	Class instance of ++ for class pcpo
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	7	*)
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	8
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	9	Ssum3 = Ssum2 +
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	10
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	11	arities "++" :: (pcpo,pcpo)pcpo (* Witness ssum2.ML *)
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	12
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	13	consts
1168 74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	14	sinl :: "'a -> ('a++'b)"
74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	15	sinr :: "'b -> ('a++'b)"
74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	16	sswhen :: "('a->'c)->('b->'c)->('a ++ 'b)-> 'c"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	17
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	18	rules
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	19
442 13ac1fd0a14d added parentheses made necessary by change of constrain's precedence clasohm parents: 243 diff changeset	20	inst_ssum_pcpo "(UU::'a++'b) = Isinl(UU)"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	21
1168 74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	22
74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	23	defs
74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	24
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	25	sinl_def "sinl == (LAM x.Isinl(x))"
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	26	sinr_def "sinr == (LAM x.Isinr(x))"
1168 74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	27	sswhen_def "sswhen == (LAM f g s.Iwhen(f)(g)(s))"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	28
1274 ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	29	translations
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	30	"case s of sinl`x => t1 \| sinr`y => t2" == "sswhen`(LAM x.t1)`(LAM y.t2)`s"
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	31
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	32	(* start 8bit 1 *)
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	33	(* end 8bit 1 *)
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	34
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	35	end

author	paulson
	Fri, 08 Dec 1995 10:39:52 +0100
changeset 1394	a1d2735f5ade
parent 1274	ea0668a1c0ba
child 1479	21eb5e156d91
permissions	-rw-r--r--