diff options
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 2bd67dcdc8..c5dfe30332 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 b6849f7ffb..b883db615e 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 45b0aa2316..cfca95d3e6 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 4b78bc05d5..d67f1eee35 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 ba664cafaf..95e20bc25a 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} *) |