diff options
| author | msozeau | 2008-03-31 12:13:43 +0000 |
|---|---|---|
| committer | msozeau | 2008-03-31 12:13:43 +0000 |
| commit | 64270c153f1b884eee201ab5eb5681ce61e7054e (patch) | |
| tree | ec11f75a52a87eb30d6cace66fd92c47cbad2d51 /interp/implicit_quantifiers.ml | |
| parent | 45f5a9e88a35412c49703c95dbca6c38b9340e11 (diff) | |
- Fix for rewriting under dependent products.
- Use support for abbreviations with params added by Hugo for inverse.
- Standard priorities for operators on relations.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10733 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index 8f42d76c28..c86a2428c0 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -31,15 +31,12 @@ let ids_of_list l = let locate_reference qid = match Nametab.extended_locate qid with - | TrueGlobal ref -> ref - | SyntacticDef kn -> - match Syntax_def.search_syntactic_definition dummy_loc kn with - | [],ARef ref -> ref - | _ -> raise Not_found + | TrueGlobal ref -> true + | SyntacticDef kn -> true let is_global id = try - let _ = locate_reference (make_short_qualid id) in true + locate_reference (make_short_qualid id) with Not_found -> false |