src/HOL/TPTP/MaSh_Export.thy
author blanchet
Thu, 26 Jul 2012 10:48:03 +0200
changeset 48531 7da5d3b8aef4
parent 48529 716ec3458b1d
child 48891 c0eafbd55de3
permissions -rw-r--r--
don't export technical theorems for MaSh
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??,
48432
60759d07df24 took out CVC3 again -- there seems to be issues with the server version of CVC3 + minor tweaks
blanchet
parents: 48379
diff changeset
    14
   lam_trans = combs_and_lifting, timeout = 1, 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
*}
48531
7da5d3b8aef4 don't export technical theorems for MaSh
blanchet
parents: 48529
diff changeset
    26
48246
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
48531
7da5d3b8aef4 don't export technical theorems for MaSh
blanchet
parents: 48529
diff changeset
    29
  generate_accessibility @{context} 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
48531
7da5d3b8aef4 don't export technical theorems for MaSh
blanchet
parents: 48529
diff changeset
    43
  generate_isar_dependencies @{context} thy false "/tmp/mash_dependencies"
48333
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
48529
716ec3458b1d generate fact name in queries again + use ATP dependencies when possible
blanchet
parents: 48432
diff changeset
    50
  generate_commands @{context} params thy "/tmp/mash_commands"
48333
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
end