diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-05-15 10:50:42 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-05-15 10:52:53 +0200 |
commit | 44a5a0acb020be92ffe39209caf414b57c759139 (patch) | |
tree | bd08c5e17acf5ad6fedba7e7d6176e1cf353c9c3 /library/heads.ml | |
parent | 49542cf365715e27811cc15d99565046d8754c20 (diff) |
heads: avoid forcing opaque proofs
Diffstat (limited to 'library/heads.ml')
-rw-r--r-- | library/heads.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/heads.ml b/library/heads.ml index 0faad827e..fa0393019 100644 --- a/library/heads.ml +++ b/library/heads.ml @@ -122,8 +122,9 @@ let compute_head = function | EvalConstRef cst -> let env = Global.env() in let cb = Environ.lookup_constant cst env in + let is_Def = function Declarations.Def _ -> true | _ -> false in let body = - if cb.Declarations.const_proj = None + if cb.Declarations.const_proj = None && is_Def cb.Declarations.const_body then Declareops.body_of_constant cb else None in (match body with |