| author | haftmann | 
| Sat, 15 Sep 2012 20:14:29 +0200 | |
| changeset 49388 | 1ffd5a055acf | 
| parent 48891 | c0eafbd55de3 | 
| child 50358 | b7d3319409b7 | 
| permissions | -rw-r--r-- | 
| 48285 | 1  | 
(* Title: HOL/TPTP/MaSh_Eval.thy  | 
| 48234 | 2  | 
Author: Jasmin Blanchette, TU Muenchen  | 
3  | 
*)  | 
|
4  | 
||
| 48285 | 5  | 
header {* MaSh Evaluation Driver *}
 | 
| 48234 | 6  | 
|
| 48285 | 7  | 
theory MaSh_Eval  | 
| 48333 | 8  | 
imports Complex_Main  | 
| 48234 | 9  | 
begin  | 
10  | 
||
| 48891 | 11  | 
ML_file "mash_eval.ML"  | 
12  | 
||
| 48284 | 13  | 
sledgehammer_params  | 
14  | 
[provers = e, max_relevant = 40, strict, dont_slice, type_enc = poly_guards??,  | 
|
15  | 
lam_trans = combs_and_lifting, timeout = 5, dont_preplay, minimize]  | 
|
16  | 
||
| 48236 | 17  | 
declare [[sledgehammer_instantiate_inducts]]  | 
18  | 
||
| 48235 | 19  | 
ML {*
 | 
| 48285 | 20  | 
open MaSh_Eval  | 
| 48235 | 21  | 
*}  | 
22  | 
||
23  | 
ML {*
 | 
|
| 48333 | 24  | 
val do_it = false (* switch to "true" to generate the files *)  | 
25  | 
val thy = @{theory Nat}
 | 
|
| 
48251
 
6cdcfbddc077
moved most of MaSh exporter code to Sledgehammer
 
blanchet 
parents: 
48250 
diff
changeset
 | 
26  | 
val params = Sledgehammer_Isar.default_params @{context} []
 | 
| 48235 | 27  | 
*}  | 
28  | 
||
29  | 
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
 | 
30  | 
if do_it then  | 
| 48333 | 31  | 
  evaluate_mash_suggestions @{context} params thy "/tmp/mash_suggestions"
 | 
| 
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
 | 
32  | 
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
 | 
33  | 
()  | 
| 48235 | 34  | 
*}  | 
35  | 
||
| 48234 | 36  | 
end  |