Commit fc14a67a authored by Claude Marche's avatar Claude Marche

suppressed a few ocaml 4.00 warnings

parent 1b86a3f4
......@@ -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]
......
......@@ -27,7 +27,6 @@ open Ty
open Term
open Decl
open Theory
open Task
open Printer
let ident_printer =
......
......@@ -24,7 +24,6 @@ open Format
open Pp
open Printer
open Ident
open Ty
open Term
open Decl
open Theory
......
......@@ -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
......
......@@ -23,10 +23,8 @@
open Format
open Pp
open Ident
open Ty
open Term
open Decl
open Task
open Printer
let ident_printer =
......
......@@ -26,8 +26,6 @@ open Ident
open Ty
open Term
open Decl
open Theory
open Task
open Printer
let ident_printer =
......
......@@ -27,7 +27,6 @@ open Ty
open Term
open Decl
open Theory
open Task
open Printer
let ident_printer =
......
......@@ -27,7 +27,6 @@ open Ty
open Term
open Decl
open Theory
open Task
open Printer
let ident_printer =
......
......@@ -18,7 +18,6 @@
(* *)
(**************************************************************************)
open Ty
open Term
type checksum = string
......
......@@ -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
......
......@@ -20,7 +20,6 @@
open Theory
open Decl
open Task
open Term
let is_func_ty t =
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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) ->
......
......@@ -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)])
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment