src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML
changeset 42358 b47d41d9f4b5
parent 42290 b1f544c84040
child 42361 23f352990944
equal deleted inserted replaced
42357:3305f573294e 42358:b47d41d9f4b5
   846                     (((fn () =>
   846                     (((fn () =>
   847                           if name0 = "" then
   847                           if name0 = "" then
   848                             th |> backquote_thm
   848                             th |> backquote_thm
   849                           else
   849                           else
   850                             let
   850                             let
   851                               val name1 = Facts.extern facts name0
   851                               val name1 = Facts.extern ctxt facts name0
   852                               val name2 = Name_Space.extern full_space name0
   852                               val name2 = Name_Space.extern ctxt full_space name0
   853                             in
   853                             in
   854                               case find_first check_thms [name1, name2, name0] of
   854                               case find_first check_thms [name1, name2, name0] of
   855                                 SOME name => make_name reserved multi j name
   855                                 SOME name => make_name reserved multi j name
   856                               | NONE => ""
   856                               | NONE => ""
   857                             end),
   857                             end),