diff -r 4664489469fc -r 1cbb1134cb6c src/HOL/Nominal/nominal_primrec.ML
--- a/src/HOL/Nominal/nominal_primrec.ML	Fri Dec 01 12:23:53 2006 +0100
+++ b/src/HOL/Nominal/nominal_primrec.ML	Fri Dec 01 16:08:45 2006 +0100
@@ -354,7 +354,7 @@
     Proof.theorem_i NONE
       (fn thss => ProofContext.theory (fn thy =>
          let
-           val simps = flat thss;
+           val simps = map standard (flat thss);
            val (simps', thy') =
              fold_map note ((map fst eqns ~~ atts) ~~ map single simps) thy;
            val simps'' = maps snd simps'