diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-05-27 11:43:11 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-05-27 11:43:11 +0200 |
| commit | 866c41b9720413e00194ba7addb9c4277e114890 (patch) | |
| tree | 37fe660b28acfbaa6f3f304b6b9f3eebcf15dddb /kernel | |
| parent | ec5ef15aae0d6f900eb4a8e6ba61c0952c993eb3 (diff) | |
Fix bug #4159
Some asynchronous constraints between initial universes and the ones at
the end of a proof were forgotten. Also add a message to print universes
indicating if all the constraints are processed already or not.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/safe_typing.ml | 2 | ||||
| -rw-r--r-- | kernel/safe_typing.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index d6bd75478..d9adca0c9 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -246,6 +246,8 @@ let join_safe_environment ?(except=Future.UUIDSet.empty) e = else add_constraints (Now (Future.join fc)) e) {e with future_cst = []} e.future_cst +let is_joined_environment e = List.is_empty e.future_cst + (** {6 Various checks } *) let exists_modlabel l senv = Label.Set.mem l senv.modlabels diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index abd5cd7ae..a57fb108c 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -51,6 +51,7 @@ val is_curmod_library : safe_environment -> bool val join_safe_environment : ?except:Future.UUIDSet.t -> safe_environment -> safe_environment +val is_joined_environment : safe_environment -> bool (** {6 Enriching a safe environment } *) (** Insertion of local declarations (Local or Variables) *) |