diff options
| author | Gaëtan Gilbert | 2019-10-09 15:16:36 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-10-09 15:16:36 +0200 |
| commit | b9ccd6f93ff1a0a0cf9f53030af66dd761a1315a (patch) | |
| tree | 4f9f81bc3a9041f0f55e7fe7e21305edc468edec /engine/evd.ml | |
| parent | ba86025e97d3ee110978592239131865f4187b1c (diff) | |
Specialize UState.merge for extend:false
It's only called with extend:false from inside UState so we don't need
to expose it.
Not having to look at the whole `merge` function will hopefully help
those trying to understand side effects.
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index 6a721a1a8a..e755af56c9 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -864,7 +864,7 @@ let universe_subst evd = UState.subst evd.universes let merge_context_set ?loc ?(sideff=false) rigid evd ctx' = - {evd with universes = UState.merge ?loc ~sideff ~extend:true rigid evd.universes ctx'} + {evd with universes = UState.merge ?loc ~sideff rigid evd.universes ctx'} let merge_universe_subst evd subst = {evd with universes = UState.merge_subst evd.universes subst } |