From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Wed, 6 Jun 2007 17:12:39 +0000 (+0000)
Subject: sort_new_elems on prop_only
X-Git-Tag: 0.4.95@7852~400
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=72e7d9c9d410ded571b9d3c396197b26181c1e2a;p=helm.git

sort_new_elems on prop_only
---

diff --git a/components/tactics/auto.ml b/components/tactics/auto.ml
index e42c3ba51..b439b6cfc 100644
--- a/components/tactics/auto.ml
+++ b/components/tactics/auto.ml
@@ -1123,8 +1123,8 @@ let try_candidate
 ;;
 
 let sort_new_elems = 
- List.sort (fun (_,_,_,l1) (_,_,_,l2) -> List.length l1 - List.length l2)
-(*  List.sort (fun (_,_,_,l2) (_,_,_,l1) -> List.length l1 - List.length l2)  *)
+ List.sort (fun (_,_,_,l1) (_,_,_,l2) -> 
+  List.length (prop_only l1) - List.length (prop_only l2))
 ;;
 
 let applicative_case