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 /user-contrib/Ltac2 | |
| parent | 3bd2722fb53552f45a25e6bc0a03a9ab0517485f (diff) | |
| parent | 2576fee1798b753161a730244c8d4d701e8a4641 (diff) | |
Merge PR #10496: [proof] Minor cleanup in proof.ml
Reviewed-by: ppedrot
Diffstat (limited to 'user-contrib/Ltac2')
| -rw-r--r-- | user-contrib/Ltac2/tac2entries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/user-contrib/Ltac2/tac2entries.ml b/user-contrib/Ltac2/tac2entries.ml index 3b8fc58c6f..17004bb012 100644 --- a/user-contrib/Ltac2/tac2entries.ml +++ b/user-contrib/Ltac2/tac2entries.ml @@ -763,7 +763,7 @@ let perform_eval ~pstate e = | Goal_select.SelectAlreadyFocused -> assert false (* TODO **) in let (proof, _, ans) = Proof.run_tactic (Global.env ()) v proof in - let sigma = Proof.in_proof proof (fun sigma -> sigma) in + let { Proof.sigma } = Proof.data proof in let name = int_name () in Feedback.msg_notice (str "- : " ++ pr_glbtype name (snd ty) ++ spc () ++ str "=" ++ spc () ++ |