diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:26:01 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:26:01 +0000 |
| commit | bb4982b896c7b96eef2f18ceab3d0b8e294e44d0 (patch) | |
| tree | c4c06f0f6db38a3b5e7c4c0ce017962721c111f6 /library/heads.ml | |
| parent | 16b9b9d12313a84f8b29e998844188326d6b16f6 (diff) | |
Heads: generic equality on constr replaced by destructor
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14331 85f007b7-540e-0410-9357-904b9bb8a0f7
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 363443bbb..8fda452c1 100644 --- a/library/heads.ml +++ b/library/heads.ml @@ -146,7 +146,7 @@ let cache_head o = let subst_head_approximation subst = function | RigidHead (RigidParameter cst) as k -> let cst,c = subst_con subst cst in - if c = mkConst cst then + if isConst c && eq_constant (destConst c) cst then (* A change of the prefix of the constant *) k else |