isabelle: src/HOLCF/Discrete0.ML@81001d6cb8c0 (annotated)

2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	1	(* Title: HOLCF/Discrete0.ML
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	2	ID: $Id$
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	3	Author: Tobias Nipkow
12030 46d57d0290a2 GPLed; wenzelm parents: 5068 diff changeset	4	License: GPL (GNU GENERAL PUBLIC LICENSE)
2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	5
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	6	Proves that 'a discr is a po
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	7	*)
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	8
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	9	Goalw [less_discr_def] "(x::('a::type)discr) << x";
3018 e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	10	by (rtac refl 1);
2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	11	qed "less_discr_refl";
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	12
5068 fb28eaa07e01 isatool fixgoal; wenzelm parents: 3323 diff changeset	13	Goalw [less_discr_def]
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	14	"!!x. [\| (x::('a::type)discr) << y; y << z \|] ==> x << z";
3018 e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	15	by (etac trans 1);
e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	16	by (assume_tac 1);
2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	17	qed "less_discr_trans";
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	18
5068 fb28eaa07e01 isatool fixgoal; wenzelm parents: 3323 diff changeset	19	Goalw [less_discr_def]
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	20	"!!x. [\| (x::('a::type)discr) << y; y << x \|] ==> x=y";
3018 e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	21	by (assume_tac 1);
2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	22	qed "less_discr_antisym";

author	paulson
	Fri, 14 May 2004 16:48:37 +0200
changeset 14743	81001d6cb8c0
parent 12338	de0f4a63baa5
child 14981	e73f8140af78
permissions	-rw-r--r--