src/HOL/Tools/SMT/smt_monomorph.ML
changeset 38864 4abe644fcea5
parent 36898 8e55aa1306c5
child 39020 ac0f24f850c9
--- a/src/HOL/Tools/SMT/smt_monomorph.ML	Sat Aug 28 20:24:40 2010 +0800
+++ b/src/HOL/Tools/SMT/smt_monomorph.ML	Sat Aug 28 16:14:32 2010 +0200
@@ -16,7 +16,7 @@
 
 val ignored = member (op =) [
   @{const_name All}, @{const_name Ex}, @{const_name Let}, @{const_name If},
-  @{const_name "op ="}, @{const_name zero_class.zero},
+  @{const_name HOL.eq}, @{const_name zero_class.zero},
   @{const_name one_class.one}, @{const_name number_of}]
 
 fun is_const f (n, T) = not (ignored n) andalso f T