--- a/src/Pure/Isar/keyword.scala Fri Mar 16 20:45:47 2012 +0100
+++ b/src/Pure/Isar/keyword.scala Fri Mar 16 21:20:23 2012 +0100
@@ -16,7 +16,10 @@
val DIAG = "diag"
val THY_BEGIN = "thy_begin"
val THY_END = "thy_end"
- val THY_HEADING = "thy_heading"
+ val THY_HEADING1 = "thy_heading1"
+ val THY_HEADING2 = "thy_heading2"
+ val THY_HEADING3 = "thy_heading3"
+ val THY_HEADING4 = "thy_heading4"
val THY_DECL = "thy_decl"
val THY_SCRIPT = "thy_script"
val THY_GOAL = "thy_goal"
@@ -24,7 +27,9 @@
val QED = "qed"
val QED_BLOCK = "qed_block"
val QED_GLOBAL = "qed_global"
- val PRF_HEADING = "prf_heading"
+ val PRF_HEADING2 = "prf_heading2"
+ val PRF_HEADING3 = "prf_heading3"
+ val PRF_HEADING4 = "prf_heading4"
val PRF_GOAL = "prf_goal"
val PRF_BLOCK = "prf_block"
val PRF_OPEN = "prf_open"
@@ -42,12 +47,13 @@
val control = Set(CONTROL)
val diag = Set(DIAG)
val theory =
- Set(THY_BEGIN, THY_END, THY_HEADING, THY_DECL, THY_SCRIPT, THY_GOAL, THY_SCHEMATIC_GOAL)
+ Set(THY_BEGIN, THY_END, THY_HEADING1, THY_HEADING2, THY_HEADING3, THY_HEADING4,
+ THY_DECL, THY_SCRIPT, THY_GOAL, THY_SCHEMATIC_GOAL)
val theory1 = Set(THY_BEGIN, THY_END)
val theory2 = Set(THY_DECL, THY_GOAL)
val proof =
- Set(QED, QED_BLOCK, QED_GLOBAL, PRF_HEADING, PRF_GOAL, PRF_BLOCK,
- PRF_OPEN, PRF_CHAIN, PRF_DECL, PRF_ASM, PRF_ASM_GOAL, PRF_SCRIPT)
+ Set(QED, QED_BLOCK, QED_GLOBAL, PRF_HEADING2, PRF_HEADING3, PRF_HEADING4, PRF_GOAL,
+ PRF_BLOCK, PRF_OPEN, PRF_CHAIN, PRF_DECL, PRF_ASM, PRF_ASM_GOAL, PRF_SCRIPT)
val proof1 =
Set(QED, QED_BLOCK, QED_GLOBAL, PRF_GOAL, PRF_BLOCK, PRF_OPEN, PRF_CLOSE, PRF_CHAIN, PRF_DECL)
val proof2 = Set(PRF_ASM, PRF_ASM_GOAL)