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


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