let
min_l (l :
'
a list) :
'
a =
List
.fold_left min (car l) (cdr l)