isabelle: src/HOLCF/Discrete0.ML@5d71eed16fbe (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	Copyright 1997 TUM
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
3323 194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord slotosch parents: 3018 diff changeset	9	goalw thy [less_discr_def] "(x::('a::term)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
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	13	goalw thy [less_discr_def]
3323 194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord slotosch parents: 3018 diff changeset	14	"!!x. [\| (x::('a::term)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
c2508f4ab739 Added "discrete" CPOs and modified IMP to use those rather than "lift" nipkow parents: diff changeset	19	goalw thy [less_discr_def]
3323 194ae2e0c193 eliminated the constant less by the introduction of the axclass sq_ord slotosch parents: 3018 diff changeset	20	"!!x. [\| (x::('a::term)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	nipkow
	Thu, 26 Jun 1997 10:42:50 +0200
changeset 3460	5d71eed16fbe
parent 3323	194ae2e0c193
child 5068	fb28eaa07e01
permissions	-rw-r--r--