From cc52ee9b6b55fd24649f8a3de8d1acd7de7b12f5 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 5 Nov 2007 13:40:48 +0000
Subject: Suppress from the ouputs of SearchAbout all lemmas generated by
 "abstract" (in particular all the omega instances).

This is clearly a matter of taste: if somebody feels that these lemmas 
ought to be displayed, please revert this patch and/or contact me. 



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

diff --git a/parsing/search.ml b/parsing/search.ml
index e225d59a48..b9982ad3d2 100644
--- a/parsing/search.ml
+++ b/parsing/search.ml
@@ -214,7 +214,8 @@ let search_about_item (itemref,typ) = function
 let raw_search_about filter_modules display_function l =
   let filter ref' env typ =
     filter_modules ref' env typ &&
-    List.for_all (search_about_item (ref',typ)) l
+    List.for_all (search_about_item (ref',typ)) l && 
+    not (string_string_contains (name_of_reference ref') "_subproof")
   in
   gen_filtered_search filter display_function
 
-- 
cgit v1.2.3