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

1 files changed, 11 insertions, 0 deletions

diff --git a/contrib/subtac/sutils.ml b/contrib/subtac/sutils.ml
new file mode 100644
index 000000000..64365b676
--- /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