sort_new_elems on prop_only

diff --git a/helm/software/components/tactics/auto.ml b/helm/software/components/tactics/auto.ml
index e42c3ba513ed2d9e1e1993616f1336337f2a9f56..b439b6cfc6efa2c383b0389a09532fa808dc3ef0 100644 (file)
--- 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