equal
deleted
inserted
replaced
283 (Parse.and_list1 Parse_Spec.xthms1 |
283 (Parse.and_list1 Parse_Spec.xthms1 |
284 >> (fn args => #2 o Specification.theorems_cmd "" [(Attrib.empty_binding, flat args)])); |
284 >> (fn args => #2 o Specification.theorems_cmd "" [(Attrib.empty_binding, flat args)])); |
285 |
285 |
286 |
286 |
287 (* name space entry path *) |
287 (* name space entry path *) |
288 |
|
289 val _ = |
|
290 Outer_Syntax.command "global" "disable prefixing of theory name" Keyword.thy_decl |
|
291 (Scan.succeed (Toplevel.theory Sign.root_path)); |
|
292 |
|
293 val _ = |
|
294 Outer_Syntax.command "local" "enable prefixing of theory name" Keyword.thy_decl |
|
295 (Scan.succeed (Toplevel.theory Sign.local_path)); |
|
296 |
288 |
297 fun hide_names name hide what = |
289 fun hide_names name hide what = |
298 Outer_Syntax.command name ("hide " ^ what ^ " from name space") Keyword.thy_decl |
290 Outer_Syntax.command name ("hide " ^ what ^ " from name space") Keyword.thy_decl |
299 ((Parse.opt_keyword "open" >> not) -- Scan.repeat1 Parse.xname >> |
291 ((Parse.opt_keyword "open" >> not) -- Scan.repeat1 Parse.xname >> |
300 (Toplevel.theory o uncurry hide)); |
292 (Toplevel.theory o uncurry hide)); |