| changeset 41194 | 9796e5e01b61 |
| parent 41174 | 10eb369f8c01 |
| parent 41193 | dc33b8ea4526 |
| child 41224 | 8a104c2a186f |
--- a/src/HOL/Tools/SMT/smt_normalize.ML Thu Dec 16 11:31:22 2010 +0100 +++ b/src/HOL/Tools/SMT/smt_normalize.ML Thu Dec 16 12:19:00 2010 +0000 @@ -589,7 +589,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))