aboutsummaryrefslogtreecommitdiffhomepage
path: root/engine
diff options
context:
space:
mode:
authorGravatar Guillaume Melquiond <guillaume.melquiond@inria.fr>2016-01-02 17:11:03 +0100
committerGravatar Guillaume Melquiond <guillaume.melquiond@inria.fr>2016-01-02 17:11:03 +0100
commit80bbdf335be5657f5ab33b4aa02e21420d341de2 (patch)
tree0fd5a807cecc57b6ce42c1b9a956d17f2ec5caeb /engine
parent3f91296b5cf1dc9097d5368c2df5c6f70a04210c (diff)
Remove some unused functions.
Note: they do not even seem to have a debugging purpose, so better remove them before they bitrot.
Diffstat (limited to 'engine')
-rw-r--r--engine/proofview_monad.ml5
1 files changed, 0 insertions, 5 deletions
diff --git a/engine/proofview_monad.ml b/engine/proofview_monad.ml
index a9faf0a83..88c5925ce 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