diff options
author | 2016-05-08 18:59:55 +0200 | |
---|---|---|
committer | 2016-05-08 19:59:03 +0200 | |
commit | f461e7657cab9917c5b405427ddba3d56f197efb (patch) | |
tree | 467ac699f78d0360b05174238aeb1177da892503 /plugins/funind | |
parent | 9fe0471ef0127e9301d0450aacaeb1690abb82ad (diff) |
Removing dead code and unused opens.
Diffstat (limited to 'plugins/funind')
-rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 1 | ||||
-rw-r--r-- | plugins/funind/g_indfun.ml4 | 3 | ||||
-rw-r--r-- | plugins/funind/recdef.ml | 2 |
3 files changed, 1 insertions, 5 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index 02cd819f4..839586528 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -5,7 +5,6 @@ open Term open Vars open Namegen open Names -open Declarations open Pp open Tacmach open Termops diff --git a/plugins/funind/g_indfun.ml4 b/plugins/funind/g_indfun.ml4 index 0ba18f568..6dfc23511 100644 --- a/plugins/funind/g_indfun.ml4 +++ b/plugins/funind/g_indfun.ml4 @@ -9,15 +9,12 @@ open Compat open Util open Term -open Vars -open Names open Pp open Constrexpr open Indfun_common open Indfun open Genarg open Constrarg -open Tacticals open Misctypes open Pcoq.Prim open Pcoq.Constr diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 046c7aa43..e98ac5fb5 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -208,7 +208,7 @@ let (declare_f : Id.t -> logical_kind -> constr list -> global_reference -> glob (* Debugging mechanism *) let debug_queue = Stack.create () -let rec print_debug_queue b e = +let print_debug_queue b e = if not (Stack.is_empty debug_queue) then begin |