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 /contrib/interface | |
| 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 'contrib/interface')
| -rw-r--r-- | contrib/interface/blast.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/contrib/interface/blast.ml b/contrib/interface/blast.ml index b78aa98453..5fcd04c46a 100644 --- a/contrib/interface/blast.ml +++ b/contrib/interface/blast.ml @@ -242,9 +242,6 @@ module MySearchProblem = 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' = |