is there in ocaml a .max function or method that gives the max vlaue of a list? in javascript

(* Function to find the maximum value in a list *)
let max_value list = 
  match list with
  | [] -> failwith "Empty list!"
  | h :: t -> List.fold_left max h t
161 chars
6 lines