diff options
| author | Maxime Dénès | 2017-11-21 13:56:15 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-21 13:56:15 +0100 |
| commit | 0e01de69c22a3793855b4c97c50e4514191b19bc (patch) | |
| tree | 446a0ec91c87746f946fb9352aa23fafd2b8c7f3 /tactics | |
| parent | 74e60947d78e3610312aa1702f12143841c5a7cf (diff) | |
| parent | 8cada511701d8893bab5553470ab721b33713043 (diff) | |
Merge PR #6181: [proof] Attempt to deprecate some V82 parts of the proof API.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/hints.ml | 6 | ||||
| -rw-r--r-- | tactics/leminv.ml | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tactics/hints.ml b/tactics/hints.ml index c7c53b3930..99be1846cb 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1467,11 +1467,11 @@ let pr_hint_term sigma cl = (* print all hints that apply to the concl of the current goal *) let pr_applicable_hint () = let pts = Proof_global.give_me_the_proof () in - let glss = Proof.V82.subgoals pts in - match glss.Evd.it with + let glss,_,_,_,sigma = Proof.proof pts in + match glss with | [] -> CErrors.user_err Pp.(str "No focused goal.") | g::_ -> - pr_hint_term glss.Evd.sigma (Goal.V82.concl glss.Evd.sigma g) + pr_hint_term sigma (Goal.V82.concl sigma g) let pp_hint_mode = function | ModeInput -> str"+" diff --git a/tactics/leminv.ml b/tactics/leminv.ml index cc9d98f6fe..62f3866de9 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -215,7 +215,7 @@ let inversion_scheme env sigma t sort dep_option inv_op = invEnv ~init:Context.Named.empty end in let avoid = ref Id.Set.empty in - let { sigma=sigma } = Proof.V82.subgoals pf in + let _,_,_,_,sigma = Proof.proof pf in let sigma = Evd.nf_constraints sigma in let rec fill_holes c = match EConstr.kind sigma c with |