diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-17 14:56:07 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-17 14:56:07 +0000 |
commit | 358c68e60a4a82dbce209559b94858e917590787 (patch) | |
tree | a344c2251e4efba3d6916d623538557ff24e0239 /pretyping/pretype_errors.ml | |
parent | 8ac929ea128f1f7353b3f4d532b642e769542e55 (diff) |
Locating errors from consider_remaining_unif_problems if possible
(useful when consider_remaining_unif_problems not called via
pretyping.ml, as e.g. from command.ml).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16206 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretype_errors.ml')
-rw-r--r-- | pretyping/pretype_errors.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index f3235b9d1..ec808de0f 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -149,6 +149,10 @@ let error_unsolvable_implicit loc env sigma evi e explain = Loc.raise loc (PretypeError (env, sigma, UnsolvableImplicit (evi, e, explain))) +let error_cannot_unify_loc loc env sigma ?reason (m,n) = + let env, m, n = contract2 env m n in + Loc.raise loc (PretypeError (env, sigma,CannotUnify (m,n,reason))) + let error_cannot_unify env sigma ?reason (m,n) = raise (PretypeError (env, sigma,CannotUnify (m,n,reason))) |