--- a/src/HOL/Tools/refute.ML Sat Aug 28 20:24:40 2010 +0800
+++ b/src/HOL/Tools/refute.ML Sat Aug 28 16:14:32 2010 +0200
@@ -647,7 +647,7 @@
| Const (@{const_name Hilbert_Choice.Eps}, _) => t
| Const (@{const_name All}, _) => t
| Const (@{const_name Ex}, _) => t
- | Const (@{const_name "op ="}, _) => t
+ | Const (@{const_name HOL.eq}, _) => t
| Const (@{const_name HOL.conj}, _) => t
| Const (@{const_name HOL.disj}, _) => t
| Const (@{const_name HOL.implies}, _) => t
@@ -823,7 +823,7 @@
end
| Const (@{const_name All}, T) => collect_type_axioms T axs
| Const (@{const_name Ex}, T) => collect_type_axioms T axs
- | Const (@{const_name "op ="}, T) => collect_type_axioms T axs
+ | Const (@{const_name HOL.eq}, T) => collect_type_axioms T axs
| Const (@{const_name HOL.conj}, _) => axs
| Const (@{const_name HOL.disj}, _) => axs
| Const (@{const_name HOL.implies}, _) => axs
@@ -1850,16 +1850,16 @@
end
| Const (@{const_name Ex}, _) =>
SOME (interpret thy model args (eta_expand t 1))
- | Const (@{const_name "op ="}, _) $ t1 $ t2 => (* similar to "==" (Pure) *)
+ | Const (@{const_name HOL.eq}, _) $ t1 $ t2 => (* similar to "==" (Pure) *)
let
val (i1, m1, a1) = interpret thy model args t1
val (i2, m2, a2) = interpret thy m1 a1 t2
in
SOME (make_equality (i1, i2), m2, a2)
end
- | Const (@{const_name "op ="}, _) $ t1 =>
+ | Const (@{const_name HOL.eq}, _) $ t1 =>
SOME (interpret thy model args (eta_expand t 1))
- | Const (@{const_name "op ="}, _) =>
+ | Const (@{const_name HOL.eq}, _) =>
SOME (interpret thy model args (eta_expand t 2))
| Const (@{const_name HOL.conj}, _) $ t1 $ t2 =>
(* 3-valued logic *)