diff options
| author | glondu | 2011-02-25 14:58:07 +0000 |
|---|---|---|
| committer | glondu | 2011-02-25 14:58:07 +0000 |
| commit | cb277b8fae9290e1d5c43861b649b7f249ceac05 (patch) | |
| tree | 072320898fa7ea0945945c646a806966b6486b18 | |
| parent | 51f2b9f79b92e6feee8915f311fdb75c273fabf4 (diff) | |
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
| -rw-r--r-- | toplevel/search.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |