diff options
| author | letouzey | 2007-07-11 21:48:04 +0000 |
|---|---|---|
| committer | letouzey | 2007-07-11 21:48:04 +0000 |
| commit | 5f2b3fd5c17c29ffc734eef05bdb22b44d015edf (patch) | |
| tree | 9b03e7a9800355412e364e0528c5214b622d4888 /tactics | |
| parent | 2ed747a81ed14d91112b9b3360c6e5ab4ff897eb (diff) | |
Slight cleanup of refl_omega.ml : in particular it uses now list
utilities from Util. Some additions in Util, and simplifications
in various files.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9969 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/eauto.ml4 | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/tactics/eauto.ml4 b/tactics/eauto.ml4 index aceba6e256..b62bf5820c 100644 --- a/tactics/eauto.ml4 +++ b/tactics/eauto.ml4 @@ -247,9 +247,6 @@ module SearchProblem = struct with e when Logic.catchable_exception e -> filter_tactics (glls,v) tacl - let rec list_addn n x l = - if n = 0 then l else x :: (list_addn (pred n) x l) - (* Ordering of states is lexicographic on depth (greatest first) then number of remaining goals. *) let compare s s' = |