src/Pure/Isar/isar_syn.ML
changeset 9056 8f78b2aea39e
parent 9037 91cbae314c84
child 9129 effedd39a35e
equal deleted inserted replaced
9055:f020e00c6304 9056:8f78b2aea39e
   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)));