diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-11-05 16:04:43 -0500 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-11-11 19:13:52 +0100 |
| commit | 2f56f0fcf21902bb1317f1d6f7ba4b593d712646 (patch) | |
| tree | 66ac9f8f8e35cf2146b8e5f8bb02ec72c6c5f575 /pretyping/evarsolve.mli | |
| parent | 701a69732ef2abfc7384296e090a3e9bd7604bbd (diff) | |
Fix bug #4293: ensure let-ins do not contain algebraic universes in
their type annotation.
Diffstat (limited to 'pretyping/evarsolve.mli')
| -rw-r--r-- | pretyping/evarsolve.mli | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/evarsolve.mli b/pretyping/evarsolve.mli index 21d976091..86a1e3e0c 100644 --- a/pretyping/evarsolve.mli +++ b/pretyping/evarsolve.mli @@ -34,7 +34,8 @@ type conv_fun_bool = val evar_define : conv_fun -> ?choose:bool -> env -> evar_map -> bool option -> existential -> constr -> evar_map -val refresh_universes : ?inferred:bool -> ?onlyalg:bool (* Only algebraic universes *) -> +val refresh_universes : ?status:Evd.rigid -> + ?onlyalg:bool (* Only algebraic universes *) -> bool option (* direction: true for levels lower than the existing levels *) -> env -> evar_map -> types -> evar_map * types |