Changed some warnings to debug messages
authorpaulson
Fri, 10 Mar 2006 12:28:38 +0100
changeset 19232 1f5b5dc3f48a
parent 19231 c8879dd3a953
child 19233 77ca20b0ed77
Changed some warnings to debug messages
src/HOL/Tools/res_axioms.ML
--- a/src/HOL/Tools/res_axioms.ML	Fri Mar 10 12:27:36 2006 +0100
+++ b/src/HOL/Tools/res_axioms.ML	Fri Mar 10 12:28:38 2006 +0100
@@ -301,9 +301,9 @@
 	       (change clause_cache (Symtab.update (name, (th, cls))); (cls,thy')))
     | SOME (th',cls) =>
         if eq_thm(th,th') then (cls,thy)
-	else (warning ("skolem_cache: Ignoring variant of theorem " ^ name); 
-	      warning (string_of_thm th);
-	      warning (string_of_thm th');
+	else (Output.debug ("skolem_cache: Ignoring variant of theorem " ^ name); 
+	      Output.debug (string_of_thm th);
+	      Output.debug (string_of_thm th');
 	      ([th],thy));
 	      
 fun skolem_cache ((name,th), thy) = #2 (skolem_cache_thm ((name,th), thy));
@@ -319,9 +319,9 @@
 		  in change clause_cache (Symtab.update (s, (th, cls))); cls end
 	      | SOME(th',cls) =>
 		  if eq_thm(th,th') then cls
-		  else (warning ("cnf_axiom: duplicate or variant of theorem " ^ name); 
-		        warning (string_of_thm th);
-		        warning (string_of_thm th');
+		  else (Output.debug ("cnf_axiom: duplicate or variant of theorem " ^ name); 
+		        Output.debug (string_of_thm th);
+		        Output.debug (string_of_thm th');
 		        cls);
 
 fun pairname th = (Thm.name_of_thm th, th);