diff options
Diffstat (limited to 'pretyping/indrec.ml')
| -rw-r--r-- | pretyping/indrec.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml index ed549a77e..1b7a515b9 100644 --- a/pretyping/indrec.ml +++ b/pretyping/indrec.ml @@ -560,7 +560,7 @@ let lookup_eliminator ind_sp s = (* inductive type *) let ref = ConstRef (make_kn mp dp (label_of_id id)) in try - let _ = sp_of_global None ref in + let _ = sp_of_global ref in constr_of_reference ref with Not_found -> (* Then try to get a user-defined eliminator in some other places *) |