(*  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

*}

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_Isar.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} thys linearize

      (prefix ^ "mash_dependencies")

else

  ()

*}

ML {*

if do_it then

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

      linearize (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 (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