     "inductive_cases"))
 
 (defconst isar-keywords-theory-goal
-  '("instance"
+  '("corollary"
+    "instance"
     "lemma"
     "recdef_tc"
     "theorem"

    "consts"
    "consts_code"
    "context"
    "datatype"
    "declare"
    "def"

(defconst isar-keywords-theory-decl
  '("ML_setup"
    "arities"
    "axclass"
    "axioms"
    "classes"
