aboutsummaryrefslogtreecommitdiff
path: root/engine/uState.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2020-08-25 12:02:35 +0200
committerGaëtan Gilbert2020-08-31 15:12:02 +0200
commit576c1153dae2b3660d35127862aeb3d528eb6d8d (patch)
tree045226b7c3d9fafcaed62070db551b15b3b2b56d /engine/uState.ml
parentdaca83946ed5a001f2461fefa787a80f7dcdea01 (diff)
Update update_global_env usage
- take just a ugraph instead of the whole env - rename to update_sigma_univs - push global env lookup a bit further up - fix vernacinterp call to update all surrounding proofs, not just the top one - flip argument order for nicer partial applications
Diffstat (limited to 'engine/uState.ml')
-rw-r--r--engine/uState.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/engine/uState.ml b/engine/uState.ml
index ca0a21acf7..8d1584cd95 100644
--- a/engine/uState.ml
+++ b/engine/uState.ml
@@ -568,8 +568,8 @@ let emit_side_effects eff u =
let u = demote_seff_univs (fst uctx) u in
merge_seff u uctx
-let update_sigma_env uctx env =
- let univs = UGraph.set_cumulative_sprop (elaboration_sprop_cumul()) (Environ.universes env) in
+let update_sigma_univs uctx ugraph =
+ let univs = UGraph.set_cumulative_sprop (elaboration_sprop_cumul()) ugraph in
let eunivs =
{ uctx with
initial_universes = univs;