permissive uncheck -- allow printing of malformed terms (e.g. in error messages);
--- 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 =