From 432f9cbff79004a78f5e7bfaeb7fc05f786a1671 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 12 Nov 2009 11:28:56 +0000
Subject: Experiment propagation of implicit arguments and arguments scope for
 abbreviations of applied references.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12506 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index d71912289d..cdd3519301 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -853,6 +853,9 @@ let rec list_skipn n l = match n,l with
   | _, [] -> failwith "list_skipn"
   | n, _::l -> list_skipn (pred n) l
 
+let rec list_skipn_at_least n l =
+  try list_skipn n l with Failure _ -> []
+
 let rec list_addn n x l =
   if n = 0 then l else x :: (list_addn (pred n) x l)
 
-- 
cgit v1.2.3