changeset 33222 | 89ced80833ac |
parent 32966 | 5b21661fe618 |
child 33457 | 0fc03a81c27c |
--- a/src/HOL/Statespace/state_space.ML Tue Oct 27 13:15:04 2009 +0100 +++ b/src/HOL/Statespace/state_space.ML Tue Oct 27 13:15:20 2009 +0100 @@ -297,7 +297,7 @@ val tt' = tt |> fold upd all_names; val activate_simproc = - Output.no_warnings_CRITICAL + Output.no_warnings_CRITICAL (* FIXME !?! *) (Simplifier.map_ss (fn ss => ss addsimprocs [distinct_simproc])); val ctxt' = ctxt