diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2014-05-30 20:55:48 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-06-04 15:48:31 +0200 |
| commit | dd96b1e5e8d0eb9f93cff423b6f9cf900aee49d7 (patch) | |
| tree | 70a184062496f64841ca013929a0622600ac1b2f /kernel/univ.mli | |
| parent | 0bbaba7bde67a8673692356c3b3b401b4f820eb7 (diff) | |
- Fix hashing of levels to get the "right" order in universe contexts etc...
- Add a tentative syntax for specifying universes: Type{"i"} and foo@{Type{"i"},Type{"j"}}.
These are always rigid.
- Use level-to-level substitutions where the more general level-to-universe substitutions
were previously used.
Diffstat (limited to 'kernel/univ.mli')
| -rw-r--r-- | kernel/univ.mli | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/kernel/univ.mli b/kernel/univ.mli index cc5eedefb..bf04c62e2 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -355,15 +355,13 @@ val constraints_of : 'a constrained -> constraints val check_context_subset : universe_context_set -> universe_context -> universe_context (** Make a universe level substitution: the list must match the context variables. *) -val make_universe_subst : Instance.t -> universe_context -> universe_subst -val empty_subst : universe_subst -val is_empty_subst : universe_subst -> bool +val make_universe_subst : Instance.t -> universe_context -> universe_level_subst val empty_level_subst : universe_level_subst val is_empty_level_subst : universe_level_subst -> bool (** Get the instantiated graph. *) -val instantiate_univ_context : universe_subst -> universe_context -> constraints +val instantiate_univ_context : universe_level_subst -> universe_context -> constraints (** Substitution of universes. *) val subst_univs_level_level : universe_level_subst -> universe_level -> universe_level @@ -372,6 +370,9 @@ val subst_univs_level_constraints : universe_level_subst -> constraints -> const val normalize_univs_level_level : universe_level_subst -> universe_level -> universe_level + +val empty_subst : universe_subst +val is_empty_subst : universe_subst -> bool val make_subst : universe_subst -> universe_subst_fn (* val subst_univs_level_fail : universe_subst_fn -> universe_level -> universe_level *) |