src/HOL/Tools/SMT/smt_normalize.ML
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))