src/HOL/Tools/inductive_package.ML
changeset 29868 787349bb53e9
parent 29866 6e93ae65c678
child 30089 f631fb528277
child 30240 5b25fee0362c
     1.1 --- a/src/HOL/Tools/inductive_package.ML	Mon Feb 09 10:39:57 2009 +0100
     1.2 +++ b/src/HOL/Tools/inductive_package.ML	Mon Feb 09 12:31:36 2009 +0100
     1.3 @@ -691,7 +691,8 @@
     1.4        ctxt |>
     1.5        LocalTheory.notes kind
     1.6          (map rec_qualified intr_bindings ~~ intr_atts ~~ map (fn th => [([th],
     1.7 -           [Attrib.internal (K (ContextRules.intro_query NONE))])]) intrs) |>>
     1.8 +           [Attrib.internal (K (ContextRules.intro_query NONE)),
     1.9 +            Attrib.internal (K Nitpick_Ind_Intro_Thms.add)])]) intrs) |>>
    1.10        map (hd o snd);
    1.11      val (((_, elims'), (_, [induct'])), ctxt2) =
    1.12        ctxt1 |>