equal
deleted
inserted
replaced
286 |
286 |
287 |
287 |
288 (* proof context *) |
288 (* proof context *) |
289 |
289 |
290 val assumeP = |
290 val assumeP = |
291 OuterSyntax.command "assume" "assume propositions" K.prf_decl |
291 OuterSyntax.command "assume" "assume propositions" K.prf_asm |
292 ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment |
292 ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment |
293 >> (Toplevel.print oo (Toplevel.proof o IsarThy.assume))); |
293 >> (Toplevel.print oo (Toplevel.proof o IsarThy.assume))); |
294 |
294 |
295 val presumeP = |
295 val presumeP = |
296 OuterSyntax.command "presume" "assume propositions, to be established later" K.prf_decl |
296 OuterSyntax.command "presume" "assume propositions, to be established later" K.prf_asm |
297 ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment |
297 ((P.opt_thm_name ":" -- Scan.repeat1 propp >> P.triple1) -- P.marg_comment |
298 >> (Toplevel.print oo (Toplevel.proof o IsarThy.presume))); |
298 >> (Toplevel.print oo (Toplevel.proof o IsarThy.presume))); |
299 |
299 |
300 val fixP = |
300 val fixP = |
301 OuterSyntax.command "fix" "fix variables (Skolem constants)" K.prf_decl |
301 OuterSyntax.command "fix" "fix variables (Skolem constants)" K.prf_asm |
302 (Scan.repeat1 (P.name -- Scan.option (P.$$$ "::" |-- P.typ)) -- P.marg_comment |
302 (Scan.repeat1 (P.name -- Scan.option (P.$$$ "::" |-- P.typ)) -- P.marg_comment |
303 >> (Toplevel.print oo (Toplevel.proof o IsarThy.fix))); |
303 >> (Toplevel.print oo (Toplevel.proof o IsarThy.fix))); |
304 |
304 |
305 val letP = |
305 val letP = |
306 OuterSyntax.command "let" "bind text variables" K.prf_decl |
306 OuterSyntax.command "let" "bind text variables" K.prf_decl |