isabelle: src/HOLCF/Ssum1.thy@f60fe41e96e9 (annotated)

2640 ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	1	(* Title: HOLCF/Ssum1.thy
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	2	ID: $Id$
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	3	Author: Franz Regensburger
12030 46d57d0290a2 GPLed; wenzelm parents: 3842 diff changeset	4	License: GPL (GNU GENERAL PUBLIC LICENSE)
243 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	Partial ordering for the strict sum ++
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	Ssum1 = Ssum0 +
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	10
3323 194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord slotosch parents: 2640 diff changeset	11	instance "++"::(pcpo,pcpo)sq_ord
194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord slotosch parents: 2640 diff changeset	12
2640 ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	13	defs
3323 194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord slotosch parents: 2640 diff changeset	14	less_ssum_def "(op <<) == (%s1 s2.@z.
3842 b55686a7b22c fixed dots; wenzelm parents: 3323 diff changeset	15	(! u x. s1=Isinl u & s2=Isinl x --> z = u << x)
b55686a7b22c fixed dots; wenzelm parents: 3323 diff changeset	16	&(! v y. s1=Isinr v & s2=Isinr y --> z = v << y)
b55686a7b22c fixed dots; wenzelm parents: 3323 diff changeset	17	&(! u y. s1=Isinl u & s2=Isinr y --> z = (u = UU))
b55686a7b22c fixed dots; wenzelm parents: 3323 diff changeset	18	&(! v x. s1=Isinr v & s2=Isinl x --> z = (v = UU)))"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	19
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	20	end
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	21
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	22

author	paulson
	Mon, 12 Nov 2001 12:38:06 +0100
changeset 12158	f60fe41e96e9
parent 12030	46d57d0290a2
child 14981	e73f8140af78
permissions	-rw-r--r--