diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 14:59:16 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 15:41:21 +0100 |
| commit | adfd437f8ae6aaf893119fa4730edecf067dede7 (patch) | |
| tree | a395e5f9e50f5cde1419c1fbdb0870d9efdc09b8 /toplevel/obligations.ml | |
| parent | 3080dd5e27ee20ba0b3537c7882e7ad8af414325 (diff) | |
Remove many superfluous 'open' indicated by ocamlc -w +33
With ocaml 4.01, the 'unused open' warning also checks the mli :-)
Beware: some open are reported as useless when compiling with camlp5,
but are necessary for compatibility with camlp4. These open are now
marked with a comment.
Diffstat (limited to 'toplevel/obligations.ml')
| -rw-r--r-- | toplevel/obligations.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index 6536796f4..d772af3c1 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -20,7 +20,6 @@ open Evd open Pp open Errors open Util -open Proof_type let declare_fix_ref = ref (fun _ _ _ _ _ -> assert false) let declare_definition_ref = ref (fun _ _ _ _ _ -> assert false) @@ -143,9 +142,6 @@ let etype_of_evar evs hyps concl = subst_vars acc 0 t', s, trans in aux [] 0 (List.rev hyps) - -open Tacticals - let trunc_named_context n ctx = let len = List.length ctx in List.firstn (len - n) ctx |