diff options
author | 2017-11-21 13:56:15 +0100 | |
---|---|---|
committer | 2017-11-21 13:56:15 +0100 | |
commit | 0e01de69c22a3793855b4c97c50e4514191b19bc (patch) | |
tree | 446a0ec91c87746f946fb9352aa23fafd2b8c7f3 /plugins | |
parent | 74e60947d78e3610312aa1702f12143841c5a7cf (diff) | |
parent | 8cada511701d8893bab5553470ab721b33713043 (diff) |
Merge PR #6181: [proof] Attempt to deprecate some V82 parts of the proof API.
Diffstat (limited to 'plugins')
-rw-r--r-- | plugins/funind/recdef.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 2fdc3bc37..b8d41d539 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1225,8 +1225,8 @@ let whole_start (concl_tac:tactic) nb_args is_mes func input_type relation rec_a let get_current_subgoals_types () = let p = Proof_global.give_me_the_proof () in - let { Evd.it=sgs ; sigma=sigma } = Proof.V82.subgoals p in - sigma, List.map (Goal.V82.abstract_type sigma) sgs + let sgs,_,_,_,sigma = Proof.proof p in + sigma, List.map (Goal.V82.abstract_type sigma) sgs exception EmptySubgoals let build_and_l sigma l = |