author | blanchet |
Wed, 18 Jul 2012 08:44:03 +0200 | |
changeset 48284 | a3cb8901d60c |
parent 48251 | 6cdcfbddc077 |
permissions | -rw-r--r-- |
48234 | 1 |
(* Title: HOL/TPTP/MaSh_Import.thy |
2 |
Author: Jasmin Blanchette, TU Muenchen |
|
3 |
*) |
|
4 |
||
5 |
header {* MaSh Importer *} |
|
6 |
||
7 |
theory MaSh_Import |
|
8 |
imports MaSh_Export |
|
9 |
uses "mash_import.ML" |
|
10 |
begin |
|
11 |
||
48284 | 12 |
sledgehammer_params |
13 |
[provers = e, max_relevant = 40, strict, dont_slice, type_enc = poly_guards??, |
|
14 |
lam_trans = combs_and_lifting, timeout = 5, dont_preplay, minimize] |
|
15 |
||
48236 | 16 |
declare [[sledgehammer_instantiate_inducts]] |
17 |
||
48235 | 18 |
ML {* |
19 |
open MaSh_Import |
|
20 |
*} |
|
21 |
||
22 |
ML {* |
|
48251
6cdcfbddc077
moved most of MaSh exporter code to Sledgehammer
blanchet
parents:
48250
diff
changeset
|
23 |
val do_it = false (* switch to "true" to generate the files *); |
6cdcfbddc077
moved most of MaSh exporter code to Sledgehammer
blanchet
parents:
48250
diff
changeset
|
24 |
val thy = @{theory List}; |
6cdcfbddc077
moved most of MaSh exporter code to Sledgehammer
blanchet
parents:
48250
diff
changeset
|
25 |
val params = Sledgehammer_Isar.default_params @{context} [] |
48235 | 26 |
*} |
27 |
||
28 |
ML {* |
|
48250
1065c307fafe
further ML structure split to permit finer-grained loading/reordering (problem to solve: MaSh needs most of Sledgehammer)
blanchet
parents:
48245
diff
changeset
|
29 |
if do_it then |
48251
6cdcfbddc077
moved most of MaSh exporter code to Sledgehammer
blanchet
parents:
48250
diff
changeset
|
30 |
import_and_evaluate_mash_suggestions @{context} params thy "/tmp/mash_suggestions_list" |
48250
1065c307fafe
further ML structure split to permit finer-grained loading/reordering (problem to solve: MaSh needs most of Sledgehammer)
blanchet
parents:
48245
diff
changeset
|
31 |
else |
1065c307fafe
further ML structure split to permit finer-grained loading/reordering (problem to solve: MaSh needs most of Sledgehammer)
blanchet
parents:
48245
diff
changeset
|
32 |
() |
48235 | 33 |
*} |
34 |
||
48234 | 35 |
end |