isabelle: src/HOLCF/Discrete0.ML@e73f8140af78 (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
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	4
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	5	Proves that 'a discr is a po
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	6	*)
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	7
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	8	Goalw [less_discr_def] "(x::('a::type)discr) << x";
3018 e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	9	by (rtac refl 1);
2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	10	qed "less_discr_refl";
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	11
5068 fb28eaa07e01 isatool fixgoal; wenzelm parents: 3323 diff changeset	12	Goalw [less_discr_def]
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	13	"!!x. [\| (x::('a::type)discr) << y; y << z \|] ==> x << z";
3018 e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	14	by (etac trans 1);
e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	15	by (assume_tac 1);
2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	16	qed "less_discr_trans";
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	17
5068 fb28eaa07e01 isatool fixgoal; wenzelm parents: 3323 diff changeset	18	Goalw [less_discr_def]
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	19	"!!x. [\| (x::('a::type)discr) << y; y << x \|] ==> x=y";
3018 e65b60b28341 Ran expandshort paulson parents: 2841 diff changeset	20	by (assume_tac 1);
2841 c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	21	qed "less_discr_antisym";

author	kleing
	Mon, 21 Jun 2004 10:25:57 +0200
changeset 14981	e73f8140af78
parent 12338	de0f4a63baa5
permissions	-rw-r--r--