diff options
author | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2017-09-16 14:05:52 +0200 |
---|---|---|
committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2017-11-24 19:18:56 +0100 |
commit | 02e6d7f39e3dc2aa8859274bc69b2edf8cc91feb (patch) | |
tree | 1e87759e8a573c9e5b83f6179f69309800936577 /engine/uState.ml | |
parent | 4eb6d29d1ca7e0cc28d59d19a50adb83f7b30a2a (diff) |
restrict_universe_context: do not prune named universes.
Diffstat (limited to 'engine/uState.ml')
-rw-r--r-- | engine/uState.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index 282acb3d6..ff91493ee 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -315,6 +315,9 @@ let check_univ_decl uctx decl = ctx let restrict ctx vars = + let vars = Names.Id.Map.fold (fun na l vars -> Univ.LSet.add l vars) + (fst ctx.uctx_names) vars + in let uctx' = Univops.restrict_universe_context ctx.uctx_local vars in { ctx with uctx_local = uctx' } |