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