src/HOL/TPTP/MaSh_Export.thy
author wenzelm
Thu, 26 May 2016 17:51:22 +0200
changeset 63167 0909deb8059b
parent 58889 5b7a9633cfa8
child 73315 d01ca5e9e0da
permissions -rw-r--r--
isabelle update_cartouches -c -t;
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
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
     5
section \<open>MaSh Exporter\<close>
48234
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
58206
3e22d3ed829f refactored MaSh files to avoid regenerating exports on each eval
blanchet
parents: 57457
diff changeset
     8
imports MaSh_Export_Base
48234
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
     9
begin
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
    10
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    11
ML \<open>
50350
136d5318b1fe tuned MaSh exporter -- and don't make temp directories unless explicitly told so
blanchet
parents: 50349
diff changeset
    12
if do_it then
136d5318b1fe tuned MaSh exporter -- and don't make temp directories unless explicitly told so
blanchet
parents: 50349
diff changeset
    13
  Isabelle_System.mkdir (Path.explode prefix)
136d5318b1fe tuned MaSh exporter -- and don't make temp directories unless explicitly told so
blanchet
parents: 50349
diff changeset
    14
else
136d5318b1fe tuned MaSh exporter -- and don't make temp directories unless explicitly told so
blanchet
parents: 50349
diff changeset
    15
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    16
\<close>
48531
7da5d3b8aef4 don't export technical theorems for MaSh
blanchet
parents: 48529
diff changeset
    17
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    18
ML \<open>
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    19
if do_it then
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    20
  generate_mash_suggestions "nb" @{context} params (range, step) thys max_suggestions
57431
02c408aed5ee killed Python version of MaSh, now that the SML version works adequately
blanchet
parents: 57150
diff changeset
    21
    (prefix ^ "mash_nb_suggestions")
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    22
else
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    23
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    24
\<close>
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    25
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    26
ML \<open>
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    27
if do_it then
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    28
  generate_mash_suggestions "knn" @{context} params (range, step) thys max_suggestions
57431
02c408aed5ee killed Python version of MaSh, now that the SML version works adequately
blanchet
parents: 57150
diff changeset
    29
    (prefix ^ "mash_knn_suggestions")
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    30
else
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    31
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    32
\<close>
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    33
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    34
ML \<open>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    35
if do_it then
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    36
  generate_mepo_suggestions @{context} params (range, step) thys max_suggestions
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    37
    (prefix ^ "mepo_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    38
else
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    39
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    40
\<close>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    41
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    42
ML \<open>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    43
if do_it then
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    44
  generate_mesh_suggestions max_suggestions (prefix ^ "mash_nb_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    45
    (prefix ^ "mepo_suggestions") (prefix ^ "mesh_nb_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    46
else
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    47
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    48
\<close>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    49
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    50
ML \<open>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    51
if do_it then
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    52
  generate_mesh_suggestions max_suggestions (prefix ^ "mash_knn_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    53
    (prefix ^ "mepo_suggestions") (prefix ^ "mesh_knn_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    54
else
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    55
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    56
\<close>
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    57
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    58
ML \<open>
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    59
if do_it then
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    60
  generate_prover_dependencies @{context} params range thys
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    61
    (prefix ^ "mash_nb_prover_dependencies")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    62
else
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    63
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    64
\<close>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    65
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    66
ML \<open>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    67
if do_it then
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    68
  generate_prover_dependencies @{context} params range thys
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    69
    (prefix ^ "mash_knn_prover_dependencies")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    70
else
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    71
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    72
\<close>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    73
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    74
ML \<open>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    75
if do_it then
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    76
  generate_mesh_suggestions max_suggestions (prefix ^ "mash_nb_prover_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    77
    (prefix ^ "mepo_suggestions") (prefix ^ "mesh_nb_prover_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    78
else
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    79
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    80
\<close>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    81
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    82
ML \<open>
57457
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    83
if do_it then
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    84
  generate_mesh_suggestions max_suggestions (prefix ^ "mash_knn_prover_suggestions")
b2bafc09b7e7 clean up MaSh export a bit
blanchet
parents: 57431
diff changeset
    85
    (prefix ^ "mepo_suggestions") (prefix ^ "mesh_knn_prover_suggestions")
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    86
else
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    87
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    88
\<close>
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    89
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    90
ML \<open>
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
    91
if do_it then
57121
426ab5fabcae got rid of 'linearize' option
blanchet
parents: 57120
diff changeset
    92
  generate_accessibility @{context} thys (prefix ^ "mash_accessibility")
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    93
else
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    94
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    95
\<close>
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    96
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
    97
ML \<open>
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
    98
if do_it then
55212
blanchet
parents: 55208
diff changeset
    99
  generate_features @{context} thys (prefix ^ "mash_features")
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
   100
else
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
   101
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
   102
\<close>
48239
0016290f904c generate Meng--Paulson facts for evaluation purposes
blanchet
parents: 48235
diff changeset
   103
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
   104
ML \<open>
48245
854a47677335 generate ATP dependencies
blanchet
parents: 48239
diff changeset
   105
if do_it then
57121
426ab5fabcae got rid of 'linearize' option
blanchet
parents: 57120
diff changeset
   106
  generate_isar_dependencies @{context} range thys (prefix ^ "mash_dependencies")
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
   107
else
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
   108
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
   109
\<close>
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
   110
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
   111
ML \<open>
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
   112
if do_it then
57121
426ab5fabcae got rid of 'linearize' option
blanchet
parents: 57120
diff changeset
   113
  generate_isar_commands @{context} prover (range, step) thys max_suggestions
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
   114
    (prefix ^ "mash_commands")
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
   115
else
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
   116
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
   117
\<close>
48333
2250197977dc repair MaSh exporter
blanchet
parents: 48304
diff changeset
   118
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
   119
ML \<open>
50816
2c366a03c888 removed debugging code
blanchet
parents: 50814
diff changeset
   120
if do_it then
57121
426ab5fabcae got rid of 'linearize' option
blanchet
parents: 57120
diff changeset
   121
  generate_prover_commands @{context} params (range, step) thys max_suggestions
57120
f8112c4b9cb8 extend exporter with new versions of MaSh
blanchet
parents: 55212
diff changeset
   122
    (prefix ^ "mash_prover_commands")
50411
c9023d78d1a6 export ATP and Isar commands separately
blanchet
parents: 50350
diff changeset
   123
else
c9023d78d1a6 export ATP and Isar commands separately
blanchet
parents: 50350
diff changeset
   124
  ()
63167
0909deb8059b isabelle update_cartouches -c -t;
wenzelm
parents: 58889
diff changeset
   125
\<close>
50411
c9023d78d1a6 export ATP and Isar commands separately
blanchet
parents: 50350
diff changeset
   126
48234
06216c789ac9 moved MaSh into own files
blanchet
parents:
diff changeset
   127
end