diff options
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 6cc99ddb40..e765701d48 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -535,7 +535,7 @@ let compute_scope_class t = let t', _ = decompose_appvect (Reductionops.whd_betaiotazeta Evd.empty t) in match kind_of_term t' with | Var _ | Const _ | Ind _ -> ScopeRef (global_of_constr t') - | Proj (p, c) -> ScopeRef (ConstRef p) + | Proj (p, c) -> ScopeRef (ConstRef (Projection.constant p)) | Sort _ -> ScopeSort | _ -> raise Not_found |