isabelle: src/HOLCF/Fun1.ML@197e00ce3f20 (annotated)

2640 ee4dfce170a0 Changes of HOLCF from Oscar Slotosch: slotosch parents: 2033 diff changeset	1	(* Title: HOLCF/Fun1.ML
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	2	ID: $Id$
1461 6bcb44e4d6e5 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
9245 428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	5	Definition of the partial ordering for the type of all functions => (fun)
243 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
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	(* less_fun is a partial order on 'a => 'b *)
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
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	12	val prems = goalw thy [less_fun_def] "(f::'a::type =>'b::po) << f";
9245 428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	13	by (fast_tac (HOL_cs addSIs [refl_less]) 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	14	qed "refl_less_fun";
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	15
9245 428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	16	val prems = goalw Fun1.thy [less_fun_def]
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	17	"[\|(f1::'a::type =>'b::po) << f2; f2 << f1\|] ==> f1 = f2";
9245 428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	18	by (cut_facts_tac prems 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	19	by (stac expand_fun_eq 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	20	by (fast_tac (HOL_cs addSIs [antisym_less]) 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	21	qed "antisym_less_fun";
243 c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF nipkow parents: diff changeset	22
9245 428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	23	val prems = goalw Fun1.thy [less_fun_def]
12338 de0f4a63baa5 renamed class "term" to "type" (actually "HOL.type"); wenzelm parents: 12030 diff changeset	24	"[\|(f1::'a::type =>'b::po) << f2; f2 << f3 \|] ==> f1 << f3";
9245 428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	25	by (cut_facts_tac prems 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	26	by (strip_tac 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	27	by (rtac trans_less 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	28	by (etac allE 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	29	by (atac 1);
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	30	by ((etac allE 1) THEN (atac 1));
428385c4bc50 removed most batch-style proofs paulson parents: 3323 diff changeset	31	qed "trans_less_fun";

author	nipkow
	Fri, 10 Sep 2004 00:19:15 +0200
changeset 15195	197e00ce3f20
parent 14981	e73f8140af78
child 15564	c899efea601f
permissions	-rw-r--r--