90 val qed_script = "qed_script"; |
91 val qed_script = "qed_script"; |
91 val qed_block = "qed_block"; |
92 val qed_block = "qed_block"; |
92 val qed_global = "qed_global"; |
93 val qed_global = "qed_global"; |
93 val prf_goal = "prf_goal"; |
94 val prf_goal = "prf_goal"; |
94 val prf_block = "prf_block"; |
95 val prf_block = "prf_block"; |
|
96 val next_block = "next_block"; |
95 val prf_open = "prf_open"; |
97 val prf_open = "prf_open"; |
96 val prf_close = "prf_close"; |
98 val prf_close = "prf_close"; |
97 val prf_chain = "prf_chain"; |
99 val prf_chain = "prf_chain"; |
98 val prf_decl = "prf_decl"; |
100 val prf_decl = "prf_decl"; |
99 val prf_asm = "prf_asm"; |
101 val prf_asm = "prf_asm"; |
102 val prf_script_goal = "prf_script_goal"; |
104 val prf_script_goal = "prf_script_goal"; |
103 val prf_script_asm_goal = "prf_script_asm_goal"; |
105 val prf_script_asm_goal = "prf_script_asm_goal"; |
104 |
106 |
105 val kinds = |
107 val kinds = |
106 [diag, document_heading, document_body, document_raw, thy_begin, thy_end, thy_load, thy_decl, |
108 [diag, document_heading, document_body, document_raw, thy_begin, thy_end, thy_load, thy_decl, |
107 thy_decl_block, thy_goal, qed, qed_script, qed_block, qed_global, prf_goal, prf_block, prf_open, |
109 thy_decl_block, thy_goal, qed, qed_script, qed_block, qed_global, prf_goal, prf_block, |
108 prf_close, prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_script, prf_script_goal, |
110 next_block, prf_open, prf_close, prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_script, |
109 prf_script_asm_goal]; |
111 prf_script_goal, prf_script_asm_goal]; |
110 |
112 |
111 |
113 |
112 (* specifications *) |
114 (* specifications *) |
113 |
115 |
114 type spec = (string * string list) * string list; |
116 type spec = (string * string list) * string list; |
241 |
243 |
242 val is_theory_body = command_category |
244 val is_theory_body = command_category |
243 [thy_load, thy_decl, thy_decl_block, thy_goal]; |
245 [thy_load, thy_decl, thy_decl_block, thy_goal]; |
244 |
246 |
245 val is_proof = command_category |
247 val is_proof = command_category |
246 [qed, qed_script, qed_block, qed_global, prf_goal, prf_block, prf_open, prf_close, |
248 [qed, qed_script, qed_block, qed_global, prf_goal, prf_block, next_block, prf_open, |
247 prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_script, prf_script_goal, |
249 prf_close, prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_script, prf_script_goal, |
248 prf_script_asm_goal]; |
250 prf_script_asm_goal]; |
249 |
251 |
250 val is_proof_body = command_category |
252 val is_proof_body = command_category |
251 [diag, document_heading, document_body, document_raw, prf_block, prf_open, prf_close, |
253 [diag, document_heading, document_body, document_raw, prf_block, next_block, prf_open, |
252 prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_script, prf_script_goal, |
254 prf_close, prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_script, prf_script_goal, |
253 prf_script_asm_goal]; |
255 prf_script_asm_goal]; |
254 |
256 |
255 val is_theory_goal = command_category [thy_goal]; |
257 val is_theory_goal = command_category [thy_goal]; |
256 val is_proof_goal = command_category [prf_goal, prf_asm_goal, prf_script_goal, prf_script_asm_goal]; |
258 val is_proof_goal = command_category [prf_goal, prf_asm_goal, prf_script_goal, prf_script_asm_goal]; |
257 val is_qed = command_category [qed, qed_script, qed_block]; |
259 val is_qed = command_category [qed, qed_script, qed_block]; |