src/HOL/Import/import_syntax.ML
changeset 27353 71c4dd53d4cb
parent 24867 e5b55d7be9bb
child 27775 a9d16f8b997a
equal deleted inserted replaced
27352:8adeff7fd4bc 27353:71c4dd53d4cb
   221 val set_dump  = P.string -- P.string   >> setup_dump
   221 val set_dump  = P.string -- P.string   >> setup_dump
   222 fun fl_dump toks  = Scan.succeed flush_dump toks
   222 fun fl_dump toks  = Scan.succeed flush_dump toks
   223 val append_dump = (P.verbatim || P.string) >> add_dump
   223 val append_dump = (P.verbatim || P.string) >> add_dump
   224 
   224 
   225 fun setup () =
   225 fun setup () =
   226   (OuterSyntax.keywords[">"];
   226   (OuterKeyword.keyword ">";
   227    OuterSyntax.command "import_segment"
   227    OuterSyntax.command "import_segment"
   228 		       "Set import segment name"
   228 		       "Set import segment name"
   229 		       K.thy_decl (import_segment >> Toplevel.theory);
   229 		       K.thy_decl (import_segment >> Toplevel.theory);
   230    OuterSyntax.command "import_theory"
   230    OuterSyntax.command "import_theory"
   231 		       "Set default HOL4 theory name"
   231 		       "Set default HOL4 theory name"