diff options
| author | Pierre-Marie Pédrot | 2018-03-27 13:34:14 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-03-27 13:34:14 +0200 |
| commit | 47ad058a918cb0fa8fef70fd7bd95bcb9ca05ee2 (patch) | |
| tree | e635d65f22b2b0f67b90ee6dd4ab8f339a4e5947 /engine/evarutil.ml | |
| parent | 01b7de3a673eb89cea61442c4db721aad9520c9f (diff) | |
| parent | 7fd28dc95e3251a10617ddb6758cc00b8960f954 (diff) | |
Merge PR #7062: Slightly refining some error messages about unresolvable evars.
Diffstat (limited to 'engine/evarutil.ml')
| -rw-r--r-- | engine/evarutil.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index 9cf81eccea..45760c6b4b 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -807,11 +807,11 @@ let judge_of_new_Type evd = let (evd', s) = new_univ_variable univ_rigid evd in (evd', { uj_val = mkSort (Type s); uj_type = mkSort (Type (Univ.super s)) }) -let subterm_source evk (loc,k) = +let subterm_source evk ?where (loc,k) = let evk = match k with - | Evar_kinds.SubEvar (evk) -> evk + | Evar_kinds.SubEvar (None,evk) when where = None -> evk | _ -> evk in - (loc,Evar_kinds.SubEvar evk) + (loc,Evar_kinds.SubEvar (where,evk)) (* Add equality constraints for covariant/invariant positions. For irrelevant positions, unify universes when flexible. *) |