1 (* Title: HOL/TPTP/MaSh_Export.thy
2 Author: Jasmin Blanchette, TU Muenchen
5 header {* MaSh Exporter *}
11 ML_file "mash_export.ML"
14 [provers = spass, max_facts = 32, strict, dont_slice, type_enc = mono_native,
15 lam_trans = lifting, timeout = 2, dont_preplay, minimize]
17 declare [[sledgehammer_instantiate_inducts = false]]
19 hide_fact (open) HOL.ext
22 Multithreading.max_threads_value ()
30 val do_it = false (* switch to "true" to generate the files *)
31 val thys = [@{theory List}]
32 val params as {provers, ...} = Sledgehammer_Commands.default_params @{theory} []
33 val prover = hd provers
36 val max_suggestions = 1024
38 val prefix = "/tmp/" ^ dir ^ "/"
43 Isabelle_System.mkdir (Path.explode prefix)
48 ML {* Options.put_default @{system_option MaSh} "sml_nb" *}
52 generate_mash_suggestions @{context} params (range, step) thys max_suggestions
53 (prefix ^ "mash_sml_nb_suggestions")
58 ML {* Options.put_default @{system_option MaSh} "sml_knn" *}
62 generate_mash_suggestions @{context} params (range, step) thys max_suggestions
63 (prefix ^ "mash_sml_knn_suggestions")
68 ML {* Options.put_default @{system_option MaSh} "py" *}
72 generate_mash_suggestions @{context} params (range, step) thys max_suggestions
73 (prefix ^ "mash_py_suggestions")
80 generate_accessibility @{context} thys (prefix ^ "mash_accessibility")
87 generate_features @{context} thys (prefix ^ "mash_features")
94 generate_isar_dependencies @{context} range thys (prefix ^ "mash_dependencies")
101 generate_isar_commands @{context} prover (range, step) thys max_suggestions
102 (prefix ^ "mash_commands")
109 generate_mepo_suggestions @{context} params (range, step) thys max_suggestions
110 (prefix ^ "mepo_suggestions")
117 generate_mesh_suggestions max_suggestions (prefix ^ "mash_suggestions")
118 (prefix ^ "mepo_suggestions") (prefix ^ "mesh_suggestions")
125 generate_prover_dependencies @{context} params range thys (prefix ^ "mash_prover_dependencies")
132 generate_prover_commands @{context} params (range, step) thys max_suggestions
133 (prefix ^ "mash_prover_commands")
140 generate_mesh_suggestions max_suggestions (prefix ^ "mash_prover_suggestions")
141 (prefix ^ "mepo_suggestions") (prefix ^ "mesh_prover_suggestions")