diff options
| author | Pierre-Marie Pédrot | 2019-10-21 14:29:33 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-10-21 14:29:33 +0200 |
| commit | c6056bdc54d02dc5c6a91aeacb13460e8dd365e3 (patch) | |
| tree | 35ccb682a155ae66ca8af0566027f3e1b886edf4 /engine | |
| parent | 928096cbc5c46af86f803eb2f70608e9b1a06e9e (diff) | |
| parent | 6aa1131cdb4dcc95b03996d6ed8925297b6bd51f (diff) | |
Merge PR #10863: Minor side effect universe cleanups
Ack-by: JasonGross
Reviewed-by: ppedrot
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/uState.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index efced52990..ba17cdde93 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -539,11 +539,9 @@ let merge_seff uctx ctx' = uctx_initial_universes = initial } let emit_side_effects eff u = - let uctxs = Safe_typing.universes_of_private eff in - List.fold_left (fun u uctx -> - let u = demote_seff_univs (fst uctx) u in - merge_seff u uctx) - u uctxs + let uctx = Safe_typing.universes_of_private eff in + let u = demote_seff_univs (fst uctx) u in + merge_seff u uctx let update_sigma_env uctx env = let univs = UGraph.make_sprop_cumulative (Environ.universes env) in |