diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 2b3e943559..4936ba4264 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -386,6 +386,7 @@ let is_rigid_head flags t = match kind_of_term t with | Const (cst,u) -> not (Cpred.mem cst (snd flags.modulo_delta)) | Ind (i,u) -> true + | Construct _ -> true | Fix _ | CoFix _ -> true | _ -> false |