sig val exists2 : ('-> '-> bool) -> 'a array -> 'b array -> bool end