src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 36960 01594f816e3a
parent 36959 f5417836dbea
child 37507 de91b800c34e
equal deleted inserted replaced
36959:f5417836dbea 36960:01594f816e3a
   328        | ERROR msg => ("error: " ^ msg, SH_ERROR)
   328        | ERROR msg => ("error: " ^ msg, SH_ERROR)
   329        | TimeLimit.TimeOut => ("timeout", SH_ERROR)
   329        | TimeLimit.TimeOut => ("timeout", SH_ERROR)
   330 
   330 
   331 fun thms_of_name ctxt name =
   331 fun thms_of_name ctxt name =
   332   let
   332   let
   333     val lex = OuterKeyword.get_lexicons
   333     val lex = Keyword.get_lexicons
   334     val get = maps (ProofContext.get_fact ctxt o fst)
   334     val get = maps (ProofContext.get_fact ctxt o fst)
   335   in
   335   in
   336     Source.of_string name
   336     Source.of_string name
   337     |> Symbol.source {do_recover=false}
   337     |> Symbol.source {do_recover=false}
   338     |> Token.source {do_recover=SOME false} lex Position.start
   338     |> Token.source {do_recover=SOME false} lex Position.start