all2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool
all2 P [x1,...,xn] [y1,...,yn]
P x1 y1 andalso .... andalso P xn yn
all2 P [x0,...,x(j-1),xj,...,xn]
- all2 equal [1,2,3] [1,2,3]; > val it = true : bool - all2 equal [1,2,3] [1,2,3,4] handle e => Raise e; Exception raised at Lib.all2: different length lists ! Uncaught exception: ! HOL_ERR - all2 (fn _ => fn _ => raise Fail "") [] []; > val it = true : bool - all2 (fn _ => fn _ => raise Fail "") [1] [1]; ! Uncaught exception: ! Fail ""