equal
deleted
inserted
replaced
346 |
346 |
347 |
347 |
348 (* proof structure *) |
348 (* proof structure *) |
349 |
349 |
350 val beginP = |
350 val beginP = |
351 OuterSyntax.command "{" "begin explicit proof block" K.prf_block |
351 OuterSyntax.command "{" "begin explicit proof block" K.prf_open |
352 (P.marg_comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.begin_block))); |
352 (P.marg_comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.begin_block))); |
353 |
353 |
354 val endP = |
354 val endP = |
355 OuterSyntax.command "}" "end explicit proof block" K.prf_block |
355 OuterSyntax.command "}" "end explicit proof block" K.prf_close |
356 (P.marg_comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.end_block))); |
356 (P.marg_comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.end_block))); |
357 |
357 |
358 val nextP = |
358 val nextP = |
359 OuterSyntax.command "next" "enter next proof block" K.prf_block |
359 OuterSyntax.command "next" "enter next proof block" K.prf_block |
360 (P.marg_comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.next_block))); |
360 (P.marg_comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.next_block))); |