diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:50:04 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:57:45 +0100 |
| commit | 8fc2509f354b02ec4e0a3eb6fabc329109686c47 (patch) | |
| tree | bf7f0738e36d861d57029985ea4f2d3e73d23c15 /kernel | |
| parent | adfd437f8ae6aaf893119fa4730edecf067dede7 (diff) | |
Remove some dead-code (thanks to ocaml warnings)
The removed code isn't used locally and isn't exported in the signature
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/constr.ml | 2 | ||||
| -rw-r--r-- | kernel/cooking.ml | 2 | ||||
| -rw-r--r-- | kernel/names.ml | 2 | ||||
| -rw-r--r-- | kernel/term_typing.ml | 4 | ||||
| -rw-r--r-- | kernel/vars.ml | 2 |
5 files changed, 1 insertions, 11 deletions
diff --git a/kernel/constr.ml b/kernel/constr.ml index cf05fe013..14b4a1772 100644 --- a/kernel/constr.ml +++ b/kernel/constr.ml @@ -325,8 +325,6 @@ let map f c = match kind c with if tl'==tl && bl'==bl then c else mkCoFix (ln,(lna,tl',bl')) -exception Exit of int * constr - (* [map_with_binders g f n c] maps [f n] on the immediate subterms of [c]; it carries an extra data [n] (typically a lift index) which is processed by [g] (which typically add 1 to [n]) at diff --git a/kernel/cooking.ml b/kernel/cooking.ml index 31e86e854..dbe188bd4 100644 --- a/kernel/cooking.ml +++ b/kernel/cooking.ml @@ -82,8 +82,6 @@ let update_case_info cache ci modlist = with Not_found -> ci -let empty_modlist = (Cmap.empty, Mindmap.empty) - let is_empty_modlist (cm, mm) = Cmap.is_empty cm && Mindmap.is_empty mm diff --git a/kernel/names.ml b/kernel/names.ml index 3de12b1bc..f4779acb6 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -431,7 +431,6 @@ module KerPair = struct | Dual (kn,_) -> kn let same kn = Same kn - let dual knu knc = Dual (knu,knc) let make knu knc = if knu == knc then Same knc else Dual (knu,knc) let make1 = same @@ -726,7 +725,6 @@ let label = KerName.label let string_of_kn = KerName.to_string let pr_kn = KerName.print let kn_ord = KerName.compare -let kn_equal = KerName.equal (** Compatibility layer for [Constant] *) diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index c86c13e04..a084504dc 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -23,10 +23,6 @@ open Environ open Entries open Typeops -let debug = false -let prerr_endline = - if debug then prerr_endline else fun _ -> () - let constrain_type env j cst1 = function | `None -> make_polymorphic_if_constant_for_ind env j, cst1 diff --git a/kernel/vars.ml b/kernel/vars.ml index cb22a2e2f..f23d5fc2c 100644 --- a/kernel/vars.ml +++ b/kernel/vars.ml @@ -104,7 +104,7 @@ let lift n = liftn n 1 type info = Closed | Open | Unknown type 'a substituend = { mutable sinfo: info; sit: 'a } -let rec lift_substituend depth s = +let lift_substituend depth s = match s.sinfo with | Closed -> s.sit | Open -> lift depth s.sit |