99 val thy_heading3 = kind "thy_heading3"; |
98 val thy_heading3 = kind "thy_heading3"; |
100 val thy_heading4 = kind "thy_heading4"; |
99 val thy_heading4 = kind "thy_heading4"; |
101 val thy_decl = kind "thy_decl"; |
100 val thy_decl = kind "thy_decl"; |
102 val thy_load = kind "thy_load"; |
101 val thy_load = kind "thy_load"; |
103 fun thy_load_files files = Keyword {kind = "thy_load", files = files, tags = []}; |
102 fun thy_load_files files = Keyword {kind = "thy_load", files = files, tags = []}; |
104 val thy_script = kind "thy_script"; |
|
105 val thy_goal = kind "thy_goal"; |
103 val thy_goal = kind "thy_goal"; |
106 val qed = kind "qed"; |
104 val qed = kind "qed"; |
107 val qed_script = kind "qed_script"; |
105 val qed_script = kind "qed_script"; |
108 val qed_block = kind "qed_block"; |
106 val qed_block = kind "qed_block"; |
109 val qed_global = kind "qed_global"; |
107 val qed_global = kind "qed_global"; |
121 val prf_asm_goal_script = kind "prf_asm_goal_script"; |
119 val prf_asm_goal_script = kind "prf_asm_goal_script"; |
122 val prf_script = kind "prf_script"; |
120 val prf_script = kind "prf_script"; |
123 |
121 |
124 val kinds = |
122 val kinds = |
125 [control, diag, thy_begin, thy_end, thy_heading1, thy_heading2, thy_heading3, thy_heading4, |
123 [control, diag, thy_begin, thy_end, thy_heading1, thy_heading2, thy_heading3, thy_heading4, |
126 thy_load, thy_decl, thy_script, thy_goal, qed, qed_script, qed_block, qed_global, |
124 thy_load, thy_decl, thy_goal, qed, qed_script, qed_block, qed_global, |
127 prf_heading2, prf_heading3, prf_heading4, prf_goal, prf_block, prf_open, |
125 prf_heading2, prf_heading3, prf_heading4, prf_goal, prf_block, prf_open, |
128 prf_close, prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_asm_goal_script, prf_script]; |
126 prf_close, prf_chain, prf_decl, prf_asm, prf_asm_goal, prf_asm_goal_script, prf_script]; |
129 |
127 |
130 |
128 |
131 (* tags *) |
129 (* tags *) |
247 |
245 |
248 val is_theory_load = command_category [thy_load]; |
246 val is_theory_load = command_category [thy_load]; |
249 |
247 |
250 val is_theory = command_category |
248 val is_theory = command_category |
251 [thy_begin, thy_end, thy_heading1, thy_heading2, thy_heading3, thy_heading4, |
249 [thy_begin, thy_end, thy_heading1, thy_heading2, thy_heading3, thy_heading4, |
252 thy_load, thy_decl, thy_script, thy_goal]; |
250 thy_load, thy_decl, thy_goal]; |
253 |
251 |
254 val is_proof = command_category |
252 val is_proof = command_category |
255 [qed, qed_script, qed_block, qed_global, prf_heading2, prf_heading3, prf_heading4, |
253 [qed, qed_script, qed_block, qed_global, prf_heading2, prf_heading3, prf_heading4, |
256 prf_goal, prf_block, prf_open, prf_close, prf_chain, prf_decl, |
254 prf_goal, prf_block, prf_open, prf_close, prf_chain, prf_decl, |
257 prf_asm, prf_asm_goal, prf_asm_goal_script, prf_script]; |
255 prf_asm, prf_asm_goal, prf_asm_goal_script, prf_script]; |