src/HOL/Nominal/nominal_primrec.ML
changeset 30510 4120fc59dd85
parent 30487 a14ff49d3083
child 31174 f1f1e9b53c81
--- a/src/HOL/Nominal/nominal_primrec.ML	Fri Mar 13 19:53:09 2009 +0100
+++ b/src/HOL/Nominal/nominal_primrec.ML	Fri Mar 13 19:58:26 2009 +0100
@@ -378,7 +378,7 @@
            |> snd
          end)
       [goals] |>
-    Proof.apply (Method.Basic (fn _ => Method.RAW_METHOD (fn _ =>
+    Proof.apply (Method.Basic (fn _ => RAW_METHOD (fn _ =>
       rewrite_goals_tac defs_thms THEN
       compose_tac (false, rule, length rule_prems) 1), Position.none)) |>
     Seq.hd