suppressed a few ocaml 4.00 warnings

src/printer/alt_ergo.ml

@@ -26,7 +26,6 @@ open Ident
 open Ty
 open Term
 open Decl
-open Task
 open Printer
 
 let meta_ac = Theory.register_meta "AC" [Theory.MTlsymbol]

src/printer/cvc3.ml

@@ -27,7 +27,6 @@ open Ty
 open Term
 open Decl
 open Theory
-open Task
 open Printer
 
 let ident_printer =

src/printer/gappa.ml

@@ -24,7 +24,6 @@ open Format
 open Pp
 open Printer
 open Ident
-open Ty
 open Term
 open Decl
 open Theory

src/printer/pvs.ml

@@ -524,7 +524,7 @@ let re_why3 = Str.regexp "% Why3 \\([^ ]+\\)"
 let read_old_script ch =
   let chunks = ref [] in
   let contents = ref [] in
-  let rec read_line () =
+  let read_line () =
     let s = input_line ch in
     clean_line s
   in

src/printer/simplify.ml

@@ -23,10 +23,8 @@
 open Format
 open Pp
 open Ident
-open Ty
 open Term
 open Decl
-open Task
 open Printer
 
 let ident_printer =

src/printer/smtv1.ml

@@ -26,8 +26,6 @@ open Ident
 open Ty
 open Term
 open Decl
-open Theory
-open Task
 open Printer
 
 let ident_printer =

src/printer/smtv2.ml

@@ -27,7 +27,6 @@ open Ty
 open Term
 open Decl
 open Theory
-open Task
 open Printer
 
 let ident_printer =

src/printer/yices.ml

@@ -27,7 +27,6 @@ open Ty
 open Term
 open Decl
 open Theory
-open Task
 open Printer
 
 let ident_printer =

src/session/termcode.ml

@@ -18,7 +18,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-open Ty
 open Term
 
 type checksum = string

src/transform/abstraction.ml

@@ -22,7 +22,6 @@
 open Ident
 open Term
 open Decl
-open Task
 
 let abstraction (keep : lsymbol -> bool) =
   let term_table = Hterm_alpha.create 257 in

src/transform/close_epsilon.ml

@@ -20,7 +20,6 @@
 
 open Theory
 open Decl
-open Task
 open Term
 
 let is_func_ty t =

src/transform/encoding_guard.ml

@@ -153,7 +153,7 @@ module Transform = struct
 
   and f_type_close_select kept f' =
     let tvs = t_ty_freevars Stv.empty f' in
-    let rec trans fn acc f = match f.t_node with
+    let trans fn acc f = match f.t_node with
       | Tquant(Tforall as q,_) -> (* Exists same thing? *)
         let vsl,trl,fmla = f_open_all_quant q f in
         let add acc vs = (t_var vs)::acc in

src/transform/encoding_instantiate.ml

@@ -23,11 +23,9 @@ open Util
 open Ident
 open Ty
 open Term
-open Task
 open Theory
 open Task
 open Decl
-open Encoding
 
 exception TooMuchInstantiation of int
 let max_instantiation = 512 (* 7 ** 3 = 343 *)
@@ -66,9 +64,11 @@ type tty =
   | Tyterm of ty
   | Tyty of ty
 
+(* dead code
 let print_tty fmt = function
   | Tyterm ty -> Format.fprintf fmt "(Tyterm %a)" Pretty.print_ty ty
   | Tyty ty -> Format.fprintf fmt "(Tyty %a)" Pretty.print_ty ty
+*)
 
 (* It can be backprojected to type, ty_dumb is like a bottom type it
    never appear in final formulas *)
@@ -102,7 +102,9 @@ type env = {
   edefined_tsymbol : tysymbol Mtyl.t Mts.t;
 }
 
+(* dead code
 type auto_clone = task -> tenv -> Sty.t -> task * env
+*)
 
 (* The environnement of the transformation during
    the transformation of a formula *)
@@ -130,7 +132,7 @@ let print_env fmt menv =
 
 type tvar = ty Mtv.t
 
-let rec projty menv tvar ty =
+let projty menv tvar ty =
   let rec aux ty =
     match ty.ty_node with
       | Tyvar _ -> Tyterm ty

src/transform/eval_match.ml

@@ -18,12 +18,10 @@
 (*                                                                        *)
 (**************************************************************************)
 
-open Format
 open Ident
 open Ty
 open Term
 open Decl
-open Pretty
 
 type inline = known_map -> lsymbol -> ty list -> ty option -> bool
 

src/transform/introduction.ml

@@ -28,7 +28,6 @@ open Ident
 open Ty
 open Term
 open Decl
-open Task
 
 let rec intros pr f = match f.t_node with
   | Tbinop (Timplies,f1,f2) ->

src/transform/smoke_detector.ml

@@ -24,10 +24,8 @@
    universal quantification (replace implication by conjunction).
 *)
 
-open Ident
 open Term
 open Decl
-open Task
 
 let create app =
   Trans.goal (fun pr t -> [create_prop_decl Pgoal pr (app t)])