Goal:
    n : Z  m : Z  l : list Z  H : n <= m \/ Exists (Z.le n) l
  ============================
   (n <= fold_left Z.max l m)


DEBUG:Going to execute:
revert m H; induction l; cbn in *