isabelle: src/HOLCF/Cfun3.thy@21eb5e156d91 (annotated)

1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	1	(* Title: HOLCF/cfun3.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	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
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	10	Cfun3 = Cfun2 +
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	11
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	12	arities "->" :: (pcpo,pcpo)pcpo (* Witness cfun2.ML *)
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	13
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	14	consts
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	15	Istrictify :: "('a->'b)=>'a=>'b"
21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	16	strictify :: "('a->'b)->'a->'b"
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
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	20	inst_cfun_pcpo "(UU::'a->'b) = UU_cfun"
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: 1150 diff changeset	22	defs
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	23
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	24	Istrictify_def "Istrictify f x == if x=UU then UU else f`x"
1168 74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 1150 diff changeset	25
1479 21eb5e156d91 expanded tabs clasohm parents: 1168 diff changeset	26	strictify_def "strictify == (LAM f x.Istrictify f x)"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	27
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	28	end
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	29

author	clasohm
	Tue, 06 Feb 1996 12:42:31 +0100
changeset 1479	21eb5e156d91
parent 1168	74be52691d62
child 2640	ee4dfce170a0
permissions	-rw-r--r--