diff options
| author | Pierre Letouzey | 2014-03-05 14:59:16 +0100 |
|---|---|---|
| committer | Pierre Letouzey | 2014-03-05 15:41:21 +0100 |
| commit | adfd437f8ae6aaf893119fa4730edecf067dede7 (patch) | |
| tree | a395e5f9e50f5cde1419c1fbdb0870d9efdc09b8 /tactics/rewrite.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 'tactics/rewrite.ml')
| -rw-r--r-- | tactics/rewrite.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml index 853215a5ab..79a1a41c8d 100644 --- a/tactics/rewrite.ml +++ b/tactics/rewrite.ml @@ -8,34 +8,28 @@ (*i camlp4deps: "grammar/grammar.cma" i*) -open Pp open Errors open Util -open Names open Nameops open Namegen open Term open Vars -open Termops open Reduction open Tacticals open Tacmach open Tactics open Patternops open Clenv -open Glob_term open Typeclasses open Typeclasses_errors open Classes open Constrexpr -open Libnames open Globnames open Evd open Misctypes open Locus open Locusops open Decl_kinds -open Tacinterp open Elimschemes open Goal open Environ @@ -43,8 +37,6 @@ open Pp open Names open Tacinterp open Termops -open Genarg -open Extraargs open Entries open Libnames @@ -1345,8 +1337,6 @@ let occurrences_of = function error "Illegal negative occurrence number."; (true,nl) -open Extraargs - let apply_glob_constr c l2r occs = fun () env avoid t ty cstr evars -> let evd, c = (Pretyping.understand_tcc (goalevars evars) env c) in apply_lemma l2r (general_rewrite_unif_flags ()) (c, NoBindings) |