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

1479 21eb5e156d91 expanded tabs clasohm parents: 1168 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
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	11	consts
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	12
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	13	less_ssum :: "[('a ++ 'b),('a ++ 'b)] => bool"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	14
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	15	rules
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	16
1168 74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 1150 diff changeset	17	less_ssum_def "less_ssum s1 s2 == (@z.
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	18	(! u x.s1=Isinl(u) & s2=Isinl(x) --> z = (u << x))
21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	19	&(! v y.s1=Isinr(v) & s2=Isinr(y) --> z = (v << y))
21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	20	&(! u y.s1=Isinl(u) & s2=Isinr(y) --> z = (u = UU))
21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	21	&(! 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	22
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	23	end
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	24
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	25

author	paulson
	Wed, 21 Aug 1996 13:22:23 +0200
changeset 1933	8b24773de6db
parent 1479	21eb5e156d91
child 2640	ee4dfce170a0
permissions	-rw-r--r--