diff options
| author | Pierre-Marie Pédrot | 2015-10-14 11:24:32 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-10-14 11:36:28 +0200 |
| commit | d024277d485e3b6a70c217be965063a66aeffefe (patch) | |
| tree | a8fad0c66ea483b9adf8bfc3726e5b5c52386cc7 | |
| parent | bc1c530550e7d06655d541c21859321a2f84c260 (diff) | |
Fixing bug #4367: Wrong error message in unification.
| -rw-r--r-- | toplevel/himsg.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 7a3bcfba80..8efc36df72 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -783,7 +783,7 @@ let explain_pretype_error env sigma err = let {uj_val = c; uj_type = actty} = j in let (env, c, actty, expty), e = contract3' env c actty t e in let j = {uj_val = c; uj_type = actty} in - explain_actual_type env sigma j t (Some e) + explain_actual_type env sigma j expty (Some e) | UnifOccurCheck (ev,rhs) -> explain_occur_check env sigma ev rhs | UnsolvableImplicit (evk,exp) -> explain_unsolvable_implicit env sigma evk exp | VarNotFound id -> explain_var_not_found env id |