src/Pure/Isar/keyword.ML
changeset 60694 b3fa4a8cdb5f
parent 60693 044f8bb3dd30
child 61618 27af754f50ca
equal deleted inserted replaced
60693:044f8bb3dd30 60694:b3fa4a8cdb5f
    20   val qed_script: string
    20   val qed_script: string
    21   val qed_block: string
    21   val qed_block: string
    22   val qed_global: string
    22   val qed_global: string
    23   val prf_goal: string
    23   val prf_goal: string
    24   val prf_block: string
    24   val prf_block: string
       
    25   val next_block: string
    25   val prf_open: string
    26   val prf_open: string
    26   val prf_close: string
    27   val prf_close: string
    27   val prf_chain: string
    28   val prf_chain: string
    28   val prf_decl: string
    29   val prf_decl: string
    29   val prf_asm: string
    30   val prf_asm: string
    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];