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 /proofs | |
| 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 'proofs')
| -rw-r--r-- | proofs/proof.ml | 4 | ||||
| -rw-r--r-- | proofs/proof.mli | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index d7904c56a8..616cbf9678 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -353,8 +353,8 @@ let compact p = let entry, proofview = Proofview.compact p.entry p.proofview in { p with proofview; entry } -let update_sigma_env p env = - let proofview = Proofview.Unsafe.update_sigma_env p.proofview env in +let update_sigma_univs ugraph p = + let proofview = Proofview.Unsafe.update_sigma_univs ugraph p.proofview in { p with proofview } (*** Function manipulation proof extra informations ***) diff --git a/proofs/proof.mli b/proofs/proof.mli index a0d4759bfc..ffb8380147 100644 --- a/proofs/proof.mli +++ b/proofs/proof.mli @@ -76,8 +76,8 @@ val partial_proof : t -> EConstr.constr list val compact : t -> t -(** [update_sigma_env] lifts [Evd.update_sigma_env] to the proof *) -val update_sigma_env : t -> Environ.env -> t +(** [update_sigma_univs] lifts [UState.update_sigma_univs] to the proof *) +val update_sigma_univs : UGraph.t -> t -> t (* Returns the proofs (with their type) of the initial goals. Raises [UnfinishedProof] is some goals remain to be considered. |