diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 6 | ||||
| -rw-r--r-- | proofs/proof.ml | 4 | ||||
| -rw-r--r-- | proofs/proof.mli | 3 |
3 files changed, 9 insertions, 4 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index beeaa60433..1c3aed8fc2 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -8,7 +8,6 @@ (* * (see LICENSE file for the text of the license) *) (************************************************************************) -open Util open Pp module NamedDecl = Context.Named.Declaration @@ -58,12 +57,11 @@ module V82 = struct goals are restored to their initial value after the evar is created. *) let prev_future_goals = Evd.save_future_goals evars in + let inst = EConstr.identity_subst_val hyps in let (evars, evk) = - Evarutil.new_pure_evar ~src:(Loc.tag Evar_kinds.GoalEvar) ~typeclass_candidate:false hyps evars concl + Evarutil.new_pure_evar ~src:(Loc.tag Evar_kinds.GoalEvar) ~typeclass_candidate:false ~identity:inst hyps evars concl in let evars = Evd.restore_future_goals evars prev_future_goals in - let ctxt = Environ.named_context_of_val hyps in - let inst = List.map (NamedDecl.get_id %> EConstr.mkVar) ctxt in let ev = EConstr.mkEvar (evk,inst) in (evk, ev, evars) 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. |