diff options
| author | Gaëtan Gilbert | 2018-10-10 14:11:22 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-16 15:52:53 +0200 |
| commit | e99b4c66cf38bb5b6ccb76b69ebd7e7a44ed295d (patch) | |
| tree | 578a8fc72ef9767b09cc12be437037164b18dc46 /kernel | |
| parent | da049e138e2b1acf9cdd40d3dbac4508f76f21cb (diff) | |
UnivGen.extend_context -> Univ.extend_in_context_set
Such a basic function can live in Univ rather than the higher level UnivGen.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 3 | ||||
| -rw-r--r-- | kernel/univ.mli | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index fa37834a23..d09b54e7ec 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -1065,6 +1065,9 @@ type universe_context_set = ContextSet.t type 'a in_universe_context = 'a * universe_context type 'a in_universe_context_set = 'a * universe_context_set +let extend_in_context_set (a, ctx) ctx' = + (a, ContextSet.union ctx ctx') + (** Substitutions. *) let empty_subst = LMap.empty diff --git a/kernel/univ.mli b/kernel/univ.mli index 1aa53b8aa8..7ac8247ca4 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -433,6 +433,9 @@ end type 'a in_universe_context = 'a * UContext.t type 'a in_universe_context_set = 'a * ContextSet.t +val extend_in_context_set : 'a in_universe_context_set -> ContextSet.t -> + 'a in_universe_context_set + val empty_level_subst : universe_level_subst val is_empty_level_subst : universe_level_subst -> bool |