isabelle: src/HOLCF/Ssum1.thy@84c2178db936 (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
243 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	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
2640 ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	11	defs
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	12	less_ssum_def "less == (%s1 s2.@z.
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	13	(! u x.s1=Isinl u & s2=Isinl x --> z = u << x)
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	14	&(! v y.s1=Isinr v & s2=Isinr y --> z = v << y)
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	15	&(! u y.s1=Isinl u & s2=Isinr y --> z = (u = UU))
ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 1479 diff changeset	16	&(! 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	17
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	18	end
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

author	paulson
	Wed, 23 Apr 1997 11:00:48 +0200
changeset 3017	84c2178db936
parent 2640	ee4dfce170a0
child 3323	194ae2e0c193
permissions	-rw-r--r--