diff options
| author | Jim Fehrle | 2018-11-07 00:23:07 -0800 |
|---|---|---|
| committer | Jim Fehrle | 2018-11-14 12:19:14 -0800 |
| commit | a7121ed7ba1a5a55845b5ffa4846b8aa0e293e5d (patch) | |
| tree | f72c6aa5710526b0a8e8272e4376b6b00ba267c9 /proofs/proof.ml | |
| parent | 9896b66fabdb1dacafb71887b85facefa91845e7 (diff) | |
Get hyps and goal the same way Printer does; don't omit info
Allow for new goals that don't map to old goals
Include background_goals in all_goals return value
Fix incorrect change to raw diffs in shorten_diff_span
Fixes #8922
Diffstat (limited to 'proofs/proof.ml')
| -rw-r--r-- | proofs/proof.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index 8220949856..352ddcd3c2 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -491,4 +491,6 @@ let all_goals p = let set = add goals Goal.Set.empty in let set = List.fold_left (fun s gs -> let (g1, g2) = gs in add g1 (add g2 set)) set stack in let set = add shelf set in - add given_up set + let set = add given_up set in + let { Evd.it = bgoals ; sigma = bsigma } = V82.background_subgoals p in + add bgoals set |