diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-03 13:54:39 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-03 13:54:39 +0200 |
| commit | 33c3c3c0a2dd39d577e0295e70f10e9f9d3574cb (patch) | |
| tree | 3d21a8940b9685ea33bd0f0f1adbdf09da8c1a66 /pretyping | |
| parent | df0d30099a9647e681391c15bac12655819772ce (diff) | |
Fixing #3634 (wrong env in "cannot instantiate because not in its
scope" error message).
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarsolve.ml | 2 | ||||
| -rw-r--r-- | pretyping/pretype_errors.ml | 2 | ||||
| -rw-r--r-- | pretyping/pretype_errors.mli | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index 94ec82029..621174aaa 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -1532,7 +1532,7 @@ let solve_simple_eqn conv_algo ?(choose=false) env evd (pbty,(evk1,args1 as ev1) reconsider_conv_pbs conv_algo evd with | NotInvertibleUsingOurAlgorithm t -> - UnifFailure (evd,NotClean (ev1,t)) + UnifFailure (evd,NotClean (ev1,env,t)) | OccurCheckIn (evd,rhs) -> UnifFailure (evd,OccurCheck (evk1,rhs)) | MetaOccurInBodyInternal -> diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index cad0beabf..e16d1206a 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -14,7 +14,7 @@ open Type_errors type unification_error = | OccurCheck of existential_key * constr - | NotClean of existential * constr + | NotClean of existential * env * constr | NotSameArgSize | NotSameHead | NoCanonicalStructure diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli index cc1443162..b74ca1936 100644 --- a/pretyping/pretype_errors.mli +++ b/pretyping/pretype_errors.mli @@ -15,7 +15,7 @@ open Type_errors type unification_error = | OccurCheck of existential_key * constr - | NotClean of existential * constr + | NotClean of existential * env * constr | NotSameArgSize | NotSameHead | NoCanonicalStructure |