diff options
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 94ec820297..621174aaa1 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 cad0beabf3..e16d1206aa 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 cc1443162c..b74ca19368 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 |