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 /pretyping/evarsolve.ml | |
| 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 'pretyping/evarsolve.ml')
| -rw-r--r-- | pretyping/evarsolve.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index bdc4bc0ae..a96adcdd8 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -768,10 +768,6 @@ let filter_candidates evd evk filter candidates = let ids = set_of_evctx (Filter.filter_list filter (evar_context evi)) in Some (List.filter (fun a -> Id.Set.subset (collect_vars a) ids) l) -let eq_filter f1 f2 = - let eq_bool b1 b2 = if b1 then b2 else not b2 in - List.equal eq_bool f1 f2 - let closure_of_filter evd evk = function | None -> None | Some filter -> |