diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/csymtable.ml | 1 | ||||
| -rw-r--r-- | kernel/modops.ml | 3 | ||||
| -rw-r--r-- | kernel/pre_env.ml | 2 | ||||
| -rw-r--r-- | kernel/term.ml | 1 | ||||
| -rw-r--r-- | kernel/univ.ml | 2 |
5 files changed, 0 insertions, 9 deletions
diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml index 8d09cbd7ed..82250badbb 100644 --- a/kernel/csymtable.ml +++ b/kernel/csymtable.ml @@ -94,7 +94,6 @@ let annot_tbl = Hashtbl.create 31 exception NotEvaluated -open Pp let key rk = match !rk with | Some k -> (*Pp.msgnl (str"found at: "++int k);*) k diff --git a/kernel/modops.ml b/kernel/modops.ml index 2f7d480afb..1bef6bf50a 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -98,9 +98,6 @@ let error_no_module_to_end _ = let error_no_modtype_to_end _ = raise (ModuleTypingError NoModuleTypeToEnd) -let error_not_a_modtype s = - raise (ModuleTypingError (NotAModuleType s)) - let error_not_a_module s = raise (ModuleTypingError (NotAModule s)) diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml index ffa1d304e0..6e5a45b9cb 100644 --- a/kernel/pre_env.ml +++ b/kernel/pre_env.ml @@ -106,8 +106,6 @@ let push_named_context_val d (ctxt,vals) = let rval = ref VKnone in Sign.add_named_decl d ctxt, (id,rval)::vals -exception ASSERT of rel_context - let push_named d env = (* if not (env.env_rel_context = []) then raise (ASSERT env.env_rel_context); assert (env.env_rel_context = []); *) diff --git a/kernel/term.ml b/kernel/term.ml index 42309c37ef..0937fc16b9 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -828,7 +828,6 @@ let subst1 lam = substl [lam] let substnl_decl laml k = map_rel_declaration (substnl laml k) let substl_decl laml = substnl_decl laml 0 let subst1_decl lam = substl_decl [lam] -let substnl_named laml k = map_named_declaration (substnl laml k) let substl_named_decl = substl_decl let subst1_named_decl = subst1_decl diff --git a/kernel/univ.ml b/kernel/univ.ml index faadb10818..f1fc8bda50 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -29,8 +29,6 @@ open Util union-find algorithm. The assertions $<$ and $\le$ are represented by adjacency lists *) -let compare_ints (x:int) (y:int) = Pervasives.compare x y - module UniverseLevel = struct type t = |