equal
deleted
inserted
replaced
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 |