--- a/src/HOL/Library/refute.ML Fri Mar 21 12:14:33 2014 +0100
+++ b/src/HOL/Library/refute.ML Fri Mar 21 12:34:50 2014 +0100
@@ -548,7 +548,7 @@
Const (@{const_name all}, _) => t
| Const (@{const_name "=="}, _) => t
| Const (@{const_name "==>"}, _) => t
- | Const (@{const_name TYPE}, _) => t (* axiomatic type classes *)
+ | Const (@{const_name Pure.type}, _) => t (* axiomatic type classes *)
(* HOL *)
| Const (@{const_name Trueprop}, _) => t
| Const (@{const_name Not}, _) => t
@@ -713,7 +713,7 @@
| Const (@{const_name "=="}, _) => axs
| Const (@{const_name "==>"}, _) => axs
(* axiomatic type classes *)
- | Const (@{const_name TYPE}, T) => collect_type_axioms T axs
+ | Const (@{const_name Pure.type}, T) => collect_type_axioms T axs
(* HOL *)
| Const (@{const_name Trueprop}, _) => axs
| Const (@{const_name Not}, _) => axs