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 /ide/ide_slave.ml | |
| parent | 74e60947d78e3610312aa1702f12143841c5a7cf (diff) | |
| parent | 8cada511701d8893bab5553470ab721b33713043 (diff) | |
Merge PR #6181: [proof] Attempt to deprecate some V82 parts of the proof API.
Diffstat (limited to 'ide/ide_slave.ml')
| -rw-r--r-- | ide/ide_slave.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index 7cbab56d44..cfc0e09a0c 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -217,7 +217,7 @@ let evars () = let doc = get_doc () in set_doc @@ Stm.finish ~doc; let pfts = Proof_global.give_me_the_proof () in - let { Evd.it = all_goals ; sigma = sigma } = Proof.V82.subgoals pfts in + let all_goals, _, _, _, sigma = Proof.proof pfts in let exl = Evar.Map.bindings (Evd.undefined_map sigma) in let map_evar ev = { Interface.evar_info = string_of_ppcmds (pr_evar sigma ev); } in let el = List.map map_evar exl in @@ -227,7 +227,7 @@ let evars () = let hints () = try let pfts = Proof_global.give_me_the_proof () in - let { Evd.it = all_goals ; sigma = sigma } = Proof.V82.subgoals pfts in + let all_goals, _, _, _, sigma = Proof.proof pfts in match all_goals with | [] -> None | g :: _ -> |