diff options
| author | Maxime Dénès | 2020-08-23 17:52:15 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2020-08-24 15:39:08 +0200 |
| commit | a970072a64348a1b5af1cd45a138da819ef0a8d2 (patch) | |
| tree | 00f3a964bb3079fa1495341d11d61a5dc158617a /proofs | |
| parent | 0f5bd6a18d51a412ee3c8309b891254365e48b91 (diff) | |
Update sigma instead of erasing it in `update_global_env`
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof.ml | 4 | ||||
| -rw-r--r-- | proofs/proof.mli | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index a183fa7797..38fcdd6e5f 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -356,6 +356,10 @@ 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 + { p with proofview } + (*** Function manipulation proof extra informations ***) (*** Tactics ***) diff --git a/proofs/proof.mli b/proofs/proof.mli index 0e5bdaf07d..2d4966676e 100644 --- a/proofs/proof.mli +++ b/proofs/proof.mli @@ -78,6 +78,9 @@ 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 + (* Returns the proofs (with their type) of the initial goals. Raises [UnfinishedProof] is some goals remain to be considered. Raises [HasShelvedGoals] if some goals are left on the shelf. |