changeset 47715 | 04400144c6fc |
parent 47108 | 2a1953f0d20d |
child 49441 | 0ae4216a1783 |
--- a/src/HOL/Mutabelle/mutabelle_extra.ML Tue Apr 24 09:47:40 2012 +0200 +++ b/src/HOL/Mutabelle/mutabelle_extra.ML Tue Apr 24 09:47:40 2012 +0200 @@ -189,7 +189,7 @@ val ctxt = Proof_Context.init_global thy val state = Proof.init ctxt val (res, _) = Nitpick.pick_nits_in_term state - (Nitpick_Isar.default_params thy []) Nitpick.Normal 1 1 1 [] [] t + (Nitpick_Isar.default_params thy []) Nitpick.Normal 1 1 1 [] [] [] t val _ = Output.urgent_message ("Nitpick: " ^ res) in (rpair []) (case res of