src/Pure/library.ML
changeset 31986 a68f88d264f7
parent 31250 4b99b1214034
child 32188 005f9abae1e3
--- a/src/Pure/library.ML	Fri Jul 10 07:59:25 2009 +0200
+++ b/src/Pure/library.ML	Fri Jul 10 07:59:27 2009 +0200
@@ -97,7 +97,6 @@
   val fold_index: (int * 'a -> 'b -> 'b) -> 'a list -> 'b -> 'b
   val split_last: 'a list -> 'a list * 'a
   val find_index: ('a -> bool) -> 'a list -> int
-  val find_index_eq: ''a -> ''a list -> int
   val find_first: ('a -> bool) -> 'a list -> 'a option
   val get_index: ('a -> 'b option) -> 'a list -> (int * 'b) option
   val get_first: ('a -> 'b option) -> 'a list -> 'b option
@@ -503,8 +502,6 @@
         | find n (x :: xs) = if pred x then n else find (n + 1) xs;
   in find 0 end;
 
-fun find_index_eq x = find_index (equal x);
-
 (*find first element satisfying predicate*)
 val find_first = List.find;