From a7121ed7ba1a5a55845b5ffa4846b8aa0e293e5d Mon Sep 17 00:00:00 2001
From: Jim Fehrle
Date: Wed, 7 Nov 2018 00:23:07 -0800
Subject: 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

---
 proofs/proof.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'proofs')

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
-- 
cgit v1.2.3