diff options
| -rw-r--r-- | pretyping/recordops.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index ccedf1520d..0f1b9ac970 100644 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -332,8 +332,7 @@ let lookup_canonical_conversion (proj,pat) = let is_open_canonical_projection sigma (c,args) = try - let l = Refmap.find (global_of_constr c) !object_table in - let n = (snd (List.hd l)).o_NPARAMS in + let n = find_projection_nparams (global_of_constr c) in try isEvar_or_Meta (whd_evar sigma (List.nth args n)) with Failure _ -> false with Not_found -> false |