diff options
Diffstat (limited to 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 7c63c970d..52c930e62 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -527,7 +527,7 @@ and evar_eqappr_x ?(rhs_is_already_stuck = false) ts env evd pbty in Success evd' with Univ.UniverseInconsistency _ -> UnifFailure (evd,UnifUnivInconsistency) - | _ -> UnifFailure (evd,NotSameHead)) + | e when Errors.noncritical e -> UnifFailure (evd,NotSameHead)) | Prod (n,c1,c'1), Prod (_,c2,c'2) when app_empty -> ise_and evd |