diff options
-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 |