diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2013-11-08 11:31:22 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:58 +0200 |
commit | 1ed00e4f8cded2a2024b66c3f7f4deee6ecd7c83 (patch) | |
tree | 471afc13a25bfe689d30447a6042c9f62c72f92e /library/global.mli | |
parent | 62fb849cf9410ddc2d9f355570f4fb859f3044c3 (diff) |
- Fix bug preventing apply from unfolding Fixpoints.
- Remove Universe Polymorphism flags everywhere.
- Properly infer, discharge template arities and fix substitution inside them
(kernel code to check for correctness).
- Fix tactics that were supposing universe polymorphic constants/inductives to
be parametric on that status. Required to make interp_constr* return the whole evar
universe context now.
- Fix the univ/level/instance hashconsing to respect the fact that marshalling doesn't preserve sharing,
sadly losing most of its benefits.
Short-term solution is to add hashes to these for faster comparison, longer term requires rewriting
all serialization code.
Conflicts:
kernel/univ.ml
tactics/tactics.ml
theories/Logic/EqdepFacts.v
Diffstat (limited to 'library/global.mli')
-rw-r--r-- | library/global.mli | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/library/global.mli b/library/global.mli index 5995ff03f..de19e888c 100644 --- a/library/global.mli +++ b/library/global.mli @@ -94,7 +94,7 @@ val start_library : DirPath.t -> module_path val export : DirPath.t -> module_path * Safe_typing.compiled_library * Safe_typing.native_library val import : - Safe_typing.compiled_library -> Univ.universe_context -> Safe_typing.vodigest -> + Safe_typing.compiled_library -> Univ.universe_context_set -> Safe_typing.vodigest -> module_path * Nativecode.symbol array (** {6 Misc } *) @@ -107,11 +107,15 @@ val env_of_context : Environ.named_context_val -> Environ.env val join_safe_environment : unit -> unit val is_polymorphic : Globnames.global_reference -> bool +val is_template_polymorphic : Globnames.global_reference -> bool val type_of_global_in_context : Environ.env -> Globnames.global_reference -> Constr.types Univ.in_universe_context val type_of_global_unsafe : Globnames.global_reference -> Constr.types +(** Returns the universe context of the global reference (whatever it's polymorphic status is). *) +val universes_of_global : Globnames.global_reference -> Univ.universe_context + (** {6 Retroknowledge } *) val register : |