all : ('a -> bool) -> 'a list -> bool
- all (equal 3) [3,3,3]; > val it = true : bool - all (equal 3) []; > val it = true : bool - all (fn _ => raise Fail "") []; > val it = true : bool - all (fn _ => raise Fail "") [1]; ! Uncaught exception: ! Fail ""