src/Tools/adhoc_overloading.ML

--- a/src/Tools/adhoc_overloading.ML	Fri Jul 19 12:00:31 2013 +0200
+++ b/src/Tools/adhoc_overloading.ML	Fri Jul 19 14:51:45 2013 +0200
@@ -176,7 +176,7 @@
   Term_Subst.map_aterms_same (insert_variants_same ctxt t) t) ts ctxt;
 
 fun uncheck ts ctxt =
-  if Config.get ctxt show_variants then NONE
+  if Config.get ctxt show_variants orelse exists (is_none o try Term.type_of) ts then NONE
   else gen_check_uncheck (insert_overloaded_same ctxt) ts ctxt;
 
 fun reject_unresolved ts ctxt =