From 80bbdf335be5657f5ab33b4aa02e21420d341de2 Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond
Date: Sat, 2 Jan 2016 17:11:03 +0100
Subject: Remove some unused functions.

Note: they do not even seem to have a debugging purpose, so better remove
them before they bitrot.
---
 engine/proofview_monad.ml | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'engine/proofview_monad.ml')

diff --git a/engine/proofview_monad.ml b/engine/proofview_monad.ml
index a9faf0a833..88c5925ceb 100644
--- a/engine/proofview_monad.ml
+++ b/engine/proofview_monad.ml
@@ -108,11 +108,6 @@ module Info = struct
   and compress f =
     CList.map_filter compress_tree f
 
-  let rec is_empty = let open Trace in function
-    | Seq(Dispatch,brs) -> List.for_all is_empty brs
-    | Seq(DBranch,br) -> List.for_all is_empty br
-    | _ -> false
-
   (** [with_sep] is [true] when [Tactic m] must be printed with a
       trailing semi-colon. *)
   let rec pr_tree with_sep = let open Trace in function
-- 
cgit v1.2.3


From b2a2cb77f38549a25417d199e90d745715f3e465 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 20 Mar 2016 18:08:42 +0100
Subject: Making Proofview independent of Logic.

---
 engine/proofview_monad.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'engine/proofview_monad.ml')

diff --git a/engine/proofview_monad.ml b/engine/proofview_monad.ml
index 2b9db60b4f..6f52b3ee90 100644
--- a/engine/proofview_monad.ml
+++ b/engine/proofview_monad.ml
@@ -154,8 +154,8 @@ end
     focused goals. *)
 type proofview = {
   solution : Evd.evar_map;
-  comb : Goal.goal list;
-  shelf : Goal.goal list;
+  comb : Evar.t list;
+  shelf : Evar.t list;
 }
 
 (** {6 Instantiation of the logic monad} *)
-- 
cgit v1.2.3