From 4b0da48602bad97f4f5238eccac9fa3a0bdecda4 Mon Sep 17 00:00:00 2001
From: coq
Date: Fri, 15 Jul 2005 21:57:22 +0000
Subject: Subtac: traitement correct des existentielles et de la récursion.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7237 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/subtac/sutils.ml | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 contrib/subtac/sutils.ml

(limited to 'contrib/subtac/sutils.ml')

diff --git a/contrib/subtac/sutils.ml b/contrib/subtac/sutils.ml
new file mode 100644
index 0000000000..64365b6763
--- /dev/null
+++ b/contrib/subtac/sutils.ml
@@ -0,0 +1,11 @@
+let list_index x l =
+  let rec aux i = function
+      y :: tl -> if x = y then i else aux (succ i) tl
+    | [] -> raise Not_found
+  in aux 0 l
+
+let list_assoc_index x l =
+  let rec aux i = function
+      (y, _) :: tl -> if x = y then i else aux (succ i) tl
+    | [] -> raise Not_found
+  in aux 0 l
-- 
cgit v1.2.3