diff options
| author | Gaëtan Gilbert | 2020-08-25 12:02:35 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-08-31 15:12:02 +0200 |
| commit | 576c1153dae2b3660d35127862aeb3d528eb6d8d (patch) | |
| tree | 045226b7c3d9fafcaed62070db551b15b3b2b56d /vernac/vernacstate.mli | |
| parent | daca83946ed5a001f2461fefa787a80f7dcdea01 (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 'vernac/vernacstate.mli')
| -rw-r--r-- | vernac/vernacstate.mli | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/vernac/vernacstate.mli b/vernac/vernacstate.mli index 5efdb3cc68..e1b13dcb73 100644 --- a/vernac/vernacstate.mli +++ b/vernac/vernacstate.mli @@ -40,6 +40,7 @@ module LemmaStack : sig val pop : t -> Declare.Proof.t * t option val push : t option -> Declare.Proof.t -> t + val map : f:(Declare.Proof.t -> Declare.Proof.t) -> t -> t val map_top : f:(Declare.Proof.t -> Declare.Proof.t) -> t -> t val with_top : t -> f:(Declare.Proof.t -> 'a ) -> 'a @@ -112,7 +113,7 @@ module Declare : sig val close_proof : opaque:Vernacexpr.opacity_flag -> keep_body_ucst_separate:bool -> closed_proof val discard_all : unit -> unit - val update_global_env : unit -> unit + val update_sigma_univs : UGraph.t -> unit val get_current_context : unit -> Evd.evar_map * Environ.env |