# HG changeset patch
# User nipkow
# Date 1164985725 -3600
# Node ID 1cbb1134cb6cd64ae920d8bdac3b81b27770b90f
# Parent  4664489469fc9bda63c5cf1231629afe9d43dbdc
Added missing "standard"

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'