changeset 41193 | dc33b8ea4526 |
parent 41126 | e0bd443c0fdd |
child 41194 | 9796e5e01b61 |
--- a/src/HOL/Tools/SMT/smt_normalize.ML Wed Dec 15 17:14:44 2010 +0100 +++ b/src/HOL/Tools/SMT/smt_normalize.ML Thu Dec 16 12:05:00 2010 +0000 @@ -586,7 +586,7 @@ type T = extra_norm U.dict val empty = [] val extend = I - val merge = U.dict_merge fst + fun merge xx = U.dict_merge fst xx ) fun add_extra_norm (cs, norm) = Extra_Norms.map (U.dict_update (cs, norm))