src/HOL/Nominal/nominal_primrec.ML
changeset 59953 3d207f8f40dd
parent 59936 b8ffc3dc9e24
child 60003 ba8fa0c38d66
--- a/src/HOL/Nominal/nominal_primrec.ML	Wed Apr 08 11:52:35 2015 +0200
+++ b/src/HOL/Nominal/nominal_primrec.ML	Wed Apr 08 11:52:53 2015 +0200
@@ -374,7 +374,7 @@
         end)
       [goals] |>
     Proof.apply (Method.Basic (fn ctxt => fn _ =>
-      NO_CASES
+      EMPTY_CASES
        (rewrite_goals_tac ctxt defs_thms THEN
         compose_tac ctxt (false, rule, length rule_prems) 1))) |>
     Seq.hd