diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-05-08 18:59:55 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-05-08 19:59:03 +0200 |
commit | f461e7657cab9917c5b405427ddba3d56f197efb (patch) | |
tree | 467ac699f78d0360b05174238aeb1177da892503 /engine | |
parent | 9fe0471ef0127e9301d0450aacaeb1690abb82ad (diff) |
Removing dead code and unused opens.
Diffstat (limited to 'engine')
-rw-r--r-- | engine/evarutil.ml | 1 | ||||
-rw-r--r-- | engine/evd.ml | 1 | ||||
-rw-r--r-- | engine/geninterp.ml | 2 | ||||
-rw-r--r-- | engine/logic_monad.ml | 1 | ||||
-rw-r--r-- | engine/proofview.ml | 2 |
5 files changed, 1 insertions, 6 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index 2bd67dcdc..c5dfe3033 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -8,7 +8,6 @@ open Errors open Util -open Pp open Names open Term open Vars diff --git a/engine/evd.ml b/engine/evd.ml index b6849f7ff..b883db615 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -363,7 +363,6 @@ open Misctypes type t val empty : t -val add_name_newly_undefined : intro_pattern_naming_expr -> Evar.t -> evar_info -> t -> t val add_name_undefined : intro_pattern_naming_expr -> Evar.t -> evar_info -> t -> t val remove_name_defined : Evar.t -> t -> t val rename : Evar.t -> Id.t -> t -> t diff --git a/engine/geninterp.ml b/engine/geninterp.ml index 45b0aa231..cfca95d3e 100644 --- a/engine/geninterp.ml +++ b/engine/geninterp.ml @@ -32,7 +32,7 @@ struct let repr = ValT.repr let create = ValT.create - let rec pr : type a. a typ -> Pp.std_ppcmds = fun t -> Pp.str (repr t) + let pr : type a. a typ -> Pp.std_ppcmds = fun t -> Pp.str (repr t) let typ_list = ValT.create "list" let typ_opt = ValT.create "option" diff --git a/engine/logic_monad.ml b/engine/logic_monad.ml index 4b78bc05d..d67f1eee3 100644 --- a/engine/logic_monad.ml +++ b/engine/logic_monad.ml @@ -340,7 +340,6 @@ struct let lift = BackState.lift let once = BackState.once let break = BackState.break - let reflect = BackState.reflect let split = BackState.split let repr = BackState.repr diff --git a/engine/proofview.ml b/engine/proofview.ml index ba664cafa..95e20bc25 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -925,8 +925,6 @@ end module UnsafeRepr = Proof.Unsafe let (>>=) = tclBIND -let (<*>) = tclTHEN -let (<+>) t1 t2 = tclOR t1 (fun _ -> t2) (** {6 Goal-dependent tactics} *) |