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 /engine/univGen.ml | |
| 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 'engine/univGen.ml')
| -rw-r--r-- | engine/univGen.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/engine/univGen.ml b/engine/univGen.ml index 443ef22844..23ab30eb75 100644 --- a/engine/univGen.ml +++ b/engine/univGen.ml @@ -141,8 +141,7 @@ let fresh_sort_in_family = function let new_sort_in_family sf = fst (fresh_sort_in_family sf) -let extend_context (a, ctx) (ctx') = - (a, ContextSet.union ctx ctx') +let extend_context = Univ.extend_in_context_set let new_global_univ () = let u = fresh_level () in |