(* Title: HOL/TPTP/MaSh_Export.thy
Author: Jasmin Blanchette, TU Muenchen
*)
header {* MaSh Exporter *}
theory MaSh_Export
imports
Main
(*
"~/afp/thys/Jinja/J/TypeSafe"
"~/afp/thys/ArrowImpossibilityGS/Thys/Arrow_Order"
"~/afp/thys/FFT/FFT"
"~~/src/HOL/Auth/NS_Shared"
"~~/src/HOL/IMPP/Hoare"
"~~/src/HOL/Library/Fundamental_Theorem_Algebra"
"~~/src/HOL/Proofs/Lambda/StrongNorm"
*)
begin
ML_file "mash_export.ML"
sledgehammer_params
[provers = spass, max_relevant = 40, strict, dont_slice, type_enc = mono_native,
lam_trans = combs_and_lifting, timeout = 1, dont_preplay, minimize]
ML {*
open MaSh_Export
*}
ML {*
val do_it = false (* switch to "true" to generate the files *)
val thy = @{theory List}
val params as {provers, ...} = Sledgehammer_Isar.default_params @{context} []
val prover = hd provers
val prefix = "/tmp/" ^ Context.theory_name thy ^ "/"
*}
ML {*
Isabelle_System.mkdir (Path.explode prefix)
*}
ML {*
if do_it then
generate_accessibility @{context} thy false (prefix ^ "mash_accessibility")
else
()
*}
ML {*
if do_it then
generate_features @{context} prover thy false (prefix ^ "mash_features")
else
()
*}
ML {*
if do_it then
generate_isar_dependencies @{context} thy false (prefix ^ "mash_dependencies")
else
()
*}
ML {*
if do_it then
generate_commands @{context} params thy (prefix ^ "mash_commands")
else
()
*}
ML {*
if do_it then
generate_mepo_suggestions @{context} params thy 1024 (prefix ^ "mash_mepo_suggestions")
else
()
*}
ML {*
if do_it then
generate_atp_dependencies @{context} params thy false (prefix ^ "mash_atp_dependencies")
else
()
*}
end