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