We only filter the smart candidates w.r.t the signature

diff --git a/helm/software/components/tactics/auto.ml b/helm/software/components/tactics/auto.ml
index 53120a44d80940decbd54ad7d6b5932f6f7bd8cc..81d5c6f4c1f80aa9a03c80070c3239663c170259 100644 (file)
--- a/helm/software/components/tactics/auto.ml
+++ b/helm/software/components/tactics/auto.ml
@@ -1714,7 +1714,9 @@ let smart_applicative_case dbd
     (lazy ("smart_candidates" ^ " = " ^ 
              (String.concat "\n" (List.map CicPp.ppterm smart_candidates)))) in
   debug_print debug_msg;
+(* we only filter the smart candidates since they could be too many 
   let candidates = List.filter (only signature context metasenv) candidates in
+*)
   let smart_candidates = 
     List.filter (only signature context metasenv) smart_candidates 
   in