equal
deleted
inserted
replaced
1 (* Title: HOL/Tools/Sledgehammer/sledgehammer_proof_reconstruct.ML |
1 (* Title: HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML |
2 Author: Lawrence C. Paulson, Cambridge University Computer Laboratory |
2 Author: Lawrence C. Paulson, Cambridge University Computer Laboratory |
3 Author: Claire Quigley, Cambridge University Computer Laboratory |
3 Author: Claire Quigley, Cambridge University Computer Laboratory |
4 Author: Jasmin Blanchette, TU Muenchen |
4 Author: Jasmin Blanchette, TU Muenchen |
5 |
5 |
6 Transfer of proofs from external provers. |
6 Transfer of proofs from external provers. |
7 *) |
7 *) |
8 |
8 |
9 signature SLEDGEHAMMER_PROOF_RECONSTRUCT = |
9 signature SLEDGEHAMMER_RECONSTRUCT = |
10 sig |
10 sig |
11 type locality = Sledgehammer_Fact_Filter.locality |
11 type locality = Sledgehammer_Filter.locality |
12 type minimize_command = string list -> string |
12 type minimize_command = string list -> string |
13 type metis_params = |
13 type metis_params = |
14 bool * minimize_command * string * (string * locality) list vector * thm |
14 bool * minimize_command * string * (string * locality) list vector * thm |
15 * int |
15 * int |
16 type isar_params = |
16 type isar_params = |
20 val metis_proof_text : metis_params -> text_result |
20 val metis_proof_text : metis_params -> text_result |
21 val isar_proof_text : isar_params -> metis_params -> text_result |
21 val isar_proof_text : isar_params -> metis_params -> text_result |
22 val proof_text : bool -> isar_params -> metis_params -> text_result |
22 val proof_text : bool -> isar_params -> metis_params -> text_result |
23 end; |
23 end; |
24 |
24 |
25 structure Sledgehammer_Proof_Reconstruct : SLEDGEHAMMER_PROOF_RECONSTRUCT = |
25 structure Sledgehammer_Reconstruct : SLEDGEHAMMER_RECONSTRUCT = |
26 struct |
26 struct |
27 |
27 |
28 open ATP_Problem |
28 open ATP_Problem |
29 open Metis_Clauses |
29 open Metis_Clauses |
30 open Sledgehammer_Util |
30 open Sledgehammer_Util |
31 open Sledgehammer_Fact_Filter |
31 open Sledgehammer_Filter |
32 open Sledgehammer_Translate |
32 open Sledgehammer_Translate |
33 |
33 |
34 type minimize_command = string list -> string |
34 type minimize_command = string list -> string |
35 type metis_params = |
35 type metis_params = |
36 bool * minimize_command * string * (string * locality) list vector * thm * int |
36 bool * minimize_command * string * (string * locality) list vector * thm * int |