val list_index : 'a -> 'a list -> int
val list_assoc_index : 'a -> ('a * 'b) list -> int