summaryrefslogtreecommitdiff
path: root/toplevel/search.ml
diff options
context:
space:
mode:
authorGravatar Stephane Glondu <steph@glondu.net>2011-04-19 16:44:20 +0200
committerGravatar Stephane Glondu <steph@glondu.net>2011-04-19 16:44:20 +0200
commit9d27ae09786866b6e3d7b79d1fa7667e5e2aa309 (patch)
treea418d1edb3d53cdb4185b9719b7a70822cf5a24d /toplevel/search.ml
parent6b691bbd2101fd39395c0d2135fd7c06a8915e14 (diff)
Imported Upstream version 8.3.pl2upstream/8.3.pl2
Diffstat (limited to 'toplevel/search.ml')
-rw-r--r--toplevel/search.ml5
1 files changed, 3 insertions, 2 deletions
diff --git a/toplevel/search.ml b/toplevel/search.ml
index 0bd552af..574983cd 100644
--- a/toplevel/search.ml
+++ b/toplevel/search.ml
@@ -6,7 +6,7 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-(* $Id: search.ml 13323 2010-07-24 15:57:30Z herbelin $ *)
+(* $Id: search.ml 13853 2011-02-24 07:57:31Z glondu $ *)
open Pp
open Util
@@ -197,7 +197,8 @@ let filter_by_module_from_list = function
| l, outside -> filter_by_module l (not outside)
let filter_subproof gr _ _ =
- not (string_string_contains (name_of_reference gr) "_subproof")
+ not (string_string_contains (name_of_reference gr) "_subproof") &&
+ not (string_string_contains (name_of_reference gr) "_admitted")
let (&&&&&) f g x y z = f x y z && g x y z