# HG changeset patch
# User blanchet
# Date 1338971705 -7200
# Node ID 6435b2c7303812886d96878bc4f2e96e7610be31
# Parent  512327d842c3e8314b2650efcb846572c90caa25
more aggressive type argument optimization

diff -r 512327d842c3 -r 6435b2c73038 src/HOL/Tools/ATP/atp_problem_generate.ML
--- a/src/HOL/Tools/ATP/atp_problem_generate.ML	Wed Jun 06 10:35:05 2012 +0200
+++ b/src/HOL/Tools/ATP/atp_problem_generate.ML	Wed Jun 06 10:35:05 2012 +0200
@@ -860,7 +860,7 @@
         else if poly = Mangled_Monomorphic then
           Mangled_Type_Args
         else if member (op =) monom_constrs s andalso
-                granularity_of_type_level level = Positively_Naked_Vars then
+                granularity_of_type_level level <> Ghost_Type_Arg_Vars then
           No_Type_Args
         else
           Explicit_Type_Args