isabelle: src/Tools/Code_Generator.thy@067c23324784 (annotated)

30929 d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	1	(* Title: Tools/Code_Generator.thy
d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	2	Author: Florian Haftmann, TU Muenchen
d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	3	*)
d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	4
62020 5d208fd2507d isabelle update_cartouches -c -t; wenzelm parents: 61076 diff changeset	5	section \<open>Loading the code generator and related modules\<close>
30929 d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	6
d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	7	theory Code_Generator
33820 082d9bc6992d load ML directly into theory Code_Generator (quickcheck also requires this); wenzelm parents: 33561 diff changeset	8	imports Pure
46950 d0181abdbdac declare command keywords via theory header, including strict checking outside Pure; wenzelm parents: 46947 diff changeset	9	keywords
56925 601edd9a6859 degeneralized value command into HOL haftmann parents: 55372 diff changeset	10	"print_codeproc" "code_thms" "code_deps" :: diag and
55372 3662c44d018c dropped legacy finally haftmann parents: 54890 diff changeset	11	"export_code" "code_identifier" "code_printing" "code_reserved"
54890 cb892d835803 fundamental treatment of undefined vs. universally partial replaces code_abort haftmann parents: 52138 diff changeset	12	"code_monad" "code_reflect" :: thy_decl and
63435 7743df69a6b4 clarified keywords; wenzelm parents: 62020 diff changeset	13	"checking" and
70009 435fb018e8ee "export_code ... file_prefix ..." is the preferred way to produce output within the logical file-system within the theory context, as well as session exports; wenzelm parents: 69605 diff changeset	14	"datatypes" "functions" "module_name" "file" "file_prefix"
63435 7743df69a6b4 clarified keywords; wenzelm parents: 62020 diff changeset	15	"constant" "type_constructor" "type_class" "class_relation" "class_instance" "code_module"
7743df69a6b4 clarified keywords; wenzelm parents: 62020 diff changeset	16	:: quasi_command
30929 d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	17	begin
d9343c0aac11 code generator bootstrap theory src/Tools/Code_Generator.thy haftmann parents: diff changeset	18
69605 a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	19	ML_file \<open>~~/src/Tools/cache_io.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	20	ML_file \<open>~~/src/Tools/Code/code_preproc.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	21	ML_file \<open>~~/src/Tools/Code/code_symbol.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	22	ML_file \<open>~~/src/Tools/Code/code_thingol.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	23	ML_file \<open>~~/src/Tools/Code/code_simp.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	24	ML_file \<open>~~/src/Tools/Code/code_printer.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	25	ML_file \<open>~~/src/Tools/Code/code_target.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	26	ML_file \<open>~~/src/Tools/Code/code_namespace.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	27	ML_file \<open>~~/src/Tools/Code/code_ml.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	28	ML_file \<open>~~/src/Tools/Code/code_haskell.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	29	ML_file \<open>~~/src/Tools/Code/code_scala.ML\<close>
48891 c0eafbd55de3 prefer ML_file over old uses; wenzelm parents: 47657 diff changeset	30
61076 bdc1e2f0a86a eliminated \<Colon>; wenzelm parents: 59323 diff changeset	31	code_datatype "TYPE('a::{})"
39421 b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	32
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	33	definition holds :: "prop" where
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	34	"holds \<equiv> ((\<lambda>x::prop. x) \<equiv> (\<lambda>x. x))"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	35
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	36	lemma holds: "PROP holds"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	37	by (unfold holds_def) (rule reflexive)
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	38
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	39	code_datatype holds
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	40
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	41	lemma implies_code [code]:
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	42	"(PROP holds \<Longrightarrow> PROP P) \<equiv> PROP P"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	43	"(PROP P \<Longrightarrow> PROP holds) \<equiv> PROP holds"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	44	proof -
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	45	show "(PROP holds \<Longrightarrow> PROP P) \<equiv> PROP P"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	46	proof
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	47	assume "PROP holds \<Longrightarrow> PROP P"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	48	then show "PROP P" using holds .
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	49	next
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	50	assume "PROP P"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	51	then show "PROP P" .
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	52	qed
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	53	next
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	54	show "(PROP P \<Longrightarrow> PROP holds) \<equiv> PROP holds"
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	55	by rule (rule holds)+
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	56	qed
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	57
69605 a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	58	ML_file \<open>~~/src/Tools/Code/code_runtime.ML\<close>
a96320074298 isabelle update -u path_cartouches; wenzelm parents: 63435 diff changeset	59	ML_file \<open>~~/src/Tools/nbe.ML\<close>
39474 1986f18c4940 adjusted setup haftmann parents: 39423 diff changeset	60
39421 b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	61	hide_const (open) holds
b6a77cffc231 introduced "holds" as synthetic datatype constructor for "prop"; moved Pure code generator setup to Code_Generator.thy haftmann parents: 39401 diff changeset	62
33561 ab01b72715ef introduced Auto Nitpick in addition to Auto Quickcheck; blanchet parents: 31775 diff changeset	63	end

author	wenzelm
	Sun, 21 Mar 2021 23:15:55 +0100
changeset 73461	067c23324784
parent 70009	435fb018e8ee
permissions	-rw-r--r--