diff options
| author | Pierre-Marie Pédrot | 2019-07-14 13:53:25 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-07-14 13:53:25 +0200 |
| commit | 76dfd0b95a7fd2de99f65de9fc10925d58777cd4 (patch) | |
| tree | 9a80f38a78b75d21b0fdd84b0a0f54a767adc290 /proofs/pfedit.ml | |
| parent | 3bd2722fb53552f45a25e6bc0a03a9ab0517485f (diff) | |
| parent | 2576fee1798b753161a730244c8d4d701e8a4641 (diff) | |
Merge PR #10496: [proof] Minor cleanup in proof.ml
Reviewed-by: ppedrot
Diffstat (limited to 'proofs/pfedit.ml')
| -rw-r--r-- | proofs/pfedit.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index ed60b8274a..99a254652c 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -61,8 +61,8 @@ let get_current_context pf = with | NoSuchGoal -> (* No more focused goals *) - let evd = Proof.in_proof p (fun x -> x) in - evd, Global.env () + let { Proof.sigma } = Proof.data p in + sigma, Global.env () let solve ?with_end_tac gi info_lvl tac pr = let tac = match with_end_tac with |