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: make_still_working~6249
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=36809208fa25a494e50004b321fa9a90108ae262;p=helm.git

sort_new_elems on prop_only
---

diff --git a/helm/software/components/tactics/auto.ml b/helm/software/components/tactics/auto.ml
index e42c3ba51..b439b6cfc 100644
--- a/helm/software/components/tactics/auto.ml
+++ b/helm/software/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