src/Pure/Isar/keyword.ML
changeset 56146 8453d35e4684
parent 54523 11087efad95e
child 56895 f058120aaad4
equal deleted inserted replaced
56145:a200bffe4027 56146:8453d35e4684
    18   val thy_heading3: T
    18   val thy_heading3: T
    19   val thy_heading4: T
    19   val thy_heading4: T
    20   val thy_decl: T
    20   val thy_decl: T
    21   val thy_load: T
    21   val thy_load: T
    22   val thy_load_files: string list -> T
    22   val thy_load_files: string list -> T
    23   val thy_script: T
       
    24   val thy_goal: T
    23   val thy_goal: T
    25   val qed: T
    24   val qed: T
    26   val qed_script: T
    25   val qed_script: T
    27   val qed_block: T
    26   val qed_block: T
    28   val qed_global: T
    27   val qed_global: T
    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];