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