src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML
changeset 38988 483879af0643
parent 38986 e34c1b09bb5e
child 38992 542474156c66
equal deleted inserted replaced
38987:96fae8916d8b 38988:483879af0643
     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