diff options
Diffstat (limited to 'library/heads.ml')
-rw-r--r-- | library/heads.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/heads.ml b/library/heads.ml index 8b28f0500..94ce11731 100644 --- a/library/heads.ml +++ b/library/heads.ml @@ -123,7 +123,7 @@ let compute_head = function let is_Def = function Declarations.Def _ -> true | _ -> false in let body = if cb.Declarations.const_proj = None && is_Def cb.Declarations.const_body - then Declareops.body_of_constant cb else None + then Declareops.body_of_constant (Environ.opaque_tables env) cb else None in (match body with | None -> RigidHead (RigidParameter cst) |