(*  Title:      HOL/TPTP/MaSh_Export.thy

     Author:     Jasmin Blanchette, TU Muenchen

 *)

 header {* MaSh Exporter *}

 theory MaSh_Export

 imports Main

 begin

 ML_file "mash_export.ML"

 sledgehammer_params

   [provers = spass, max_facts = 32, strict, dont_slice, type_enc = mono_native,

    lam_trans = lifting, timeout = 2, dont_preplay, minimize]

 declare [[sledgehammer_instantiate_inducts = false]]

 hide_fact (open) HOL.ext

 ML {*

 Multithreading.max_threads_value ()

 *}

 ML {*

 open MaSh_Export

 *}

 ML {*

 val do_it = false (* switch to "true" to generate the files *)

 val thys = [@{theory List}]

 val params as {provers, ...} = Sledgehammer_Commands.default_params @{context} []

 val prover = hd provers

 val range = (1, NONE)

 val step = 1

 val linearize = false

 val max_suggestions = 1024

 val dir = "List"

 val prefix = "/tmp/" ^ dir ^ "/"

 *}

 ML {*

 if do_it then

   Isabelle_System.mkdir (Path.explode prefix)

 else

   ()

 *}

 ML {*

 if do_it then

   generate_accessibility @{context} thys linearize

       (prefix ^ "mash_accessibility")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_features @{context} prover thys (prefix ^ "mash_features")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_isar_dependencies @{context} range thys linearize

       (prefix ^ "mash_dependencies")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_isar_commands @{context} prover (range, step) thys linearize

       max_suggestions (prefix ^ "mash_commands")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_mepo_suggestions @{context} params (range, step) thys linearize

       max_suggestions (prefix ^ "mepo_suggestions")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_mesh_suggestions max_suggestions (prefix ^ "mash_suggestions")

       (prefix ^ "mepo_suggestions") (prefix ^ "mesh_suggestions")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_prover_dependencies @{context} params range thys linearize

       (prefix ^ "mash_prover_dependencies")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_prover_commands @{context} params (range, step) thys linearize

       max_suggestions (prefix ^ "mash_prover_commands")

 else

   ()

 *}

 ML {*

 if do_it then

   generate_mesh_suggestions max_suggestions (prefix ^ "mash_prover_suggestions")

       (prefix ^ "mepo_suggestions") (prefix ^ "mesh_prover_suggestions")

 else

   ()

 *}

 end