isabelle: src/HOLCF/Lift3.thy@23ceb1dc9755 (annotated)

243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	1	(* Title: HOLCF/lift3.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
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	7	Class instance of ('a)u for class pcpo
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
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	11	Lift3 = Lift2 +
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	arities "u" :: (pcpo)pcpo (* Witness lift2.ML *)
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	consts
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	16	up :: "'a -> ('a)u"
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	17	lift :: "('a->'c)-> ('a)u -> 'c"
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	18
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	19	rules
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	20
1168 74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	21	inst_lift_pcpo "(UU::('a)u) = UU_lift"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	22
1168 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	up_def "up == (LAM x.Iup(x))"
74be52691d62 The curried version of HOLCF is now just called HOLCF. The old regensbu parents: 442 diff changeset	25	lift_def "lift == (LAM f p.Ilift(f)(p))"
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	26
1274 ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	27	translations
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	28	"case l of up`x => t1" == "lift`(LAM x.t1)`l"
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	29
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	30	(* start 8bit 1 *)
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	31	(* end 8bit 1 *)
ea0668a1c0ba added 8bit pragmas regensbu parents: 1168 diff changeset	32
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	33	end
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	34
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	35
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	36

author	paulson
	Thu, 18 Jan 1996 10:38:29 +0100
changeset 1444	23ceb1dc9755
parent 1274	ea0668a1c0ba
child 1479	21eb5e156d91
permissions	-rw-r--r--