let float_list_min = fold_left min infinity