Some dead code removal + cleanups

  This commit concerns about the first half of the useless code
  mentionned by Oug for coqtop (without plugins). For the moment,
  Oug is used in a mode where any elements mentionned in a .mli
  is considered to be precious. This already allows to detect and
  remove about 600 lines, and more is still to come.

  Among the interesting points, the type Entries.specification_entry
  and its constructors SPExxx were never used. Large parts of cases.ml
  (and hence subtac_cases.ml) were also useless.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12069 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 0 insertions, 18 deletions

diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index 172d032b55..2aee2ea68f 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -113,11 +113,6 @@ let explain_internalisation_error e =
   | BadExplicitationNumber (n,po) -> explain_bad_explicitation_number n po in
   pp ++ str "."
 
-let error_unbound_patvar loc n =
-  user_err_loc
-    (loc,"glob_qualid_or_patvar", str "?" ++ pr_patvar n ++ 
-      str " is unbound.")
-
 let error_bad_inductive_type loc =
   user_err_loc (loc,"",str 
     "This should be an inductive type applied to names or \"_\".")
@@ -390,12 +385,6 @@ let apply_scope_env (ids,unb,_,scopes) = function
   | [] -> (ids,unb,None,scopes), []
   | sc::scl -> (ids,unb,sc,scopes), scl
 
-let rec adjust_scopes env scopes = function
-  | [] -> []
-  | a::args ->
-      let (enva,scopes) = apply_scope_env env scopes in
-      enva :: adjust_scopes env scopes args
-
 let rec simple_adjust_scopes n = function
   | [] -> if n=0 then [] else None :: simple_adjust_scopes (n-1) []
   | sc::scopes -> sc :: simple_adjust_scopes (n-1) scopes
@@ -1210,9 +1199,6 @@ let intern_pattern env patt =
 	user_err_loc (loc,"internalize",explain_internalisation_error e)
 
 
-let intern_ltac isarity ltacvars sigma env c =
-  intern_gen isarity sigma env ~ltacvars:ltacvars c
-
 type manual_implicits = (explicitation * (bool * bool * bool)) list
 
 (*********************************************************************)
@@ -1289,10 +1275,6 @@ let interp_casted_constr_evars evdref env ?(impls=([],[])) c typ =
 let interp_type_evars evdref env ?(impls=([],[])) c =
   interp_constr_evars_gen evdref env IsType ~impls c
 
-let interp_constr_judgment_evars evdref env c =
-  Default.understand_judgment_tcc evdref env
-    (intern_constr ( !evdref) env c)
-
 type ltac_sign = identifier list * unbound_ltac_var_map
 
 let intern_constr_pattern sigma env ?(as_type=false) ?(ltacvars=([],[])) c =