From cb277b8fae9290e1d5c43861b649b7f249ceac05 Mon Sep 17 00:00:00 2001
From: glondu
Date: Fri, 25 Feb 2011 14:58:07 +0000
Subject: Filter out admitted subgoals from search results

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13858 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/search.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/toplevel/search.ml b/toplevel/search.ml
index d077433807..a22d5ebc76 100644
--- a/toplevel/search.ml
+++ b/toplevel/search.ml
@@ -191,7 +191,8 @@ let filter_by_module_from_list = function
   | l, outside -> filter_by_module l (not outside)
 
 let filter_subproof gr _ _ =
-  not (string_string_contains ~where:(name_of_reference gr) ~what:"_subproof")
+  not (string_string_contains ~where:(name_of_reference gr) ~what:"_subproof") &&
+  not (string_string_contains ~where:(name_of_reference gr) ~what:"_admitted")
 
 let (&&&&&) f g x y z = f x y z && g x y z
 
-- 
cgit v1.2.3