diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-11-04 19:58:09 -0500 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-11-04 19:58:09 -0500 |
commit | 42cd40e4edcc29804d1b73d8cb076f8578ce66fa (patch) | |
tree | 37ef6e88abc417ac2a3b7697edac8423b4dc8033 /checker/declarations.mli | |
parent | 7c102bb3a3798a234701fdc28a8e8ec28ee2549c (diff) |
Checker was forgetting to register global universes introduced by opaque
proofs.
Diffstat (limited to 'checker/declarations.mli')
-rw-r--r-- | checker/declarations.mli | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/checker/declarations.mli b/checker/declarations.mli index 3c6db6ab7..456df8369 100644 --- a/checker/declarations.mli +++ b/checker/declarations.mli @@ -2,17 +2,18 @@ open Names open Cic val force_constr : constr_substituted -> constr -val force_lazy_constr_univs : Cic.constant_def -> Univ.constraints +val force_lazy_constr_univs : Cic.constant_def -> Univ.ContextSet.t val from_val : constr -> constr_substituted val indirect_opaque_access : (DirPath.t -> int -> constr) ref -val indirect_opaque_univ_access : (DirPath.t -> int -> Univ.constraints) ref +val indirect_opaque_univ_access : (DirPath.t -> int -> Univ.ContextSet.t) ref (** Constant_body *) val body_of_constant : constant_body -> constr option val constant_has_body : constant_body -> bool val is_opaque : constant_body -> bool +val opaque_univ_context : constant_body -> Univ.ContextSet.t (* Mutual inductives *) |