diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-11-05 13:40:48 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-11-05 13:40:48 +0000 |
| commit | cc52ee9b6b55fd24649f8a3de8d1acd7de7b12f5 (patch) | |
| tree | ed64056cb50cfbb9f1f2996a5bf8746d4d9501fc | |
| parent | 24f8331a3bc9631c37f162826514e6cb7d679a16 (diff) | |
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
| -rw-r--r-- | parsing/search.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/parsing/search.ml b/parsing/search.ml index e225d59a4..b9982ad3d 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 |