author | blanchet |
Wed, 04 Mar 2009 15:33:07 +0100 | |
changeset 30252 | 35518956f0ee |
parent 30250 | 05d312f09a25 (current diff) |
parent 30251 | 7aec011818e0 (diff) |
child 30253 | 63cae7fd7e64 |
--- a/src/HOL/Nominal/nominal_primrec.ML Wed Mar 04 14:23:54 2009 +0100 +++ b/src/HOL/Nominal/nominal_primrec.ML Wed Mar 04 15:33:07 2009 +0100 @@ -374,7 +374,9 @@ in lthy'' |> LocalTheory.note Thm.theoremK ((qualify (Binding.name "simps"), - [Attrib.internal (K Simplifier.simp_add)]), maps snd simps') + (map (Attrib.internal o K) + [Simplifier.simp_add, Nitpick_Const_Simp_Thms.add], + maps snd simps') |> snd end) [goals] |>