equal
deleted
inserted
replaced
1 (* Title: HOL/Tools/Sledgehammer/sledgehammer_fact_filter.ML |
1 (* Title: HOL/Tools/Sledgehammer/sledgehammer_filter.ML |
2 Author: Jia Meng, Cambridge University Computer Laboratory and NICTA |
2 Author: Jia Meng, Cambridge University Computer Laboratory and NICTA |
3 Author: Jasmin Blanchette, TU Muenchen |
3 Author: Jasmin Blanchette, TU Muenchen |
4 *) |
4 *) |
5 |
5 |
6 signature SLEDGEHAMMER_FACT_FILTER = |
6 signature SLEDGEHAMMER_FILTER = |
7 sig |
7 sig |
8 datatype locality = General | Intro | Elim | Simp | Local | Chained |
8 datatype locality = General | Intro | Elim | Simp | Local | Chained |
9 |
9 |
10 type relevance_override = |
10 type relevance_override = |
11 {add: Facts.ref list, |
11 {add: Facts.ref list, |
33 val relevant_facts : |
33 val relevant_facts : |
34 Proof.context -> bool -> real * real -> int -> bool -> relevance_override |
34 Proof.context -> bool -> real * real -> int -> bool -> relevance_override |
35 -> thm list -> term list -> term -> ((string * locality) * thm) list |
35 -> thm list -> term list -> term -> ((string * locality) * thm) list |
36 end; |
36 end; |
37 |
37 |
38 structure Sledgehammer_Fact_Filter : SLEDGEHAMMER_FACT_FILTER = |
38 structure Sledgehammer_Filter : SLEDGEHAMMER_FILTER = |
39 struct |
39 struct |
40 |
40 |
41 open Sledgehammer_Util |
41 open Sledgehammer_Util |
42 |
42 |
43 val trace = Unsynchronized.ref false |
43 val trace = Unsynchronized.ref false |