src/HOL/TPTP/MaSh_Export.thy
author blanchet
Fri, 20 Jul 2012 22:19:45 +0200
changeset 48379 2b5ad61e2ccc
parent 48333 2250197977dc
child 48432 60759d07df24
permissions -rw-r--r--
renamed "iter" fact filter to "MePo" (Meng--Paulson)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
48234
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     1
(*  Title:      HOL/TPTP/MaSh_Export.thy
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     2
    Author:     Jasmin Blanchette, TU Muenchen
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     3
*)
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     4
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     5
header {* MaSh Exporter *}
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     6
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     7
theory MaSh_Export
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
     8
imports Complex_Main
48234
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     9
uses "mash_export.ML"
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    10
begin
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    11
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    12
sledgehammer_params
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    13
  [provers = e, max_relevant = 40, strict, dont_slice, type_enc = poly_guards??,
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    14
   lam_trans = combs_and_lifting, timeout = 5, dont_preplay, minimize]
48239
0016290f904c generate Meng--Paulson facts for evaluation purposes
blanchet
parents: 48235
diff changeset
    15
48234
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    16
ML {*
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    17
open MaSh_Export
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    18
*}
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    19
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    20
ML {*
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    21
val do_it = false (* switch to "true" to generate the files *)
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    22
val thy = @{theory List}
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    23
val params as {provers, ...} = Sledgehammer_Isar.default_params @{context} []
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    24
val prover = hd provers
48246
fb11c09d7729 add Isabelle dependencies to tweak relevance filter
blanchet
parents: 48245
diff changeset
    25
*}
fb11c09d7729 add Isabelle dependencies to tweak relevance filter
blanchet
parents: 48245
diff changeset
    26
fb11c09d7729 add Isabelle dependencies to tweak relevance filter
blanchet
parents: 48245
diff changeset
    27
ML {*
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    28
if do_it then
48304
50e64af9c829 more work on MaSh
blanchet
parents: 48301
diff changeset
    29
  generate_accessibility thy false "/tmp/mash_accessibility"
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    30
else
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    31
  ()
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    32
*}
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    33
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    34
ML {*
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    35
if do_it then
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    36
  generate_features @{context} prover thy false "/tmp/mash_features"
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    37
else
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    38
  ()
48239
0016290f904c generate Meng--Paulson facts for evaluation purposes
blanchet
parents: 48235
diff changeset
    39
*}
0016290f904c generate Meng--Paulson facts for evaluation purposes
blanchet
parents: 48235
diff changeset
    40
0016290f904c generate Meng--Paulson facts for evaluation purposes
blanchet
parents: 48235
diff changeset
    41
ML {*
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    42
if do_it then
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    43
  generate_isar_dependencies thy false "/tmp/mash_dependencies"
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    44
else
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    45
  ()
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    46
*}
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    47
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    48
ML {*
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    49
if do_it then
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    50
  generate_commands @{context} prover thy "/tmp/mash_commands"
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    51
else
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    52
  ()
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    53
*}
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    54
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    55
ML {*
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
    56
if do_it then
48379
2b5ad61e2ccc renamed "iter" fact filter to "MePo" (Meng--Paulson)
blanchet
parents: 48333
diff changeset
    57
  generate_mepo_suggestions @{context} params thy 500 "/tmp/mash_mepo_suggestions"
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    58
else
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    59
  ()
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    60
*}
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    61
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    62
ML {*
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    63
if do_it then
48251
6cdcfbddc077 moved most of MaSh exporter code to Sledgehammer
blanchet
parents: 48250
diff changeset
    64
  generate_atp_dependencies @{context} params thy false "/tmp/mash_atp_dependencies"
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    65
else
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    66
  ()
48234
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    67
*}
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    68
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    69
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    70
end