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