changeset 32196 | bda40fb76a65 |
parent 32194 | 966e166d039d |
child 33037 | b22e44496dc2 |
--- a/src/HOL/Nominal/nominal_primrec.ML Sat Jul 25 18:55:12 2009 +0200 +++ b/src/HOL/Nominal/nominal_primrec.ML Sat Jul 25 18:55:30 2009 +0200 @@ -380,7 +380,7 @@ [goals] |> Proof.apply (Method.Basic (fn _ => RAW_METHOD (fn _ => rewrite_goals_tac defs_thms THEN - compose_tac (false, rule, length rule_prems) 1)) |> + compose_tac (false, rule, length rule_prems) 1))) |> Seq.hd end;