diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:50:04 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:57:45 +0100 |
| commit | 8fc2509f354b02ec4e0a3eb6fabc329109686c47 (patch) | |
| tree | bf7f0738e36d861d57029985ea4f2d3e73d23c15 /plugins | |
| parent | adfd437f8ae6aaf893119fa4730edecf067dede7 (diff) | |
Remove some dead-code (thanks to ocaml warnings)
The removed code isn't used locally and isn't exported in the signature
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/recdef.ml | 1 | ||||
| -rw-r--r-- | plugins/nsatz/polynom.ml | 2 |
2 files changed, 0 insertions, 3 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index ca0a432d6..ce731c1eb 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -138,7 +138,6 @@ let iter_ref () = let iter = function () -> (constr_of_global (delayed_force iter_ref)) let eq = function () -> (coq_base_constant "eq") let le_lt_SS = function () -> (constant ["Recdef"] "le_lt_SS") -let acc_intro_generator_function = function () -> (constant ["Recdef"] "Acc_intro_generator_function") let le_lt_n_Sm = function () -> (coq_base_constant "le_lt_n_Sm") let le_trans = function () -> (coq_base_constant "le_trans") let le_lt_trans = function () -> (coq_base_constant "le_lt_trans") diff --git a/plugins/nsatz/polynom.ml b/plugins/nsatz/polynom.ml index 78883a660..8566cf0d6 100644 --- a/plugins/nsatz/polynom.ml +++ b/plugins/nsatz/polynom.ml @@ -163,8 +163,6 @@ let max_var l = Array.fold_right (fun p m -> max (max_var_pol2 p) m) l 0 (* equality between polynomials *) -exception Failed - let rec equal p q = match (p,q) with (Pint a,Pint b) -> C.equal a b |