diff options
| author | Pierre-Marie Pédrot | 2018-12-16 13:54:40 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-12-16 13:54:40 +0100 |
| commit | 7e155688331c8f004f34950da67108d7284e4e56 (patch) | |
| tree | 9182191cd348bc32eaa8cdd00b615a924ed17c6f /tactics/hints.ml | |
| parent | 2a7992f75c86a15512568ac61ca4c43e23242b28 (diff) | |
| parent | a2549c7f716e870ea19fdbfd7b5493117fe21e76 (diff) | |
Merge PR #9172: [proof] Rework proof interface.
Diffstat (limited to 'tactics/hints.ml')
| -rw-r--r-- | tactics/hints.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/hints.ml b/tactics/hints.ml index faff116af4..571ad9d160 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1516,8 +1516,8 @@ let pr_hint_term env sigma cl = let pr_applicable_hint () = let env = Global.env () in let pts = Proof_global.give_me_the_proof () in - let glss,_,_,_,sigma = Proof.proof pts in - match glss with + let Proof.{goals;sigma} = Proof.data pts in + match goals with | [] -> CErrors.user_err Pp.(str "No focused goal.") | g::_ -> pr_hint_term env sigma (Goal.V82.concl sigma g) |