all2 : : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool
all2 P [x1,...,xn] [y1,...,yn] equals P x1 y1 andalso .... andalso P xn yn. all2 P [] [] yields true.
If P x0,...,P x(j-1} all evaluate to true and P xj raises an exception e, then all2 P [x0,...,x(j-1),xj,...,xn] raises e. An invocation all2 P l1 l2 will also raise an exception if the length of l1 is not equal to the length of l2.
- 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 ""