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


DEBUG:Going to execute:
revert n H; induction l