diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-12 15:29:10 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-13 15:14:45 +0200 |
| commit | 34bcd562cc9c8e5e6b0f3b79a15b9c55dd98813e (patch) | |
| tree | 461be63f369d2018ef427ae682cd152dc6bccbec /vernac/himsg.ml | |
| parent | 71563ebb86a83bc7cdfc17f58493f59428d764b0 (diff) | |
The only abstraction-breaking function in Univ is now AUContext.instance.
Diffstat (limited to 'vernac/himsg.ml')
| -rw-r--r-- | vernac/himsg.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/himsg.ml b/vernac/himsg.ml index 86dcb6d4d..784c6d338 100644 --- a/vernac/himsg.ml +++ b/vernac/himsg.ml @@ -909,7 +909,7 @@ let explain_not_match_error = function quote (Printer.safe_pr_lconstr_env env Evd.empty t2) | IncompatibleConstraints cst -> str " the expected (polymorphic) constraints do not imply " ++ - let cst = Univ.UContext.constraints (Univ.instantiate_univ_context cst) in + let cst = Univ.AUContext.instantiate (Univ.AUContext.instance cst) cst in quote (Univ.pr_constraints (Termops.pr_evd_level Evd.empty) cst) let explain_signature_mismatch l spec why = |