diff options
| author | Gaëtan Gilbert | 2018-09-27 13:22:45 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-09-27 13:22:45 +0200 |
| commit | 49e9fe1c4666beda099872988144d12138dc6349 (patch) | |
| tree | 47eb811fc8547c6d7acde74e7832ef679e2cf90a /vernac | |
| parent | f10e10eeb2efd8f5d13fdb4619883f45aa834238 (diff) | |
| parent | 7d4d30ab00ded50e4c15c1b078044ea10dfb2fc1 (diff) | |
Merge PR #8475: Centralize the reliance on abstract universe context internals
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/himsg.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/vernac/himsg.ml b/vernac/himsg.ml index e7b2a0e8a6..71155d7921 100644 --- a/vernac/himsg.ml +++ b/vernac/himsg.ml @@ -896,7 +896,8 @@ let explain_not_match_error = function quote (Printer.safe_pr_lconstr_env env (Evd.from_env env) t2) | IncompatibleConstraints cst -> str " the expected (polymorphic) constraints do not imply " ++ - let cst = Univ.AUContext.instantiate (Univ.AUContext.instance cst) cst in + let cst = Univ.UContext.constraints (Univ.AUContext.repr cst) in + (** FIXME: provide a proper naming for the bound variables *) quote (Univ.pr_constraints (Termops.pr_evd_level Evd.empty) cst) let explain_signature_mismatch l spec why = |