diff options
| author | Pierre-Marie Pédrot | 2020-09-01 11:51:41 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-09-01 11:51:41 +0200 |
| commit | 0d30f79268fea18ef99c040a859956f61c3d978a (patch) | |
| tree | 26694ab196e67dde80cc8489236770bda59a061c /stm | |
| parent | 46768229c5349aa92a8107cd0a6ded32fd22d768 (diff) | |
| parent | 576c1153dae2b3660d35127862aeb3d528eb6d8d (diff) | |
Merge PR #12892: Update update_global_env usage
Reviewed-by: ejgallego
Reviewed-by: gares
Reviewed-by: ppedrot
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 9999e66c45..4ca0c365bf 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -142,10 +142,6 @@ let may_pierce_opaque = function | VernacExtend (("ExtractionInductive",_), _) -> true | _ -> false -let update_global_env () = - if PG_compat.there_are_pending_proofs () then - PG_compat.update_global_env () - module Vcs_ = Vcs.Make(Stateid.Self) type future_proof = Declare.Proof.closed_proof_output Future.computation @@ -2336,7 +2332,9 @@ let known_state ~doc ?(redefine_qed=false) ~cache id = (* ugly functions to process nested lemmas, i.e. hard to reproduce * side effects *) let inject_non_pstate (s,l) = - Summary.unfreeze_summaries ~partial:true s; Lib.unfreeze l; update_global_env () + Summary.unfreeze_summaries ~partial:true s; Lib.unfreeze l; + if PG_compat.there_are_pending_proofs () then + PG_compat.update_sigma_univs (Global.universes ()) in let rec pure_cherry_pick_non_pstate safe_id id = |